Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1494 1767 (N35W57 L=173)  1345    349        3 (1430/1726-1552/1812)   7.1 W49-W65 N33-N37
      2  841 1649 (N45W03 L=119)   448    139        1 ( 767/1616- 914/1673)   0.0 E03-W09 N43-N46
      3  410 1587 (N52E39 L= 77)   493    119        1 ( 371/1569- 446/1600) -11.3 E44-E34 N50-N53
      4  427 1411 (N38E34 L= 82)   283     71        2 ( 402/1383- 455/1430)  11.3 E36-E31 N36-N39
      5 1034 1334 (N20W07 L=123)   481    178        0 ( 942/1307-1117/1354) -21.8 W01-W11 N16-N22
      6 1845 1263 (S02W63 L=179)  2220    367        2 (1782/1179-1906/1351)  14.6 W53-W77 S05-N01
      7 1579 1289 (N05W40 L=156)   600    166        1 (1528/1203-1617/1343) -83.7 W37-W41 N00-N09
      8  900 1211 (N15E03 L=112)   248    116        0 ( 839/1194- 959/1226) -26.6 E06-W00 N13-N16
      9  171 1029 (N19E60 L= 56)  2566    390        7 ( 106/ 926- 270/1146) -47.0 E66-E51 N11-N26
     10 1756 1049 (S12W48 L=163)   287     62        0 (1731/1023-1776/1081)  21.8 W44-W50 S13-S10
     11 1402  597 (S31W15 L=131)   327    125        3 (1374/ 560-1428/ 650)  51.3 W12-W17 S33-S28
     12  972  506 (S27E15 L=101)   806    228        1 ( 935/ 413-1002/ 610)  53.1 E20-E10 S32-S20
     13 1625  533 (S42W33 L=149)   364     62        0 (1591/ 504-1655/ 560)  21.8 W29-W35 S43-S40
     14  471  362 (S26E57 L= 59)  1372    323        3 ( 452/ 282- 507/ 425)  42.3 E63-E51 S31-S21
     15  864  234 (S44E36 L= 80)   412     87        0 ( 846/ 206- 882/ 266)  51.3 E39-E33 S46-S41
  

    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