1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
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..]]
|