Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1107 1573 (N28E06 L=194)   935    222        3 (1038/1481-1166/1660) -39.8 E12-W00 N22-N32
      2  404 1577 (N17E55 L=145)  1964    175        8 ( 335/1512- 456/1642)  53.1 E60-E50 N12-N21
      3  847 1489 (N17E20 L=180)   492    217        0 ( 767/1417- 886/1524)  23.2 E24-E16 N13-N19
      4  536 1344 (N04E36 L=164)   954    314        2 ( 512/1191- 556/1495) -68.7 E39-E32 S05-N13
      5  386 1427 (N07E50 L=150)   504    133        3 ( 364/1356- 403/1484) -63.4 E53-E47 N02-N10
      6  281 1160 (S10E52 L=148)  1206    326        4 ( 202/1040- 353/1262)  51.8 E58-E47 S17-S03
      7 1676 1167 (N15W38 L=238)   765    235        2 (1563/1130-1794/1189)  14.7 W29-W48 N10-N18
      8  141 1072 (S16E68 L=132)  1283    140        4 (  99/1013- 171/1132)  41.2 E74-E63 S19-S12
      9  892 1084 (S06E09 L=191)   320    108        1 ( 842/1056- 944/1109)   9.5 E11-E05 S07-S04
     10  697  949 (S17E18 L=182)   779    330        1 ( 573/ 879- 802/1072)  51.3 E25-E13 S22-S07
     11  344  919 (S24E44 L=156)   287     88        0 ( 294/ 903- 384/ 931)   0.0 E48-E40 S24-S22
     12  223  898 (S26E57 L=143)   424     86        0 ( 194/ 862- 256/ 930)  32.0 E60-E52 S28-S23
     13 1547  732 (S12W38 L=238)   629    207        3 (1489/ 707-1619/ 782)  11.3 W33-W43 S14-S10
     14  581  664 (S36E24 L=176)   657    123        3 ( 527/ 618- 640/ 710)  37.9 E28-E19 S39-S32
  

    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