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

cfdg.models.rules08: Use new macros

db4
Eduardo Cavazos 2008-08-07 15:45:36 -05:00
parent f9900202c8
commit 14b83dc219
1 changed files with 9 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
extra/cfdg/models/rules08/rules08.factor
View File

@ -17,37 +17,21 @@ DEFER: line
: ligne ( -- ) : ligne ( -- )
{ {
{ 1 [ 4.5 y 1.15 0.8 size* -0.3 b line ] do } { 1 [ 4.5 y 1.15 0.8 size* -0.3 b line ] }
{ 0.5 [ ] } { 0.5 [ ] }
} }
call-random-weighted ; rules ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! : line ( -- ) { [ insct ligne ] } rule ;
: line ( -- ) [ insct ligne ] recursive ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: sole ( -- ) : sole ( -- )
[
{ {
{ { 1 [ 1 brightness 0.5 saturation ligne ] [ 140 r 1 hue sole ] }
1 [
[ 1 brightness 0.5 saturation ligne ] do
[ 140 r 1 hue sole ] do
]
}
{ 0.01 [ ] } { 0.01 [ ] }
} }
call-random-weighted rules ;
]
recursive ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! : centre ( -- ) { [ 1 b 5 s circle ] [ sole ] } rule ;
: centre ( -- )
[ 1 b 5 s circle ] do
[ sole ] do ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!