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

L-system.models.abop-2: change default angle

db4
Eduardo Cavazos 2009-01-07 23:14:32 -06:00
parent 26711da675
commit 07da37ffc8
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/L-system/models/abop-2/abop-2.factor
View File

@ -9,10 +9,13 @@ IN: L-system.models.abop-2
L-parser-dialect >>commands L-parser-dialect >>commands
[ 30 >>angle ] >>turtle-values
"c(12)FAL" >>axiom "c(12)FAL" >>axiom
{ {
{ "A" "F [&'(.7)!BL] >(137) [&'(.6)!BL] >(137) '(.9) !(.9) A" } { "A" "F [&'(.7)!BL] >(137) [&'(.6)!BL] >(137) '(.9) !(.9) A" }
{ "B" "F [- '(.7) !(.9) $ C L] '(.9) !(.9) C" } { "B" "F [- '(.7) !(.9) $ C L] '(.9) !(.9) C" }
{ "C" "F [+ '(.7) !(.9) $ B L] '(.9) !(.9) B" } { "C" "F [+ '(.7) !(.9) $ B L] '(.9) !(.9) B" }
@ -20,9 +23,9 @@ IN: L-system.models.abop-2
} >>rules ; } >>rules ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system abop-2 "L-system" open-window ] with-ui ; : main ( -- ) [ L-system abop-2 "L-system" open-window ] with-ui ;
MAIN: main MAIN: main