lc_clean_sm
       
      define dc white ctype $dc
      lw 0  ltype 0  angle 0
      notation -4 4 -4 4    format "i" "i"
      define de 1.3  expand $de


      # this is the upper bound of the flux:
      define up 2
      ticksize 1 1 .2 1


      # dirty lightcurve:

      data "/home/maxim/DAT/AX/J/A2142/1196/acis.edge.lc"
      lines 1 1000000
      read {x1 1 y1 2}
      set x1=x1/1000


      # clean lightcurve:

      data "/home/maxim/DAT/AX/J/A2142/1196/acis.edge.clean.lc"
      lines 1 1000000
      read {x2 1 y2 2}
      set x2=x2/1000


      define t0 (x1[0])
      define t1 (x1[dimen(x1)-1])


      
      location 3500 31500 25500 31500

      define t01 ($t0+($t1-$t0)/4)
      limits $t0 $t01  0 $up

      box 1 2 0 0
      ltype 1 grid 1 ltype 0
      ylabel {cts/s}

      ctype red
      connect  x1 y1
      ctype $dc
      connect  x2 y2


      
      location 3500 31500 18000 24000

      define t00 ($t0+1*($t1-$t0)/4)
      define t01 ($t0+2*($t1-$t0)/4) 
      limits  $t00  $t01  0. $up

      box 1 2 0 0
      ltype 1 grid 1 ltype 0
      ylabel {cts/s}

      ctype red
      connect  x1 y1
      ctype $dc
      connect  x2 y2


      
      location 3500 31500 10500 16500

      define t00 ($t0+2*($t1-$t0)/4)
      define t01 ($t0+3*($t1-$t0)/4)
      limits  $t00 $t01  0. $up

      box 1 2 0 0
      ltype 1 grid 1 ltype 0
      ylabel {cts/s}

      ctype red
      connect  x1 y1
      ctype $dc
      connect  x2 y2


      
      location 3500 31500 3000 9000

      define t00 ($t0+3*($t1-$t0)/4)
      limits  $t00 $t1  0. $up

      box 1 2 0 0
      ltype 1 grid 1 ltype 0
      ylabel {cts/s}
      xlabel {Chandra time, ks}

      ctype red
      connect  x1 y1
      ctype $dc
      connect  x2 y2

      

 #;;; Local Variables: ***
 #;;; mode: fortran ***
 #;;; fortran-comment-region: " \#" ***
 #;;; End: ***