Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  715 1827 (N36E48 L=274)   461     64        2 ( 687/1809- 746/1844)   0.0 E50-E44 N34-N38
      2  546 1483 (N09E41 L=280)  2740    564        4 ( 497/1263- 620/1705) -62.6 E46-E31 S03-N24
      3  243 1484 (N05E70 L=251)   766    163        1 ( 212/1463- 269/1502)  -9.5 E78-E66 N03-N06
      4 1794 1459 (N42W47 L=  8)   570    130        0 (1774/1431-1824/1478)  35.5 W44-W51 N39-N44
      5 1665 1382 (N31W33 L=354)   411     82        1 (1622/1357-1701/1402)   8.1 W29-W36 N29-N32
      6 1347 1291 (N16W12 L=333)   476    153        0 (1306/1217-1378/1375) -45.0 W08-W15 N11-N19
      7  187 1229 (S11E64 L=257)  1233    192        2 ( 143/1175- 219/1293)  63.4 E68-E61 S14-S06
      8  253 1164 (S14E55 L=266)  1220    315       -1 ( 164/1140- 339/1183)   6.3 E65-E47 S15-S11
      9 1393 1079 (N05W20 L=341)   232     47        1 (1362/1055-1422/1099)  14.0 W17-W21 N03-N05
     10 1745  971 (N09W46 L=  8)   459     82        0 (1728/ 924-1762/1017) -53.1 W44-W48 N06-N10
     11  765  915 (S19E13 L=308)   322    109        0 ( 713/ 897- 833/ 932)  23.2 E15-E08 S21-S16
     12 1461  687 (S15W35 L=356)   647    147        0 (1385/ 640-1528/ 742)  59.0 W31-W37 S19-S09
     13 1703  554 (S14W59 L= 21)   802    126        2 (1650/ 502-1741/ 611)  69.4 W56-W62 S18-S10
     14 1585  426 (S25W57 L= 18)  1608    185        2 (1531/ 390-1649/ 474)  40.6 W51-W61 S27-S21
  

    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