Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1428 1768 (N38W62 L=324)   885     86        0 (1403/1724-1455/1805)   7.6 W55-W70 N36-N40
      2 1561 1486 (N18W49 L=310)   412     85        1 (1540/1441-1589/1521)  26.6 W46-W52 N16-N20
      3 1034 1431 (N30W12 L=273)   582    152        0 ( 963/1387-1095/1455)   0.0 W05-W16 N28-N31
      4 1717 1399 (N09W57 L=319)   599    105        1 (1671/1375-1751/1423) -14.0 W53-W61 N07-N11
      5  207  982 (N20E61 L=200)   393     83        0 ( 176/ 954- 242/1009)  12.5 E65-E56 N18-N21
      6 1755  789 (S27W44 L=305)   319     39        1 (1734/ 771-1777/ 806)   0.0 W42-W46 S27-S24
      7  310  662 (N00E58 L=203)  1564    256        4 ( 280/ 551- 359/ 768)  69.0 E61-E52 S07-N06
      8  718  745 (S02E24 L=237)   267     60        2 ( 677/ 729- 755/ 761) -26.6 E26-E22 S03-N00
      9  878  513 (S20E22 L=240)   277    112        0 ( 839/ 470- 925/ 550)  20.6 E25-E17 S21-S17
     10  955  433 (S27E20 L=241)   506    131        0 ( 940/ 364- 971/ 493)  56.3 E23-E17 S31-S22
     11  384  405 (S18E68 L=194)  1708    152        2 ( 361/ 333- 413/ 457)  36.3 E80-E62 S24-S13
     12  626  348 (S25E47 L=214)   408    123        0 ( 593/ 309- 645/ 402)  31.0 E53-E43 S27-S21
     13  998  271 (S40E26 L=236)   425     61        0 ( 964/ 246-1026/ 303) -90.0 E27-E23 S43-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