Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  894 1877 (N56E24 L=288)   820    122        1 ( 855/1833- 951/1896)  26.6 E28-E18 N51-N59
      2  910 1731 (N42E15 L=297)   869    143        2 ( 855/1696- 971/1777) -28.6 E20-E09 N38-N45
      3  951 1637 (N34E10 L=302)   253     68        0 ( 938/1598- 962/1676)  90.0 E10-E08 N31-N37
      4 1127 1571 (N31W03 L=315)   397    163        0 (1107/1500-1145/1642) -78.7 W01-W04 N25-N35
      5  382 1578 (N28E55 L=256)   606    117        0 ( 355/1523- 413/1616) -80.5 E57-E52 N24-N30
      6  513 1553 (N26E40 L=271)   378     97        0 ( 496/1502- 541/1595) -81.9 E41-E38 N22-N29
      7  645 1563 (N27E30 L=281)   514    121        0 ( 593/1513- 678/1590) -26.6 E34-E26 N23-N29
      8 1208 1372 (N18W09 L=321)   231     75        0 (1175/1358-1249/1385)  26.6 W07-W11 N16-N18
      9  688  831 (S18E20 L=291)   312     98        0 ( 670/ 786- 709/ 886)  71.6 E21-E18 S20-S14
     10  474  762 (S23E36 L=275)   874    209        0 ( 402/ 691- 571/ 813)  25.0 E43-E28 S27-S19
     11  851  733 (S23E09 L=302)   202     69        0 ( 810/ 722- 891/ 745)   0.0 E12-E06 S23-S22
     12  540  526 (S38E35 L=276)   291     41        0 ( 514/ 508- 563/ 546)  31.0 E37-E32 S39-S36
     13  816  494 (S39E12 L=299)   625    111        2 ( 772/ 462- 872/ 535)  26.6 E15-E07 S41-S36
  

    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