Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  205 1364 (N25E70 L=332)   787     99        1 ( 177/1320- 234/1408) -15.5 E82-E63 N22-N27
      2  375 1279 (N21E46 L=357)   978    184        0 ( 293/1250- 449/1317)  -3.8 E54-E39 N18-N23
      3  598 1288 (N21E28 L= 15)   220     71        2 ( 582/1249- 622/1314) -76.0 E29-E26 N18-N22
      4 1823 1269 (N14W63 L=106)   892     80        3 (1790/1231-1854/1307)  76.0 W59-W66 N12-N16
      5  642 1164 (N13E24 L= 19)   227     77        0 ( 604/1147- 674/1190) -11.3 E26-E21 N12-N15
      6 1345 1037 (N04W20 L= 63)   361    145        0 (1291/ 989-1407/1081)  26.6 W16-W24 N01-N06
      7  456  972 (N02E37 L=  6)   627    205        0 ( 383/ 913- 539/1024) -24.4 E43-E31 S01-N04
      8 1432  948 (S02W25 L= 68)   264     93        0 (1417/ 902-1450/ 991) -63.4 W24-W26 S04-N00
      9 1006  914 (S02E01 L= 41)   342     94        1 ( 977/ 877-1036/ 964)  63.4 E03-W00 S04-N00
     10 1834  932 (S06W59 L=102)   633     85        1 (1786/ 917-1874/ 946) -10.3 W53-W64 S07-S04
     11  642  845 (S06E25 L= 18)   559    179        0 ( 574/ 812- 686/ 909)  26.6 E29-E21 S07-S02
     12 1354  793 (S11W20 L= 63)   909    351        1 (1213/ 709-1460/ 895)  33.7 W11-W27 S16-S05
     13 1882  856 (S11W67 L=110)   647     89        0 (1853/ 820-1922/ 882)  15.3 W63-W74 S13-S10
     14  318  715 (S14E52 L=351)   858    192        2 ( 270/ 622- 363/ 795) -74.7 E55-E49 S20-S09
     15  411  653 (S18E45 L=358)   359     79        1 ( 387/ 620- 450/ 676)  29.7 E47-E40 S20-S16
  

    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