Index: trunk/ppShutter/test/.cvsignore
===================================================================
--- trunk/ppShutter/test/.cvsignore	(revision 9390)
+++ 	(revision )
@@ -1,2 +1,0 @@
-*.fits
-.mana
Index: trunk/ppShutter/test/tests.pro
===================================================================
--- trunk/ppShutter/test/tests.pro	(revision 9390)
+++ 	(revision )
@@ -1,95 +1,0 @@
-
-macro shresid
-  if ($0 != 3)
-    echo "USAGE shresid (input) (output)"
-    break
-  end
-  rd A $1 
-  extract A a 0 0 2048 2048 0 0 2048 2048
-  keyword a EXPTIME time
-  echo "dt: $time"
-  set t = ($time + dt)
-  set da = a / t / pattern
-  stats da - - - -
-  tv da {$MEDIAN*0.95} {$MEDIAN*0.1}
-end
-
-# make a simple shutter offset map : off = Ax((x-Nx/2)/Nx)^2 + Ay((y-Ny/2)/Ny)^2
-macro mkshutter.model
- if ($0 != 6)
-   echo "USAGE: mkshutter.model (Nx) (Ny) (Ax) (Ay) (Ao)"
-   break
- end
-
- $Nx = $1
- $Ny = $2
-
- mcreate tmpb $Nx $Ny
- set tmpx = xramp(tmpb)
- set tmpy = yramp(tmpb)
-
- set tmpX = (2*tmpx/$Nx) - 1
- set tmpY = (2*tmpy/$Ny) - 1
-
- set model = $3*tmpX^2 + $4*tmpY^2 + $5
- delete tmpb tmpx tmpy tmpX tmpY
-end
-
-macro mkshutter.image
- if ($0 != 4)
-   echo "USAGE: mkshutter.image (buffer) (exptime) (flux)"
-   break
- end
-
- set $1 = $3*($2 + model)
- 
- gaussdev noisev {$Nx*$Ny} 0.0 1.0
- dimenup noisev noisem $Nx $Ny
- set $1 = $1 + noisem*sqrt($1)
- keyword $1 EXPTIME -wf $2
-end
-
-macro mkshutter.pattern
- if ($0 != 3)
-   echo "USAGE: mkshutter.pattern (model) (pattern)"
-   break
- end
-
- set $2 = (20/$Nx)*xramp($1)
-end
-
-macro mkshutter.testdata
-  mkshutter.model 800 800 0.1 0.2 0.0
-
-  tv model 0 0.2
-  resize 800 800
-  center 400 400
-
-  mkshutter.image image 0.1 10000
-  wd image im.0.fits -bitpix -32 
-  stv image 0.2
-
-  mkshutter.image image 0.2 10000
-  wd image im.1.fits -bitpix -32 
-  stv image 0.2
-
-  mkshutter.image image 0.3 10000
-  wd image im.2.fits -bitpix -32 
-  stv image 0.2
-
-  mkshutter.image image 0.5 10000
-  wd image im.3.fits -bitpix -32 
-  stv image 0.2
-
-  mkshutter.image image 1.0 10000
-  wd image im.4.fits -bitpix -32 
-  stv image 0.2
-
-  mkshutter.image image 2.0 10000
-  wd image im.5.fits -bitpix -32 
-  stv image 0.2
-
-  mkshutter.image image 5.0 10000
-  wd image im.6.fits -bitpix -32 
-  stv image 0.2
-end