Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  594 1715 (N26E52 L=222)  2042    272        4 ( 516/1639- 692/1776)  77.0 E56-E46 N19-N32
      2 1172 1478 (N26E03 L=271)  1815    430        3 (1069/1279-1223/1634) -51.3 E14-W04 N14-N34
      3  480 1609 (N17E54 L=220)   408     32        1 ( 455/1593- 512/1628)  14.0 E56-E50 N15-N18
      4 1877 1150 (N27W60 L=334)  2289    300        2 (1814/1011-1933/1279) -39.1 W51-W70 N20-N33
      5  372 1128 (S13E44 L=231)   355    108        0 ( 356/1078- 389/1184) -51.3 E45-E41 S15-S10
      6 1499 1096 (N12W26 L=300)   206     63        0 (1488/1060-1508/1136) -76.0 W24-W26 N10-N14
      7  186 1068 (S20E62 L=213)   906    165        0 ( 147/ 993- 244/1115)  39.3 E67-E55 S25-S16
      8  510  973 (S19E30 L=244)   449    172        0 ( 488/ 920- 546/1043) -74.1 E31-E26 S21-S14
      9  235  963 (S26E54 L=220)   709    100        0 ( 181/ 939- 285/ 998)  22.6 E61-E49 S28-S22
     10 1682  876 (N05W44 L=319)   878    221        1 (1614/ 807-1725/ 978)  74.7 W40-W46 N00-N11
     11  829  892 (S16E08 L=266)   186     60        1 ( 804/ 871- 852/ 916)  56.3 E09-E06 S17-S14
     12  522  496 (S50E24 L=251)  1639    255        2 ( 427/ 426- 626/ 584) -15.9 E34-E11 S52-S45
     13 1741  477 (S14W72 L=347)  1076    106        2 (1688/ 458-1793/ 510)  26.6 W65-W79 S16-S10
     14 1071  222 (S52W39 L=313)   335     38        0 (1054/ 196-1085/ 248) -18.4 W34-W43 S54-S50
  

    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