Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  925 1889 (N63W34 L=357)  1617    223        5 ( 852/1818-1012/1963)   3.9 W21-W66 N57-N67
      2 1197 1746 (N42W37 L=  1)  2380    425        4 (1008/1702-1408/1789) -20.1 W21-W51 N33-N46
      3 1670 1619 (N20W65 L= 29)   572     80        1 (1640/1600-1718/1644) -38.7 W61-W69 N17-N21
      4  810 1598 (N43W02 L=325)   401     98        0 ( 786/1548- 836/1636)  50.2 W00-W05 N39-N45
      5 1760 1496 (N11W65 L= 29)   610     91        1 (1730/1452-1785/1537)  80.5 W63-W67 N07-N13
      6 1585 1114 (S05W35 L=358)  2179    484        1 (1528/ 885-1618/1322)  57.5 W26-W41 S16-N06
      7  350 1102 (N23E42 L=282)  1187    297        0 ( 227/1013- 411/1193) -45.0 E54-E36 N16-N30
      8 1890 1163 (S11W64 L= 28)   436     47        0 (1868/1137-1914/1182) -26.6 W61-W67 S12-S09
      9  139 1112 (N28E67 L=257)  1609    141        2 (  87/1053- 191/1164) -21.8 E80-E58 N23-N31
     10  770 1086 (N13E13 L=310)   647    222        1 ( 689/1036- 866/1150) -51.3 E16-E08 N08-N18
     11  269 1100 (N25E50 L=274)   826    113        2 ( 227/1053- 302/1148) -60.3 E54-E46 N21-N28
     12  326  973 (N16E46 L=278)   452     98        0 ( 266/ 955- 373/ 995)   0.0 E51-E41 N14-N16
     13  218  960 (N17E57 L=267)   344     42        0 ( 202/ 932- 233/ 987)  56.3 E58-E54 N15-N18
     14  348  866 (N10E46 L=277)   283     50        0 ( 327/ 836- 365/ 888) -71.6 E47-E44 N07-N10
     15  258  729 (N03E58 L=265)   922    175        1 ( 206/ 677- 297/ 775) -45.0 E63-E54 N00-N06
     16 1281  614 (S26W05 L=329)   486    187        0 (1222/ 553-1352/ 676)  21.8 W00-W10 S28-S23
     17 1759  574 (S44W46 L= 10)  1160    151        1 (1693/ 527-1824/ 625)   6.7 W38-W55 S45-S40
     18  359  535 (S10E58 L=266)   351     46        1 ( 337/ 520- 390/ 556) -21.8 E59-E54 S10-S08
     19 1392  381 (S46W08 L=331)   283     38        1 (1367/ 364-1411/ 403)   0.0 W05-W09 S47-S43
     20  743  257 (S36E45 L=278)   854    133        0 ( 690/ 219- 789/ 310)  11.3 E52-E37 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