Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  740 1713 (N31E37 L= 65)  1316    238        1 ( 645/1645- 827/1785) -15.9 E48-E27 N26-N35
      2  419 1658 (N22E62 L= 40)  3092    231        8 ( 377/1541- 483/1727) -57.3 E73-E53 N13-N27
      3 1117 1649 (N34E08 L= 94)   735    114        2 (1074/1594-1155/1688) -35.5 E11-E04 N30-N36
      4  726 1591 (N22E32 L= 70)   245     84        0 ( 692/1561- 762/1615)  63.4 E32-E29 N19-N23
      5 1087 1297 (N10E02 L=100)  1177    465        2 (1050/1106-1121/1495) -62.4 E08-W03 N00-N21
      6 1339 1376 (N20W12 L=114)   652    235        2 (1252/1301-1430/1428) -13.0 W05-W18 N17-N22
      7 1765 1300 (N27W46 L=148)  1135    146        0 (1739/1231-1792/1380) -84.3 W43-W48 N22-N32
      8 1823 1348 (N32W54 L=156)   458     77        0 (1789/1318-1852/1366)   0.0 W49-W57 N31-N33
      9 1316  813 (S13W22 L=124)   470    122        1 (1274/ 751-1351/ 860) -50.2 W18-W24 S16-S10
     10 1438  792 (S11W30 L=132)   544    183        2 (1364/ 757-1528/ 823)  31.0 W25-W35 S14-S07
     11  953  730 (S25W02 L=104)   438    120        1 ( 898/ 690- 995/ 764) -15.9 E02-W05 S27-S23
     12  878  605 (S35E00 L=102)   251     55        0 ( 846/ 593- 914/ 622)   0.0 E02-W02 S35-S33
     13 1480  422 (S31W50 L=152)   539    113        0 (1433/ 404-1531/ 451)   0.0 W44-W55 S31-S29
     14  838  204 (S68W14 L=116)   963    135        3 ( 772/ 170- 897/ 242)   0.0 W03-W26 S70-S65
  

    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