Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1343 1653 (N31W41 L=105)   260     73        1 (1323/1620-1359/1694)  29.7 W37-W44 N29-N33
      2 1525 1619 (N24W52 L=116)  1274    299        4 (1409/1518-1630/1693) -65.0 W47-W55 N16-N31
      3 1735 1585 (N16W71 L=135)  1736    145        5 (1674/1544-1792/1628) -32.5 W66-W78 N12-N19
      4 1430 1485 (N19W37 L=102)  1147    304        1 (1321/1422-1561/1579) -57.3 W33-W44 N12-N27
      5 1683 1519 (N14W59 L=123)   494     60        3 (1660/1489-1709/1557)  53.1 W56-W61 N12-N16
      6  982 1472 (N30W09 L= 74)  1161    309        4 ( 866/1413-1133/1504) -12.5 W00-W18 N25-N32
      7  381 1480 (N47E39 L= 25)   456     88        0 ( 347/1453- 418/1503)  14.0 E43-E35 N45-N48
      8 1295 1423 (N19W26 L= 91)   960    260        3 (1183/1331-1385/1475) -59.7 W21-W29 N12-N24
      9 1622 1441 (N11W49 L=113)   355     36        1 (1599/1414-1647/1463)  76.0 W47-W51 N09-N13
     10 1030 1313 (N19W07 L= 72)   311    130        2 ( 964/1295-1101/1329) -32.0 W03-W11 N16-N21
     11 1727 1185 (S05W48 L=112)   616    140        2 (1709/1103-1754/1243)  54.5 W44-W51 S09-S02
     12 1791 1163 (S08W53 L=117)   394     76        0 (1777/1125-1807/1200)  76.0 W50-W54 S09-S05
     13 1931 1035 (S19W68 L=132)   630     88        3 (1903/1004-1965/1071)   4.1 W62-W76 S20-S17
     14  161 1038 (N23E63 L=  1)   664     44        2 ( 141/1010- 186/1063) -38.7 E66-E59 N20-N24
     15 1251 1005 (S03W12 L= 76)   238    117        2 (1226/ 959-1289/1048)  26.6 W09-W15 S04-S01
     16 1349  906 (S11W16 L= 80)   313    117        1 (1289/ 886-1395/ 939)  -8.1 W11-W18 S11-S09
     17  137  805 (N10E72 L=352)   790     81        1 ( 105/ 783- 176/ 843)  -8.7 E79-E66 N07-N11
     18  496  681 (S04E40 L= 24)  3049    608        5 ( 312/ 520- 697/ 842) -43.5 E53-E31 S16-N06
     19  836  742 (S08E17 L= 47)  1344    399        6 ( 728/ 664- 961/ 830)  13.2 E25-E08 S10-S05
     20  992  560 (S22E14 L= 51)  2445    570        6 ( 796/ 472-1213/ 733) -32.5 E22-W00 S29-S10
     21  355  653 (S03E52 L= 12)   399     82        2 ( 333/ 618- 390/ 684) -68.2 E54-E50 S05-N00
     22  335  516 (S10E62 L=  3)  5841    461       19 ( 237/ 360- 461/ 658)  53.1 E76-E50 S20-N00
     23  467  453 (S17E53 L= 12)   427     72        2 ( 440/ 420- 495/ 483)  23.2 E57-E50 S18-S14
     24  823  290 (S36E37 L= 27)  3659    444        6 ( 731/ 119- 904/ 478)  31.8 E69-E27 S48-S22
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y