Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1629 1591 (N19W59 L=175)  2351    313        3 (1569/1456-1710/1678)  18.4 W48-W77 N12-N22
      2 1171 1600 (N33W27 L=143)   325     86        1 (1128/1577-1208/1615) -18.4 W23-W29 N30-N34
      3 1148 1485 (N26W20 L=137)   729    187        2 (1085/1405-1222/1526)  15.3 W14-W25 N23-N28
      4 1215 1354 (N17W19 L=136)   397    164        2 (1131/1303-1253/1395) -54.5 W15-W21 N14-N21
      5  921 1306 (N22W01 L=117)   522    178        1 ( 878/1238- 969/1386) -84.3 W00-W02 N17-N27
      6  697 1184 (N21E15 L=101)  1184    334        3 ( 622/1097- 843/1283) -54.5 E18-E07 N12-N28
      7 1884 1188 (S10W64 L=181)  1460    180        8 (1851/1107-1920/1272) -84.3 W60-W68 S15-S05
      8 1588 1096 (S06W35 L=151)  1908    403        2 (1520/ 900-1644/1246)  66.0 W27-W39 S16-N02
      9  309 1210 (N31E45 L= 72)   993    162        2 ( 240/1181- 382/1240)  -7.6 E52-E37 N28-N32
     10 1841 1106 (S13W56 L=173)  1412    190        5 (1808/1039-1893/1195) -84.3 W52-W62 S17-S07
     11  503 1137 (N22E29 L= 87)  1020    237        2 ( 391/1066- 598/1180) -40.2 E37-E23 N16-N27
     12 1938 1081 (S18W70 L=186)  2344    158        8 (1893/1011-1972/1157)  37.9 W61-W79 S21-S14
     13 1871 1012 (S19W58 L=174)   564     61        1 (1841/ 990-1892/1050)  18.4 W54-W60 S20-S17
     14  331 1020 (N19E44 L= 72)   252     65        1 ( 303/1005- 368/1043) -21.8 E46-E41 N18-N20
     15  603  846 (N04E28 L= 88)   514    204        0 ( 562/ 782- 680/ 928) -73.3 E29-E25 S01-N09
     16 1654  772 (S27W34 L=150)  2509    501        4 (1429/ 629-1825/ 877)   3.2 W14-W51 S29-S23
     17 1381  769 (S19W14 L=131)  1206    270        4 (1275/ 707-1507/ 830)   0.0 W06-W23 S20-S16
     18  255  754 (N06E58 L= 58)   355     48        1 ( 232/ 736- 280/ 785)  26.6 E60-E55 N04-N07
     19  766  704 (S08E22 L= 94)   344    149        0 ( 701/ 681- 836/ 732) -40.6 E25-E18 S10-S04
     20  324  531 (S08E62 L= 55)  9017      0       22 ( 209/ 368- 451/ 670)  84.3 E76-E49 S20-N00
     21 1326  196 (S62E07 L=109)   560     58        1 (1287/ 178-1362/ 215) -56.3 E10-E03 S66-S57
  

    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