Index: trunk/ppShutter/test/tests.pro
===================================================================
--- trunk/ppShutter/test/tests.pro	(revision 8928)
+++ trunk/ppShutter/test/tests.pro	(revision 9390)
@@ -1,2 +1,17 @@
+
+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
@@ -33,4 +48,13 @@
  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