extra/cfdg/models/aqua-star/aqua-star.factor

   1
   2 USING: kernel namespaces math random opengl.gl opengl.glu ui ui.gadgets.slate
   3        random-weighted cfdg ;
   4
   5 IN: cfdg.models.aqua-star
   6
   7 : tentacle ( -- )
   8 iterate? [
   9   { [ circle
  10       [ .23 y .99 s .002 b tentacle ] do ]
  11     [ circle
  12       [ .17 y 2 r .99 s .002 b tentacle ] do ]
  13     [ circle
  14       [ .12 y -2 r .99 s .001 b tentacle ] do ] } random call
  15 ] when ;
  16
  17 : anemone ( -- )
  18 iterate? [
  19   tentacle
  20   [ 10 x -11 r .995 s -.002 b anemone ] do
  21 ] when ;
  22
  23 : anemone-begin ( -- ) [ 196 hue 0.8324 sat 1 b anemone ] do ;
  24
  25 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  26
  27 : run ( -- )
  28 [ -1 b ] >background
  29 { -60 140 -120 140 } viewport set
  30 0.1 threshold set
  31 [ anemone-begin ] start-shape set
  32 cfdg-window ;
  33
  34 MAIN: run