Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1579 1575 (N43W25 L=151)   335     54        0 (1553/1550-1597/1594) -11.3 W22-W27 N40-N44
      2  289 1367 (S02E59 L= 67)   684    106        3 ( 237/1336- 334/1401)  16.7 E64-E54 S03-N00
      3 1501 1183 (N14W24 L=150)   578    231        0 (1470/1079-1521/1288) -59.7 W19-W26 N07-N19
      4  179 1154 (S16E65 L= 61)  2069    281        8 ( 122/1069- 233/1268)  61.7 E73-E59 S21-S08
      5 1858  873 (N08W61 L=187)  1646    144        3 (1791/ 818-1921/ 925)  32.7 W55-W70 N03-N12
      6 1370  737 (S14W28 L=154)   567    200        1 (1303/ 667-1443/ 802)  74.7 W25-W30 S19-S08
      7  838  696 (S30E03 L=123)   818    199        2 ( 776/ 641- 931/ 737)  36.9 E07-W01 S34-S25
      8 1158  456 (S36W27 L=153)   279    107        0 (1113/ 434-1209/ 474)  14.0 W23-W31 S37-S35
  

    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