unmaintained/cfdg/models/spirales/spirales.factor

   1
   2 USING: namespaces sequences math random-weighted cfdg ;
   3
   4 IN: cfdg.models.spirales
   5
   6 DEFER: line
   7
   8 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   9
  10 : block ( -- ) { [ circle ] [ 0.3 s 60 flip line ] } rule ;
  11
  12 : a1 ( -- ) { [ 0.95 s 2 x 12 r 0.5 b 10 hue 1.5 sat a1 ] [ block ] } rule ;
  13
  14 : line ( -- ) -0.3 a { [ 0 r a1 ] [ 120 r a1 ] [ 240 r a1 ] } rule ;
  15
  16 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  17
  18 : init ( -- )
  19   [ -1 b ]          >background
  20   { -20 40 -20 40 } >viewport
  21   [ line ]          >start-shape
  22   0.04              >threshold ;
  23
  24 : run ( -- ) [ init ] cfdg-window. ;
  25
  26 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  27
  28 MAIN: run