Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1509 1476 (N27W42 L=136)   265     82        0 (1477/1450-1540/1506) -53.1 W40-W43 N25-N29
      2 1767 1398 (N18W64 L=158)   919    117        3 (1724/1358-1800/1448)  26.6 W58-W71 N15-N20
      3  544 1304 (N27E31 L= 63)   434    135        1 ( 493/1260- 585/1324) -20.6 E35-E27 N24-N28
      4 1246 1164 (N12W15 L=109)   202     59        0 (1214/1144-1267/1186)  18.4 W13-W17 N10-N12
      5  164 1062 (N13E69 L= 25)  1076    107        2 ( 129/1014- 185/1111)  40.6 E75-E65 N10-N16
      6  974  826 (S06E05 L= 89)  1000    212        3 ( 944/ 725-1003/ 931)  85.2 E06-E03 S12-N00
      7 1749  855 (S14W50 L=143)   544     46        1 (1721/ 831-1773/ 880)  11.3 W46-W51 S15-S13
      8 1505  520 (S34W30 L=124)   342     80        1 (1460/ 506-1543/ 538)   0.0 W26-W33 S34-S32
  

    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