unmaintained/cfdg/models/rules08/rules08.factor

   1
   2 USING: namespaces sequences math random-weighted cfdg ;
   3
   4 IN: cfdg.models.rules08
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : insct ( -- )
   9   [ 1.5 5.5 size* -1 brightness triangle ] do
  10   10
  11     [ [ [ 1 0.9 size* -0.15 y 0.05 brightness ] times 1 5 size* triangle ] do ]
  12   each ;
  13
  14 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  15
  16 DEFER: line
  17
  18 : ligne ( -- )
  19   {
  20     { 1   [ 4.5 y 1.15 0.8 size* -0.3 b line ] }
  21     { 0.5 [ ] }
  22   }
  23   rules ;
  24
  25 : line ( -- ) { [ insct ligne ] } rule ;
  26
  27 : sole ( -- )
  28   {
  29     { 1    [ 1 brightness 0.5 saturation ligne ] [ 140 r 1 hue sole ] }
  30     { 0.01 [ ] }
  31   }
  32   rules ;
  33
  34 : centre ( -- ) { [ 1 b 5 s circle ] [ sole ] } rule ;
  35
  36 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  37
  38 : init ( -- )
  39   [ -1 b ] >background
  40   { -20 40 -20 40 } viewport set
  41   [ centre ] >start-shape
  42   0.0001 >threshold ;
  43
  44 : run ( -- ) [ init ] cfdg-window. ;
  45
  46 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  47
  48 MAIN: run