Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1086 1772 (N52E11 L=162)   680    130        0 (1023/1747-1150/1794)  31.0 E16-E05 N48-N54
      2  741 1564 (N29E29 L=144)  2097    402        2 ( 584/1461- 907/1646) -14.5 E45-E14 N24-N32
      3 1614 1562 (N44W42 L=215)   816     95        0 (1555/1541-1662/1588)  12.1 W34-W48 N41-N47
      4  914 1297 (N15E11 L=162)   418    148        0 ( 857/1234- 955/1342) -32.0 E15-E07 N11-N16
      5  302 1283 (N05E54 L=119)   372     65        1 ( 286/1250- 323/1312) -45.0 E56-E52 N03-N06
      6 1723 1172 (N19W46 L=219)   298     39        0 (1699/1150-1748/1191) -26.6 W44-W48 N17-N20
      7 1888 1041 (N13W66 L=239)  3355    220        4 (1850/ 945-1930/1125) -51.3 W60-W73 N07-N18
      8  241  956 (S15E55 L=118)   588     94        1 ( 226/ 907- 261/1009) -71.6 E56-E52 S18-S12
      9 1790  932 (N05W55 L=228)   717    133        0 (1774/ 865-1805/ 998) -76.0 W52-W57 N01-N09
     10  931  848 (S12E03 L=170)   414    127        0 ( 881/ 816- 980/ 892)  50.2 E05-W00 S14-S08
     11  303  811 (S24E49 L=124)   316     57        0 ( 280/ 779- 328/ 835)  38.7 E51-E46 S25-S21
     12 1000  666 (S22W04 L=177)  1760    514        0 ( 785/ 621-1165/ 779)  36.9 E09-W12 S27-S12
     13 1139  213 (S54W33 L=206)   436     60        0 (1108/ 194-1160/ 237)  45.0 W29-W36 S55-S51
  

    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