Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1145 1612 (N32E05 L=247)  1043    330        1 (1055/1497-1210/1743) -41.2 E15-W01 N24-N39
      2  507 1649 (N22E51 L=201)  1374    181        3 ( 426/1586- 565/1708)  63.4 E55-E46 N17-N27
      3 1635 1660 (N51W39 L=292)   584     57        0 (1601/1644-1668/1673)  18.4 W33-W45 N48-N53
      4  139  902 (S27E70 L=182)   743    123        2 (  99/ 879- 191/ 938)  -7.1 E79-E61 S28-S24
      5  278  505 (S53E70 L=182)   620     62        1 ( 251/ 485- 313/ 525)   5.0 E83-E60 S53-S51
      6 1079  385 (S44W22 L=274)   750    185        0 (1030/ 331-1155/ 447) -11.3 W16-W31 S46-S40
      7 1422  396 (S34W47 L=299)   976    207        0 (1347/ 372-1513/ 423)  32.5 W40-W52 S37-S30
  

    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