Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1439 1811 (N36W68 L=149)  1501    145        0 (1383/1776-1492/1837)  -6.0 W58-W79 N32-N38
      2  325 1151 (N30E44 L= 36)  2124    285        4 ( 201/1096- 460/1191) -16.5 E59-E32 N24-N33
      3  843 1150 (N17E07 L= 74)   265     74        1 ( 805/1127- 881/1176)   0.0 E09-E04 N16-N18
      4 1844 1109 (S14W57 L=138)   593     97        0 (1833/1062-1857/1164)  71.6 W55-W59 S16-S10
      5  288  927 (N18E51 L= 30)   826    254        1 ( 216/ 870- 380/1011) -42.5 E57-E43 N12-N23
      6  473  899 (N12E36 L= 44)   410    159        0 ( 449/ 835- 508/ 946)  63.4 E38-E33 N08-N14
      7 1840  783 (S34W53 L=133)  2996    304        2 (1775/ 683-1887/ 922)  70.3 W44-W62 S39-S24
      8  762  882 (N04E18 L= 62)   248     85        0 ( 720/ 868- 805/ 897) -31.0 E20-E15 N03-N06
      9 1670  805 (S26W35 L=115)   316     50        0 (1640/ 783-1696/ 828)   0.0 W31-W37 S26-S24
     10 1598  520 (S43W25 L=106)   873    140        0 (1535/ 487-1659/ 554)   0.0 W19-W31 S44-S40
     11  395  491 (S10E58 L= 22)   609     97        1 ( 351/ 469- 440/ 519)   0.0 E63-E53 S10-S08
     12  335  438 (S12E71 L= 10)  1333     95        3 ( 295/ 408- 375/ 474) -33.7 E77-E66 S14-S09
     13  780  227 (S37E48 L= 33)  1410    162        2 ( 728/ 156- 832/ 283)  18.4 E62-E38 S41-S33
  

    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