Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1446 1793 (N55W58 L=104)   519     57        0 (1433/1759-1461/1821)  26.6 W53-W67 N51-N57
      2  564 1308 (N23E31 L= 15)   304     76        1 ( 541/1279- 594/1341) -53.1 E32-E28 N20-N24
      3  345 1283 (N21E49 L=356)  1016    196        0 ( 256/1258- 418/1312)   0.0 E59-E42 N19-N22
      4 1799 1270 (N15W60 L=105)   865    107        2 (1757/1227-1824/1302) -45.0 W55-W63 N12-N17
      5 1641 1023 (N01W41 L= 86)   300    125        0 (1629/ 958-1654/1082) -90.0 W40-W41 S02-N04
      6 1310 1043 (N04W18 L= 63)   285    118        0 (1266/1010-1360/1073)  23.2 W14-W21 N02-N05
      7  422  973 (N02E40 L=  6)   632    188        1 ( 344/ 927- 500/1026) -20.0 E46-E34 N00-N04
      8 1309  810 (S10W17 L= 63)  1371    536        0 (1119/ 677-1420/ 988)  45.0 W05-W24 S17-N00
      9  953  912 (S02E05 L= 41)   338     91        1 ( 919/ 879- 988/ 951)  36.9 E06-E02 S04-N00
     10 1807  930 (S06W56 L=102)   677     78        0 (1758/ 912-1846/ 949)   0.0 W51-W60 S06-S04
     11  605  847 (S06E27 L= 18)   533    180        0 ( 532/ 814- 649/ 904)  26.6 E32-E24 S07-S02
     12  299  710 (S15E54 L=351)   983    253        2 ( 246/ 605- 352/ 807) -72.9 E58-E51 S21-S08
     13  378  648 (S19E48 L=357)   325     75        1 ( 362/ 612- 404/ 672)  38.7 E50-E45 S21-S17
  

    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