Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1331 1587 (N41W11 L=192)   578    114        1 (1293/1544-1367/1629) -35.5 W07-W14 N38-N44
      2  318 1535 (N18E68 L=113)   693     43        3 ( 298/1508- 336/1564) -31.0 E72-E64 N16-N19
      3  424 1425 (N13E49 L=132)   729    231        1 ( 363/1355- 502/1504)  63.4 E53-E46 N07-N18
      4 1626 1396 (N34W37 L=219)   513    118        0 (1573/1371-1661/1419)   7.1 W32-W40 N31-N35
      5 1720 1231 (N24W46 L=227)   491    116        2 (1698/1179-1744/1277) -56.3 W43-W48 N21-N27
      6 1826 1159 (N22W58 L=239)   858    127        2 (1800/1101-1846/1216)  82.9 W54-W61 N18-N26
      7  146 1134 (S09E72 L=110)  1042    116        0 ( 122/1095- 173/1162) -26.6 E77-E66 S11-S07
      8  206  995 (S17E60 L=121)  1838    306        5 ( 168/ 881- 251/1095) -85.6 E66-E54 S23-S10
      9 1684  992 (N09W44 L=226)   267     40        1 (1666/ 970-1703/1015)  71.6 W42-W45 N07-N10
     10  706  766 (S22E15 L=166)  1866    419        3 ( 547/ 652- 865/ 891)  47.9 E26-E06 S32-S11
     11  314  802 (S27E48 L=133)   487    104        0 ( 296/ 752- 339/ 854)  54.5 E50-E45 S30-S23
     12 1579  583 (S17W47 L=229)   307     19        1 (1557/ 565-1602/ 600)  14.0 W45-W49 S18-S16
     13 1553  507 (S22W49 L=231)   655    149        2 (1481/ 476-1614/ 551)  41.2 W44-W53 S25-S18
     14 1119  203 (S55W38 L=219)  1931    275        4 ( 995/ 183-1252/ 235)  22.2 W25-W48 S60-S48
  

    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