Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1421 1784 (N45W62 L=351)  2449    207        5 (1371/1715-1459/1853)  12.7 W52-W84 N39-N47
      2  791 1742 (N60E03 L=287)   562     95        1 ( 769/1698- 820/1783)  49.4 E06-W01 N56-N63
      3 1327 1549 (N32W33 L=323)  1899    404        2 (1200/1480-1511/1631) -46.7 W25-W43 N23-N40
      4  419 1437 (N42E42 L=248)  1759    357        5 ( 264/1395- 577/1486)  -9.9 E65-E25 N37-N46
      5 1840 1379 (N09W71 L=  1)   685     34        1 (1820/1359-1864/1402) -31.0 W68-W75 N07-N10
      6 1041 1087 (N10W02 L=292)   467    162        0 ( 983/1024-1106/1139) -66.0 W00-W04 N05-N14
      7 1842 1024 (S10W58 L=347)   529    107        0 (1827/ 965-1855/1073)  56.3 W55-W60 S13-S07
      8  424  947 (N11E40 L=249)   268     93        1 ( 406/ 899- 442/ 992) -80.5 E41-E39 N07-N13
      9 1431  859 (S10W22 L=311)   262    115        0 (1402/ 809-1471/ 890)  53.1 W19-W24 S13-S08
     10 1581  608 (S30W31 L=320)  2032    445        2 (1430/ 513-1720/ 773)  19.8 W18-W43 S35-S22
     11  383  562 (S12E54 L=236)   350     49        1 ( 366/ 533- 405/ 589)  63.4 E55-E51 S14-S10
     12 1330  456 (S35W10 L=300)   255     42        2 (1307/ 440-1359/ 475) -36.9 W08-W12 S36-S33
     13  482  418 (S23E53 L=237)   429     67        0 ( 455/ 392- 514/ 445) -63.4 E54-E50 S25-S21
     14  887  234 (S44E31 L=258)  3021    425        8 ( 725/ 172-1083/ 321)   3.0 E52-E11 S48-S40
  

    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