Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  607 1275 (N26E20 L=336)   264     87        0 ( 574/1249- 648/1307) -51.3 E22-E17 N23-N29
      2 1767 1199 (S05W52 L= 48)   746    138        1 (1709/1159-1826/1240)   4.4 W45-W58 S06-S03
      3 1518 1114 (S03W31 L= 27)  1684    401        1 (1406/ 941-1573/1236) -81.0 W26-W33 S14-N05
      4  564 1171 (N21E25 L=331)   575    184        1 ( 461/1148- 639/1199) -13.0 E32-E19 N18-N22
      5 1817 1102 (S11W54 L= 50)  1248    169        2 (1789/1023-1850/1183)  48.8 W50-W58 S15-S07
      6  921 1127 (N11E04 L=353)   393    125        0 ( 859/1108- 987/1151) -39.8 E06-W00 N08-N13
      7 1711 1061 (S11W43 L= 39)   478    108        1 (1691/1023-1741/1119)  59.0 W41-W45 S13-S07
      8 1864  859 (S27W57 L= 53)  1025    146        4 (1811/ 825-1919/ 909) -25.0 W50-W66 S29-S22
      9 1116  800 (S12W00 L=356)   785    189        4 (1041/ 757-1179/ 864)  29.7 E04-W03 S14-S08
     10  929  535 (S23E17 L=339)  3332    984        3 ( 628/ 255-1229/ 795)  20.2 E52-W05 S35-S13
     11 1703  667 (S35W39 L= 35)   632     96        2 (1667/ 613-1735/ 706) -60.3 W35-W42 S38-S31
     12 1766  587 (S43W48 L= 44)  2753    166        6 (1710/ 536-1822/ 664) -45.0 W41-W58 S48-S36
     13  642  636 (S11E32 L=324)   219     79        0 ( 597/ 619- 672/ 660)   0.0 E34-E29 S11-S09
     14 1705  497 (S48W43 L= 39)   878    122        2 (1680/ 426-1726/ 548) -84.3 W39-W45 S53-S43
     15  422  427 (S19E58 L=298)   450     61        0 ( 398/ 397- 437/ 452)  45.0 E61-E56 S20-S17
  

    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