From ed33de5a929942469eeba289895d261fcbfdbdc4 Mon Sep 17 00:00:00 2001 From: "wayo.cavazos" Date: Sun, 8 Oct 2006 12:02:08 +0000 Subject: [PATCH] Remove roll-until-horizontal from lindenmayer.factor --- contrib/lindenmayer/lindenmayer.factor | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/contrib/lindenmayer/lindenmayer.factor b/contrib/lindenmayer/lindenmayer.factor index 03418446bb..9acf45f611 100644 --- a/contrib/lindenmayer/lindenmayer.factor +++ b/contrib/lindenmayer/lindenmayer.factor @@ -15,24 +15,6 @@ USING: kernel alien namespaces arrays vectors math opengl sequences threads IN: lindenmayer -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -! roll-until-horizontal -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: V ( -- V ) { 0 1 0 } ; - -: X ( -- 3array ) orientation> [ first ] map ; -: Y ( -- 3array ) orientation> [ second ] map ; -: Z ( -- 3array ) orientation> [ third ] map ; - -: set-X ( seq -- ) orientation> [ 0 swap set-nth ] 2each ; -: set-Y ( seq -- ) orientation> [ 1 swap set-nth ] 2each ; -: set-Z ( seq -- ) orientation> [ 2 swap set-nth ] 2each ; - -: roll-until-horizontal ( -- ) -V Z cross normalize set-X -Z X cross normalize set-Y ; - ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! : record-vertex ( -- ) position> gl-vertex ; -- 2.34.1