steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cfdg.models.chiaroscuro: uses call-random-weighted

release
Eduardo Cavazos 2007-09-29 13:29:29 -05:00
parent 601ae65af6
commit 9ab46a94db
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extra/cfdg/models/chiaroscuro/chiaroscuro.factor
View File

@ -8,17 +8,21 @@ IN: cfdg.models.chiaroscuro
DEFER: white DEFER: white
: black ( -- ) iterate? [ : black ( -- ) iterate? [
{ { 60 [ [ 0.6 s circle ] do { { 60 [ [ 0.6 s circle ] do
[ 0.1 x 5 r 0.99 s -0.01 b -0.01 a black ] do ] } [ 0.1 x 5 r 0.99 s -0.01 b -0.01 a black ] do ] }
{ 1 [ white black ] } } { 1 [ white black ] } }
random-weighted* call call-random-weighted
] when ; ] when ;
: white ( -- ) iterate? [ : white ( -- ) iterate? [
{ { 60 [ [ 0.6 s circle ] do { { 60 [
[ 0.1 x -5 r 0.99 s 0.01 b -0.01 a white ] do ] } [ 0.6 s circle ] do
{ 1 [ black white ] } } [ 0.1 x -5 r 0.99 s 0.01 b -0.01 a white ] do
random-weighted* call ] }
{ 1 [
black white
] } }
call-random-weighted
] when ; ] when ;
: chiaroscuro ( -- ) [ 0.5 b black ] do ; : chiaroscuro ( -- ) [ 0.5 b black ] do ;