Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1358 1634 (N30W42 L=143)   266     60        0 (1343/1602-1374/1660)  36.9 W40-W44 N28-N31
      2  773 1383 (N33E05 L= 96)   372     82        2 ( 737/1353- 812/1403)   0.0 E07-E02 N31-N34
      3  867 1195 (N20E04 L= 97)   327     87        2 ( 839/1143- 900/1241)  45.0 E06-E01 N17-N22
      4 1851 1193 (S10W61 L=161)   829    141        2 (1824/1162-1887/1233)   5.7 W56-W66 S11-S08
      5 1525 1099 (S04W31 L=132)  1046    235        2 (1490/ 995-1578/1225)  77.0 W28-W34 S10-N03
      6 1678 1128 (S07W42 L=143)   251     79        0 (1652/1096-1693/1167)  26.6 W39-W44 S08-S04
      7 1857 1040 (S18W56 L=157)   598    119        3 (1828/1009-1892/1080)  15.9 W51-W60 S19-S16
      8  299  941 (N19E49 L= 52)   481    125        0 ( 258/ 906- 344/ 985) -50.2 E52-E46 N16-N22
      9 1749  852 (S25W41 L=142)   673    125        2 (1713/ 799-1788/ 921)  32.0 W37-W45 S27-S22
     10 1866  814 (S33W53 L=154)   665    169        0 (1827/ 780-1910/ 852)   5.7 W48-W58 S33-S31
     11 1209  628 (S21E00 L=100)  1098    369        2 (1152/ 503-1245/ 851)  55.6 E07-W07 S27-S08
     12 1741  708 (S34W39 L=140)   505     92        1 (1706/ 677-1763/ 746) -78.7 W35-W41 S36-S31
     13  327  611 (S01E58 L= 42)   645    117        1 ( 312/ 567- 346/ 659)  29.7 E61-E54 S03-N01
     14  468  488 (S11E52 L= 49)   347    158        0 ( 419/ 465- 515/ 516)   0.0 E56-E46 S11-S09
     15  953  391 (S29E24 L= 77)  1204    271        3 ( 858/ 345-1032/ 466)  -9.5 E28-E16 S32-S24
  

    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