Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1513 1602 (N36W34 L=308)   317     52        0 (1495/1575-1539/1620)  31.0 W32-W37 N33-N37
      2 1361 1576 (N32W21 L=294)   277     45        0 (1348/1541-1372/1609)  78.7 W20-W22 N29-N34
      3 1717 1454 (N27W50 L=323)  1199    169        1 (1648/1398-1783/1504) -28.6 W44-W55 N23-N29
      4  208 1420 (N19E67 L=207)   913     76        1 ( 189/1381- 229/1461) -51.3 E70-E64 N16-N21
      5  457 1273 (N09E37 L=236)   598    150        2 ( 383/1246- 531/1294)  -9.5 E43-E31 N07-N10
      6 1877 1261 (N16W63 L=337)   584     63        1 (1843/1230-1908/1282) -14.0 W59-W67 N14-N17
      7  176  980 (S08E61 L=212)   782    107        2 ( 127/ 936- 216/1002)  -4.8 E68-E56 S11-S06
      8  289  928 (S12E50 L=224)   500     77        0 ( 269/ 887- 310/ 967)  51.3 E52-E47 S14-S09
      9 1364  590 (S29W26 L=299)  2064    448        2 (1278/ 461-1483/ 715)  76.0 W20-W34 S37-S20
     10 1538  579 (S28W40 L=313)   260     92        0 (1510/ 540-1562/ 620)  68.2 W38-W40 S30-S25
     11  432  565 (S34E44 L=229)  1148    262        0 ( 326/ 499- 536/ 605)  11.3 E59-E34 S38-S31
     12 1585  337 (S44W61 L=334)  1859    163        3 (1509/ 310-1668/ 366)   0.0 W48-W81 S45-S42
     13  876  329 (S51E09 L=264)  1910    362        4 ( 685/ 306-1025/ 364)   7.1 E28-W04 S53-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