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

*** empty log message ***

cvs
Eduardo Cavazos 2006-01-18 05:24:08 +00:00
parent 4e529f6dcf
commit d2eee97593
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -235,6 +235,13 @@ first3 glColor3f first3 material-color ;
: scale-thickness ( m -- ) thickness get * 0.5 max set-thickness ; : scale-thickness ( m -- ) thickness get * 0.5 max set-thickness ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: -rotate-y neg rotate-y ;
: -rotate-x neg rotate-x ;
: -rotate-z neg rotate-z ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: lparser-dialect ( -- ) : lparser-dialect ( -- )
@ -242,11 +249,14 @@ first3 glColor3f first3 material-color ;
1 length set 45 angle set 1 thickness set 2 set-color-index 1 length set 45 angle set 1 thickness set 2 set-color-index
H{ [[ "+" [ angle get rotate-y ] ]] H{ [[ "+" [ angle get rotate-y ] ]]
[[ "-" [ angle get neg rotate-y ] ]] ! [[ "-" [ angle get neg rotate-y ] ]]
[[ "-" [ angle get -rotate-y ] ]]
[[ "&" [ angle get rotate-x ] ]] [[ "&" [ angle get rotate-x ] ]]
[[ "^" [ angle get neg rotate-x ] ]] ! [[ "^" [ angle get neg rotate-x ] ]]
[[ "^" [ angle get -rotate-x ] ]]
[[ "<" [ angle get rotate-z ] ]] [[ "<" [ angle get rotate-z ] ]]
[[ ">" [ angle get neg rotate-z ] ]] ! [[ ">" [ angle get neg rotate-z ] ]]
[[ ">" [ angle get -rotate-z ] ]]
[[ "|" [ 180.0 rotate-y ] ]] [[ "|" [ 180.0 rotate-y ] ]]
[[ "%" [ 180.0 rotate-z ] ]] [[ "%" [ 180.0 rotate-z ] ]]