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 ( -- )
{
{ 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 [ ] }
}
call-random-weighted ;
rules ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: line ( -- ) [ insct ligne ] recursive ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: line ( -- ) { [ insct ligne ] } rule ;
: sole ( -- )
[
{
{
1 [
[ 1 brightness 0.5 saturation ligne ] do
[ 140 r 1 hue sole ] do
]
}
{ 1 [ 1 brightness 0.5 saturation ligne ] [ 140 r 1 hue sole ] }
{ 0.01 [ ] }
}
call-random-weighted
]
recursive ;
rules ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: centre ( -- )
[ 1 b 5 s circle ] do
[ sole ] do ;
: centre ( -- ) { [ 1 b 5 s circle ] [ sole ] } rule ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!