Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  998 1677 (N49W13 L=182)  2049    420        3 ( 816/1636-1189/1708) -18.4 E04-W26 N41-N53
      2 1530 1644 (N34W56 L=225)  2115    258        2 (1426/1605-1655/1673) -17.7 W45-W68 N29-N36
      3  865 1536 (N41E02 L=167)   318     69        1 ( 829/1521- 905/1553) -11.3 E05-W00 N39-N42
      4 1049 1511 (N36W11 L=180)   251     65        0 (1018/1494-1091/1524) -11.3 W08-W13 N34-N36
      5 1687 1432 (N18W56 L=226)   914    180        1 (1642/1378-1736/1520) -84.3 W54-W60 N13-N23
      6  955 1305 (N24W00 L=170)   654    331        0 ( 813/1291-1108/1325)  -9.0 E09-W10 N21-N26
      7 1287 1270 (N17W20 L=190)   534    212        1 (1185/1225-1357/1301) -21.8 W14-W24 N12-N19
      8  257 1109 (N21E55 L=114)   534     84        1 ( 239/1065- 283/1153)  80.5 E57-E52 N17-N23
      9  338 1076 (N18E47 L=123)   564    109        2 ( 288/1050- 390/1102)  -6.3 E51-E42 N16-N19
     10  906 1067 (N11E06 L=163)   331    121        0 ( 863/1041- 968/1101) -33.7 E08-E02 N08-N13
     11 1789 1000 (S09W53 L=222)  1309    251        0 (1744/ 903-1815/1101) -81.3 W49-W55 S15-S02
     12 1852 1038 (S09W60 L=230)   553     84        2 (1832/ 990-1874/1071) -78.7 W58-W63 S11-S06
     13 1689 1011 (S06W43 L=213)   306     28        1 (1665/ 994-1709/1034)  18.4 W41-W45 S07-S04
     14  952  909 (N01E06 L=163)   397    148        1 ( 884/ 895-1026/ 923)  -6.3 E10-E01 N00-N02
     15 1817  787 (S23W55 L=225)  2719    307        7 (1728/ 699-1929/ 888)  12.5 W45-W74 S27-S20
     16 1267  845 (S08W12 L=181)   292     83        3 (1238/ 823-1306/ 864) -26.6 W09-W14 S09-S06
     17 1014  798 (S07E04 L=165)   205     44        0 ( 996/ 770-1030/ 825)  56.3 E05-E02 S08-S05
     18 1044  740 (S11E03 L=166)   645    105        2 ( 995/ 703-1105/ 767)  -9.5 E06-W00 S12-S09
     19  278  597 (S11E64 L=105)  5450    450        9 ( 192/ 406- 380/ 753)  76.0 E72-E58 S25-S01
     20  428  681 (S07E45 L=124)   546    168        3 ( 387/ 611- 454/ 738)  77.5 E48-E42 S11-S02
     21 1157  665 (S17W03 L=172)   380    128        2 (1117/ 623-1179/ 714)  51.3 W00-W04 S20-S14
     22  392  586 (S13E52 L=118)  1679    321        4 ( 307/ 465- 467/ 698) -76.8 E56-E47 S21-S04
     23  315  600 (S11E60 L=110)   543     53        1 ( 290/ 574- 341/ 628) -36.9 E61-E57 S13-S09
     24 1269  524 (S29W08 L=177)   627    112        0 (1230/ 482-1319/ 565)  29.7 W04-W11 S31-S27
     25  877  216 (S48E33 L=137)  1339    206        1 ( 813/ 151- 945/ 279)  23.7 E47-E22 S54-S42
  

    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