1 files changed, 30 insertions, 0 deletions
diff --git a/progs/demo/X11/animation/planets.hs b/progs/demo/X11/animation/planets.hs
new file mode 100644
index 0000000..38f278a
--- /dev/null
+++ b/progs/demo/X11/animation/planets.hs
@@ -0,0 +1,30 @@
+module Planets (main) where
+
+import Animation
+
+planets:: Float -> Float -> Int -> Int -> Int -> Int -> Movie
+planets i1 i2 r1 r2 c1 c2
+    = rOVERLAY
+       [ apply f1 earth,
+         apply (bpar f1 f2) moon
+       ]
+        where f1 = circ_mov (fromIntegral r1) i1
+              f2 = circ_mov (fromIntegral r2) i2
+              earth = osc [mov_Pic (vplus center (r1,0)) (box c1 30 30)]
+              moon = osc [mov_Pic (vplus center (r1+r2,0)) (box c2 15 15)]
+
+gen a b c d = c :(gen a b (c+b) d)
+
+
+planet_scene:: Movie
+planet_scene = rOVERLAY
+                 [apply (bpar (set_color (i yellow)) (movto (i center))) orb,
+                  planets (pi/40.0) (pi/10.0) 450 80 darkblue lightblue,
+                  planets (pi/20.0) (pi/8.0) 300 50 brown black,
+                  planets (pi/10.0) (pi/4.0) 150 40 green red
+                 ]
+
+orb = osc [circ red 50 10]
+
+main = getEnv "DISPLAY" exit 
+       (\ host -> displaym host 60 planet_scene)