home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / progs / demo / X11 / animation / planets.hs < prev    next >
Encoding:
Text File  |  1994-09-27  |  949 b   |  13 lines  |  [TEXT/YHS2]
  1. e:: Movie
  2. planet_scene = rOVERLAY
  3.                  [apply (bpar (set_color (i yellow)) (movto (i center))) orb,
  4.                   planets (pi/40.0) (pi/10.0) 450 80 darkblue lightblue,
  5.                   planets (pi/20.0) (pi/8.0) 300 50 brown black,
  6.                   planets (pi/10.0) (pi/4.0) 150 40 green red
  7.                  ]
  8.  
  9. orb = osc [circ red 50 10]
  10.  
  11. main = getEnv "DISPLAY" >>=
  12.        (\ host -> displaym host 60 planet_scene)
  13.