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
|
module Seaside (main) where
import Animation
import Seafigs
seaside :: Movie
seaside = rOVERLAY [blue_sky,
apply (bPar [up,cw,movto (repeat botm)]) sun,
apply right clouds,
apply (bPar [right,bigger]) gull,
apply (bPar [right,right,bigger]) gull,
apply (bPar [up,up,right,bigger]) gull,
apply (bPar [up,right,right,right]) gull,
windm,
apply (mov (repeat botm)) palm,
man_and_vm
]
where man_and_vm = rBESIDE2 [manfig, vm]
manfig = apply left (apply (mov (i (700,0)))
man)
windm = apply (mov (i (500,0))) windmill
main = getEnv "DISPLAY" exit
(\ host -> displaym host 30 (map (flipy_Pic 500) seaside))
|
