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

*** empty log message ***

cvs
Eduardo Cavazos 2006-01-18 04:35:05 +00:00
parent 9b5f6d1513
commit e67ba73d1d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/x11/examples/lindenmayer/lindenmayer.factor
View File

@ -218,8 +218,10 @@ H{ [[ "+" [ angle get rotate-y ] ]]
[[ "'" [ 0.9 scale-length ] ]] [[ "'" [ 0.9 scale-length ] ]]
[[ ";" [ 1.1 scale-angle ] ]] [[ ";" [ 1.1 scale-angle ] ]]
[[ ":" [ 0.9 scale-angle ] ]] [[ ":" [ 0.9 scale-angle ] ]]
[[ "?" [ thickness get 1.4 * thickness set ] ]] ! [[ "?" [ thickness get 1.4 * thickness set ] ]]
[[ "!" [ thickness get 0.7 * thickness set ] ]] ! [[ "!" [ thickness get 0.7 * thickness set ] ]]
[[ "?" [ 1.4 scale-thickness ] ]]
[[ "!" [ 0.7 scale-thickness ] ]]
[[ "c" [ inc-color-index ] ]] [[ "c" [ inc-color-index ] ]]
} command-table set ; } command-table set ;