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

*** empty log message ***

cvs
Eduardo Cavazos 2006-01-12 08:24:18 +00:00
parent 50c636b9c4
commit d265bebf88
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -208,14 +208,10 @@ H{ [[ "+" [ angle get rotate-y ] ]]
[[ "z" [ length get 2 / move-forward ] ]] [[ "z" [ length get 2 / move-forward ] ]]
[[ "g" [ length get sneak-forward ] ]] [[ "g" [ length get sneak-forward ] ]]
! [[ "." [ record-vertex ] ]]
[[ "." [ polygon-vertex ] ]] [[ "." [ polygon-vertex ] ]]
[[ "[" [ save-state ] ]] [[ "[" [ save-state ] ]]
[[ "]" [ restore-state ] ]] [[ "]" [ restore-state ] ]]
! [[ "{" [ GL_LINE_LOOP glBegin ] ]]
! [[ "{" [ GL_POLYGON glBegin ] ]]
[[ "{" [ start-polygon ] ]] [[ "{" [ start-polygon ] ]]
! [[ "}" [ glEnd ] ]]
[[ "}" [ finish-polygon ] ]] [[ "}" [ finish-polygon ] ]]
[[ "/" [ 1.1 scale-length ] ]] [[ "/" [ 1.1 scale-length ] ]]

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

@ -0,0 +1,5 @@
USING: kernel parser words compiler sequences ;
"lindenmayer.factor" run-file
"lindenmayer" words [ try-compile ] each clear