Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  533 1631 (N16E51 L=170)  1174    196        0 ( 516/1534- 548/1726) -42.7 E58-E45 N10-N22
      2 1524 1673 (N51W15 L=236)   879    141        1 (1458/1633-1581/1717)  -3.8 W07-W22 N49-N53
      3  166 1187 (S17E67 L=153)  1744    155        3 ( 136/1107- 203/1253)  66.0 E72-E63 S21-S12
      4  368 1066 (S20E43 L=178)  1103    202        3 ( 279/1017- 460/1099)  29.7 E50-E35 S24-S16
      5 1679 1004 (N12W40 L=260)   254     34        1 (1656/ 984-1699/1024)   0.0 W37-W41 N10-N13
      6  165  901 (S34E65 L=156)  1215    219        1 ( 103/ 818- 223/ 975)  22.9 E84-E55 S39-S28
      7 1705  912 (N08W44 L=265)   314     45        0 (1681/ 890-1730/ 936) -11.3 W41-W46 N06-N08
      8  778  737 (S29E06 L=214)  1219    294        1 ( 735/ 650- 843/ 828) -85.2 E09-W00 S33-S21
      9  926  689 (S27W04 L=225)   261     68        0 ( 891/ 676- 966/ 704)  21.8 W01-W06 S28-S25
     10 1514  587 (S15W43 L=264)   291     78        0 (1477/ 571-1555/ 601)  18.4 W40-W46 S16-S13
     11 1619  525 (S15W55 L=275)  1401    267        3 (1551/ 452-1673/ 584)  84.3 W48-W60 S20-S10
     12 1513  479 (S20W49 L=270)   368     86        1 (1482/ 441-1538/ 519) -71.6 W48-W51 S23-S17
     13  660  472 (S49E08 L=213)   249     49        0 ( 640/ 445- 678/ 502) -36.9 E09-E05 S51-S47
     14  842  402 (S48W10 L=231)  1423    277        1 ( 718/ 345- 971/ 446)   7.4 E01-W22 S50-S44
     15 1195  193 (S48W55 L=276)  1599    221        3 (1088/ 134-1268/ 239)   3.5 W41-W74 S50-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