Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  185 1331 (N07E67 L=135)   489     87        0 ( 159/1315- 207/1343) -14.0 E71-E63 N05-N07
      2  222 1145 (S05E58 L=145)   398     77        0 ( 199/1113- 241/1182)  53.1 E59-E56 S06-S02
      3 1164 1057 (S02W08 L=210)   314     99        0 (1109/1024-1221/1079) -15.9 W04-W11 S03-S01
      4 1289  951 (S07W17 L=219)   221     46        1 (1265/ 924-1318/ 984)  90.0 W15-W18 S08-S04
      5 1417  863 (S10W26 L=228)   429     93        1 (1380/ 811-1456/ 912)  81.9 W23-W27 S13-S06
      6  851  859 (S17E09 L=194)   287    112        0 ( 823/ 798- 882/ 911)  69.4 E10-E07 S21-S13
      7 1259  845 (S13W16 L=219)   352    137        1 (1180/ 830-1323/ 870)  12.5 W11-W20 S14-S11
      8  247  722 (S30E55 L=147)  2050    421        1 ( 198/ 599- 301/ 860)  52.6 E63-E48 S38-S21
      9 1703  704 (S15W51 L=253)  2031    327        1 (1563/ 606-1825/ 793)  36.4 W41-W60 S22-S07
     10  991  700 (S25W02 L=204)   562    171        0 ( 914/ 633-1079/ 737)  37.9 E02-W07 S30-S22
     11 1422  685 (S21W30 L=232)   389    122        2 (1364/ 659-1477/ 710)  -6.3 W25-W34 S21-S19
     12 1314  592 (S28W25 L=227)  1490    428        2 (1129/ 527-1476/ 670)   9.5 W12-W36 S31-S23
     13 1727  467 (S28W63 L=265)  1095    138        2 (1688/ 434-1764/ 513)  33.7 W60-W66 S30-S25
     14 1372  317 (S45W42 L=244)   561     71        0 (1325/ 303-1412/ 337)  31.0 W38-W44 S46-S43
  

    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