Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1445 1717 (N52W07 L=228)  1789    328        3 (1286/1635-1574/1793)   1.9 E09-W21 N49-N54
      2  527 1635 (N16E52 L=169)  1050    170        0 ( 509/1562- 544/1725) -40.2 E59-E46 N11-N22
      3  162 1187 (S17E68 L=153)  1859    160        3 ( 135/1106- 199/1256)  66.0 E72-E64 S21-S12
      4 1297 1203 (N11W10 L=231)   306    119        0 (1244/1156-1329/1229)  -9.5 W06-W12 N09-N12
      5  360 1071 (S20E43 L=178)  1190    192        4 ( 274/1019- 450/1122)  26.6 E50-E36 S24-S16
      6 1671 1011 (N12W39 L=260)   323     45        1 (1643/ 989-1694/1034)   0.0 W36-W41 N10-N13
      7  189  957 (S30E61 L=160)   378     52        0 ( 158/ 934- 221/ 977)  18.4 E65-E56 S31-S28
      8 1702  912 (N08W44 L=265)   284     37        0 (1677/ 890-1728/ 938) -11.3 W41-W46 N06-N08
      9  776  743 (S28E07 L=214)  1195    306        0 ( 731/ 664- 852/ 835) -79.7 E09-W00 S32-S21
     10 1540  598 (S14W45 L=266)   501    153        0 (1473/ 573-1623/ 623)  33.7 W39-W50 S16-S09
     11 1614  526 (S15W54 L=275)  1436    266        4 (1545/ 456-1669/ 590)  78.7 W48-W59 S20-S10
     12  827  409 (S48W09 L=230)  1275    242        2 ( 717/ 370- 947/ 448)   8.5 E01-W19 S50-S44
     13 1132  221 (S49W46 L=267)   453     91        0 (1087/ 204-1175/ 240)  18.4 W41-W51 S50-S47
     14 1231  177 (S48W61 L=282)  1122     86        5 (1195/ 136-1267/ 219)  -5.4 W51-W73 S49-S45
  

    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