Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1097 1487 (N27W14 L=211)   503    130        0 (1034/1441-1150/1519) -54.5 W10-W16 N23-N30
      2 1566 1375 (N11W41 L=238)   719    141        0 (1506/1325-1630/1405) -40.6 W37-W44 N07-N14
      3  786 1362 (N26E08 L=189)   359    121        0 ( 724/1331- 829/1401)  14.0 E12-E04 N24-N27
      4  886 1229 (N16E04 L=193)   551    287        0 ( 776/1178- 997/1283)  -4.4 E11-W02 N13-N17
      5 1882 1088 (S11W62 L=259)  1889     84        1 (1839/1019-1924/1154)  76.0 W56-W68 S15-S07
      6  209 1056 (N18E56 L=141)  2263    173        6 ( 141/ 992- 291/1117) -21.3 E65-E47 N14-N22
      7 1287 1035 (S03W15 L=213)   286     99        0 (1234/1016-1332/1047) -18.4 W11-W17 S04-S01
      8 1277  887 (S11W12 L=209)   757    325        0 (1167/ 845-1405/ 938) -19.7 W06-W20 S13-S05
      9 1750  643 (S36W47 L=245)  2296    445        2 (1594/ 533-1922/ 786)  15.1 W31-W70 S40-S30
     10 1547  746 (S25W28 L=225)   217     40        0 (1530/ 722-1565/ 772)  33.7 W26-W29 S25-S23
     11  617  621 (S14E33 L=164)  1936    406        4 ( 493/ 480- 742/ 751)  35.8 E41-E21 S22-S08
     12  191  640 (S06E71 L=126)  1273    110        2 ( 163/ 580- 219/ 692) -90.0 E75-E68 S10-S02
     13  383  525 (S16E55 L=142)  3145    373        3 ( 286/ 412- 441/ 692)  24.4 E81-E47 S21-S06
     14  820  645 (S16E20 L=178)   241     67        0 ( 805/ 602- 837/ 676)  45.0 E21-E17 S18-S14
     15  474  583 (S14E44 L=153)   390     81        0 ( 443/ 537- 496/ 614) -90.0 E46-E42 S16-S11
     16 1497  463 (S43W23 L=220)   562    100        1 (1443/ 439-1539/ 503)  -6.3 W18-W27 S44-S40
     17  549  413 (S26E47 L=150)   927    180        0 ( 472/ 386- 644/ 448)  -3.6 E54-E38 S27-S24
     18  942  363 (S37E21 L=176)   253     29        0 ( 925/ 340- 960/ 389)  76.0 E22-E19 S38-S34
     19 1292  347 (S47W04 L=201)   292     57        0 (1266/ 333-1327/ 360)   0.0 W01-W07 S48-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