Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  855 1811 (N49E38 L=254)   510     86        0 ( 826/1780- 896/1829)  53.1 E41-E34 N46-N51
      2  646 1721 (N37E48 L=244)   885    145        2 ( 618/1660- 688/1789) -26.6 E59-E40 N33-N42
      3  960 1688 (N41E20 L=272)   350     75        0 ( 931/1653- 981/1712) -33.7 E23-E17 N38-N42
      4  444 1640 (N28E61 L=231)   449     44        1 ( 425/1622- 468/1663) -14.0 E65-E57 N26-N29
      5 1388 1442 (N32W17 L=310)   248     68        0 (1365/1419-1419/1465) -26.6 W15-W19 N30-N33
      6 1065 1369 (N21E04 L=289)   339    101        1 (1024/1343-1115/1404) -18.4 E06-W00 N19-N22
      7  268 1223 (S01E57 L=236)  1018    173        3 ( 215/1171- 322/1297) -19.7 E65-E50 S03-N02
      8 1776  652 (S10W64 L=356)   602     87        0 (1727/ 630-1815/ 679)  24.0 W58-W68 S11-S07
      9  922  568 (S31W02 L=294)   286     90        1 ( 877/ 555- 964/ 587)  31.0 E01-W04 S32-S29
     10  971  373 (S44W11 L=303)   475    127        1 ( 936/ 322-1009/ 414)  83.7 W08-W13 S48-S39
     11 1514  346 (S34W58 L=351)   418     58        0 (1493/ 322-1529/ 378) -59.0 W55-W60 S36-S31
     12 1561  343 (S34W64 L=357)   639     55        2 (1533/ 323-1588/ 367)  76.0 W60-W69 S35-S31
     13 1127  243 (S51W32 L=325)   359     60        0 (1099/ 219-1156/ 263) -12.5 W28-W37 S53-S49
  

    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