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

Updated lindenmayer for 0.82

wayo.cavazos 2006-05-25 02:26:07 +00:00
parent e485fa61f9
commit 26cde24cea
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -145,6 +145,8 @@ cond ;
! Lindenmayer string interpretation ! Lindenmayer string interpretation
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: last ( seq -- [ last-item ] ) dup length* 1 - swap tail ;
SYMBOL: command-table SYMBOL: command-table
: segment-command ( seg -- command ) 1 swap head ; : segment-command ( seg -- command ) 1 swap head ;

5
contrib/x11/examples/lindenmayer/load.factor
View File

@ -1,4 +1,5 @@
USING: parser words compiler sequences ; USING: parser words compiler sequences ;
"lindenmayer.factor" run-file
"viewer.factor" run-file "contrib/x11/examples/lindenmayer/lindenmayer.factor" run-resource
"contrib/x11/examples/lindenmayer/viewer.factor" run-resource
"lindenmayer" words [ try-compile ] each "lindenmayer" words [ try-compile ] each

2
contrib/x11/examples/lindenmayer/viewer.factor
View File

@ -1,5 +1,5 @@
USING: kernel alien math arrays sequences opengl namespaces concurrency USING: kernel alien math arrays sequences opengl namespaces concurrency
xlib x x11 gl concurrent-widgets lindenmayer ; x11 x gl concurrent-widgets lindenmayer ;
IN: lindenmayer IN: lindenmayer