1 files changed, 76 insertions, 0 deletions
diff --git a/progs/demo/X11/animation/r_defaults.hs b/progs/demo/X11/animation/r_defaults.hs
new file mode 100644
index 0000000..1b7070a
--- /dev/null
+++ b/progs/demo/X11/animation/r_defaults.hs
@@ -0,0 +1,76 @@
+{-****************************************************************
+  MODULE R_DEFAULTS
+
+    This module uses the R_Behaviour module to define convient and
+  easy to use behaviours. These aren't very sophistated, but they
+  can be used to quickly animate a movie. For more sophistated
+  animation, a similiar library of sophistocated personnalized 
+  functions can be created.
+
+******************************************************************-}
+
+module R_Defaults (big, huge, bigger, smaller, ccw, cw, 
+                   up, down, left, right,small,tiny)
+where
+
+import R_Ptypes
+import R_Constants
+import R_Utility
+import R_Picture
+import R_Behaviour
+
+
+  -- big scales everything up by the scaleunit (now 12/11ths)
+big :: Behaviour
+big = [scale_Pic x | x <- [scaleunit,scaleunit..]]
+
+  -- huge scales everything up by twice the scaleunit (24/11ths)
+huge :: Behaviour
+huge= [scale_Pic x | x <- [scaleunit*2,(scaleunit*2)..]]
+  
+  -- small scales everything down by 10/11ths
+small :: Behaviour
+small = [scale_Pic x | x <- [s,s..]]
+        where s = 10
+  
+  -- tiny scales everything down by 5/11ths
+tiny :: Behaviour
+tiny  = [scale_Pic x | x <- [s,s..]]
+        where s = 5
+  
+  -- bigger causes the Pics to be scaled up by 12/11ths,24/11ths,36/11ths
+  -- and so on, everincreasing.
+bigger :: Behaviour
+bigger = [scale_Pic x | x <- (rept (\x -> div (x*scaleunit) 11) 1)]
+  
+  -- smaller causes the Pics to be scaled downwards in ever decreasing 
+  -- amounts.
+smaller :: Behaviour
+smaller = [scale_Pic x | x <- (rept (\x -> div (x*10) 11) 1)]
+  
+  -- a hardwired version of ccw that rotates the Pics by one rotunit
+  -- more every Pic, counterclockwise.
+ccw :: Behaviour
+ccw = [twist_Pic x | x <- [0.0,rotunit..]]
+  
+  -- same as ccw, but rotates the Pics clockwise
+cw :: Behaviour
+cw = [twist_Pic x | x <- [0.0,-rotunit..]]
+  
+  -- moves the Pic up by one more unit every Pic.
+up :: Behaviour
+up    = [mov_Pic (x,y) | (x,y)<- zip2 [0,0..] [0,unit..]]
+
+  -- moves the Pic down by one more unit every Pic.  
+down :: Behaviour
+down  = [mov_Pic (x,y) | (x,y)<-zip2 [0,0..] [0,-unit]] 
+  
+  -- moves the Pic left by one more unit every Pic.
+left :: Behaviour
+left  = [mov_Pic (x,y) | (x,y)<- zip2 [0,-unit..] [0,0..]] 
+  
+  -- moves the Pic right by one more unit every Pic.
+right :: Behaviour
+right = [mov_Pic (x,y) | (x,y)<- zip2 [0,unit..] [0,0..]] 
+  
+