Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  957 1915 (N65W43 L= 10)  1121     89        2 ( 916/1876- 993/1957)   4.2 W32-W62 N61-N68
      2  874 1859 (N63W25 L=351)   730    103        2 ( 838/1822- 912/1887) -59.0 W19-W30 N58-N66
      3 1181 1734 (N41W35 L=  2)  2171    376        2 (1008/1693-1361/1774) -24.6 W21-W46 N34-N46
      4 1640 1620 (N21W62 L= 29)   536     42        0 (1612/1598-1668/1642)   0.0 W58-W67 N19-N21
      5  783 1585 (N43E01 L=326)   362     95        0 ( 758/1542- 808/1625)  59.0 E02-W02 N40-N45
      6  614 1520 (N43E16 L=311)   260     50        1 ( 591/1496- 641/1540)   0.0 E17-E13 N41-N44
      7 1737 1485 (N11W62 L= 28)   666     94        0 (1709/1440-1762/1528)  80.5 W60-W63 N07-N13
      8 1549 1094 (S05W32 L=358)  2070    444        3 (1498/ 888-1579/1293)  62.4 W24-W38 S15-N06
      9  228 1117 (N26E54 L=272)  1048    176        3 ( 197/1062- 265/1184) -69.4 E58-E50 N22-N30
     10 1868 1128 (S12W60 L= 27)   698    107        0 (1838/1074-1886/1168) -80.5 W57-W63 S14-S08
     11  713 1078 (N14E17 L=310)   885    256        2 ( 613/1020- 813/1159) -53.1 E21-E11 N08-N20
     12  131 1103 (N27E68 L=258)  1782    127        3 (  80/1049- 169/1156) -18.4 E84-E61 N23-N30
     13  337 1018 (N18E44 L=282)   910    219        3 ( 247/ 953- 383/1094)  19.7 E53-E39 N14-N22
     14  322  854 (N09E49 L=277)   441     77        2 ( 293/ 804- 343/ 884)  78.7 E51-E46 N06-N11
     15  293  778 (N06E54 L=273)   414     86        0 ( 263/ 737- 320/ 807) -68.2 E55-E51 N02-N07
     16  230  726 (N04E62 L=264)  1060    184        3 ( 176/ 670- 280/ 800) -53.1 E66-E57 N00-N08
     17 1404  733 (S22W15 L=342)   237     56        1 (1385/ 704-1419/ 764)  33.7 W13-W16 S23-S19
     18 1876  678 (S41W63 L= 30)   755     67        0 (1843/ 648-1904/ 696) -15.9 W56-W77 S44-S37
     19 1235  591 (S26W02 L=328)   548    188        1 (1177/ 528-1307/ 658)  21.8 E03-W07 S28-S23
     20 1737  564 (S44W44 L= 10)  1025    166        2 (1674/ 514-1804/ 612)  10.6 W36-W52 S45-S40
     21  722  248 (S36E48 L=278)   774     99        0 ( 680/ 214- 756/ 301)  19.7 E54-E40 S38-S32
  

    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