2 USING: namespaces sequences math random-weighted cfdg ;
4 IN: cfdg.models.rules08
6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
9 [ 1.5 5.5 size* -1 brightness triangle ] do
11 [ [ [ 1 0.9 size* -0.15 y 0.05 brightness ] times 1 5 size* triangle ] do ]
14 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
20 { 1 [ 4.5 y 1.15 0.8 size* -0.3 b line ] }
25 : line ( -- ) { [ insct ligne ] } rule ;
29 { 1 [ 1 brightness 0.5 saturation ligne ] [ 140 r 1 hue sole ] }
34 : centre ( -- ) { [ 1 b 5 s circle ] [ sole ] } rule ;
36 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
40 { -20 40 -20 40 } viewport set
41 [ centre ] >start-shape
44 : run ( -- ) [ init ] cfdg-window. ;
46 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!