Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1382 1701 (N35W48 L= 49)   532     98        1 (1358/1665-1408/1738)  59.0 W45-W51 N32-N37
      2 1736 1441 (N09W61 L= 62)   491     75        1 (1705/1400-1760/1480) -78.7 W59-W63 N06-N11
      3 1599 1352 (N09W45 L= 45)  1804    413        2 (1461/1177-1668/1435)  86.6 W37-W50 N00-N17
      4 1186 1417 (N25W21 L= 22)   312     77        0 (1151/1400-1235/1432) -21.8 W18-W23 N23-N26
      5  512 1304 (N36E27 L=333)   399    131        1 ( 448/1289- 558/1321) -12.5 E32-E23 N34-N37
      6  212  986 (N22E58 L=303)  1077    239        2 ( 161/ 903- 276/1073) -54.0 E62-E53 N16-N27
      7  779  971 (N10E15 L=345)   396    133        1 ( 738/ 939- 821/1021)  26.6 E18-E12 N08-N12
      8 1872  978 (S21W57 L= 58)   487    152        1 (1833/ 954-1901/1003)   0.0 W52-W60 S23-S19
      9  532  932 (N13E32 L=329)   598    241        1 ( 441/ 858- 651/ 988) -45.0 E37-E25 N06-N18
     10 1399  839 (S13W17 L= 17)   679    190        1 (1329/ 789-1431/ 927)  29.1 W11-W20 S15-S08
     11  248  762 (N08E61 L=300)   475     94        1 ( 228/ 721- 262/ 807)  59.0 E64-E58 N05-N10
     12  195  712 (N06E71 L=290)   922    146        4 ( 172/ 676- 224/ 759) -78.7 E75-E67 N03-N08
     13  740  565 (S13E29 L=332)   375     56        0 ( 703/ 546- 779/ 587) -45.0 E30-E26 S14-S10
     14  440  421 (S16E58 L=302)  2792    413        7 ( 390/ 301- 491/ 539)  68.7 E67-E50 S25-S07
     15  741  391 (S24E36 L=324)  1051    341        1 ( 666/ 286- 828/ 463)  21.8 E47-E27 S29-S19
  

    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