From d265bebf884b6877576c222ddf19e36c709de2be Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Thu, 12 Jan 2006 08:24:18 +0000 Subject: [PATCH] *** empty log message *** --- contrib/x11/examples/lindenmayer/lindenmayer.factor | 4 ---- contrib/x11/examples/lindenmayer/load.factor | 5 +++++ 2 files changed, 5 insertions(+), 4 deletions(-) create mode 100644 contrib/x11/examples/lindenmayer/load.factor diff --git a/contrib/x11/examples/lindenmayer/lindenmayer.factor b/contrib/x11/examples/lindenmayer/lindenmayer.factor index 2e5f0afee6..9f74580564 100644 --- a/contrib/x11/examples/lindenmayer/lindenmayer.factor +++ b/contrib/x11/examples/lindenmayer/lindenmayer.factor @@ -208,14 +208,10 @@ H{ [[ "+" [ angle get rotate-y ] ]] [[ "z" [ length get 2 / move-forward ] ]] [[ "g" [ length get sneak-forward ] ]] -! [[ "." [ record-vertex ] ]] [[ "." [ polygon-vertex ] ]] [[ "[" [ save-state ] ]] [[ "]" [ restore-state ] ]] -! [[ "{" [ GL_LINE_LOOP glBegin ] ]] -! [[ "{" [ GL_POLYGON glBegin ] ]] [[ "{" [ start-polygon ] ]] -! [[ "}" [ glEnd ] ]] [[ "}" [ finish-polygon ] ]] [[ "/" [ 1.1 scale-length ] ]] diff --git a/contrib/x11/examples/lindenmayer/load.factor b/contrib/x11/examples/lindenmayer/load.factor new file mode 100644 index 0000000000..7432cf6453 --- /dev/null +++ b/contrib/x11/examples/lindenmayer/load.factor @@ -0,0 +1,5 @@ +USING: kernel parser words compiler sequences ; + +"lindenmayer.factor" run-file + +"lindenmayer" words [ try-compile ] each clear