Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1281 1792 (N46W36 L=358)   701     91        1 (1246/1755-1312/1839)  22.6 W31-W43 N43-N50
      2 1386 1560 (N28W32 L=354)   683    137        1 (1345/1500-1442/1596)  32.0 W28-W37 N24-N29
      3  907 1572 (N35E01 L=321)   536    169        1 ( 833/1535- 976/1593) -12.5 E06-W03 N31-N36
      4  303 1402 (N31E50 L=272)   894    150        2 ( 261/1334- 340/1471) -42.3 E58-E45 N26-N36
      5 1504 1323 (N12W34 L=356)   521     49        2 (1471/1289-1537/1355) -76.0 W31-W35 N09-N13
      6  393 1199 (N17E39 L=283)   483    105        1 ( 361/1152- 434/1245) -50.2 E42-E36 N13-N19
      7 1926 1161 (S02W71 L= 33)  1717    162        2 (1877/1085-1969/1217) -37.9 W64-W78 S06-N01
      8  320 1004 (N06E46 L=276)  2244    360        3 ( 188/ 944- 473/1053)  -9.1 E59-E34 N01-N09
      9 1731  946 (S13W46 L=  8)   588    112        2 (1700/ 897-1764/1002)  56.3 W43-W49 S15-S09
     10 1794  915 (S15W52 L= 14)   559     73        1 (1760/ 882-1827/ 950)  15.9 W48-W55 S17-S13
     11 1783  854 (S19W51 L= 14)   414     71        0 (1757/ 815-1804/ 884) -59.0 W48-W53 S21-S16
     12  729  795 (S11E20 L=302)   468    174        4 ( 704/ 724- 756/ 877)  77.5 E22-E18 S15-S06
     13 1333  667 (S26W16 L=338)  4553   1011        6 ( 859/ 530-1726/ 829)   7.4 E17-W45 S29-S19
     14  299  656 (S14E56 L=266)   757    174        1 ( 275/ 586- 316/ 732)  60.9 E61-E53 S18-S09
     15  393  680 (S14E47 L=276)   527    123        1 ( 341/ 649- 453/ 701)  -6.3 E50-E41 S15-S11
     16  723  578 (S24E25 L=297)   562    108        3 ( 697/ 531- 748/ 630)  50.2 E27-E22 S26-S20
     17  547  574 (S22E38 L=284)   234    100        0 ( 525/ 539- 576/ 619) -78.7 E38-E36 S24-S19
     18 1718  528 (S40W53 L= 15)   722     58        2 (1685/ 497-1752/ 561)  18.4 W48-W56 S42-S37
     19 1474  455 (S42W28 L=350)   770    196        4 (1385/ 426-1563/ 489)  -3.6 W20-W36 S43-S40
     20  362  401 (S31E67 L=255)  1805    137        3 ( 315/ 372- 427/ 434) -14.9 E82-E60 S33-S28
     21  901  252 (S50E25 L=297)   425     49        3 ( 883/ 223- 922/ 284)  78.7 E28-E22 S52-S47
  

    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