Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1726 1425 (N07W57 L=223)  1138    101        2 (1672/1387-1767/1464)  -4.8 W51-W63 N04-N09
      2 1118 1351 (N20W14 L=180)   954    379        2 ( 956/1264-1254/1409)   0.0 W02-W23 N17-N22
      3 1819 1241 (S05W58 L=224)   515     74        2 (1783/1214-1854/1271) -38.7 W54-W61 S07-S03
      4 1444 1150 (N00W27 L=193)   529    127        1 (1403/1094-1478/1207) -81.9 W24-W28 S03-N04
      5  476 1167 (N25E31 L=136)   625    151        1 ( 425/1106- 538/1200)  11.3 E35-E25 N22-N26
      6 1847 1105 (S14W57 L=223)   360     78        1 (1826/1072-1863/1144)  53.1 W54-W59 S15-S11
      7 1772 1073 (S13W48 L=214)   276     40        0 (1746/1057-1795/1086) -26.6 W46-W50 S13-S11
      8 1759 1009 (S16W46 L=212)   545    103        1 (1713/ 960-1788/1041) -50.2 W42-W47 S19-S13
      9  288 1013 (N21E49 L=117)   372     37        0 ( 269/ 979- 302/1040) -76.0 E50-E47 N18-N22
     10 1878  859 (S29W58 L=224)  3972    464        5 (1732/ 653-1947/1036)  28.1 W40-W70 S37-S20
     11  157  941 (N19E65 L=101)  1176    127        1 ( 119/ 901- 215/ 991) -32.5 E71-E58 N15-N22
     12 1711  940 (S19W40 L=206)   248     84        0 (1693/ 899-1728/ 984) -90.0 W39-W41 S21-S15
     13 1588  949 (S14W31 L=197)   546    144        1 (1545/ 890-1640/ 980)  15.9 W27-W34 S16-S13
     14  325  884 (N12E48 L=118)   928    173        1 ( 287/ 834- 354/ 949)  35.5 E51-E43 N09-N15
     15  829  832 (S01E15 L=151)   936    203        2 ( 745/ 751- 902/ 909) -65.6 E18-E13 S07-N04
     16 1612  874 (S19W31 L=197)   402     57        1 (1592/ 836-1639/ 904)  45.0 W29-W33 S21-S17
     17 1277  717 (S19W06 L=173)   200     46        0 (1260/ 698-1300/ 743) -71.6 W05-W07 S20-S17
     18  694  503 (S17E34 L=132)  1714    466        4 ( 568/ 364- 843/ 654)  20.1 E49-E19 S23-S11
     19  547  625 (S07E39 L=127)   262     60        1 ( 513/ 608- 575/ 651)  11.3 E41-E36 S07-S05
     20 1071  530 (S25E11 L=155)  1502    325        4 ( 940/ 450-1232/ 612)   5.4 E20-W01 S27-S22
     21  388  479 (S12E59 L=107)  2579    369        7 ( 305/ 341- 492/ 610)  87.1 E67-E53 S22-S02
     22  794  370 (S28E34 L=132)   320     62        1 ( 760/ 346- 820/ 398)   9.5 E37-E31 S29-S26
  

    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