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

L-system.models.abop-1: Minor tweaks

db4
Eduardo Cavazos 2009-01-07 16:25:32 -06:00
parent 589e509469
commit 13cf6ec4be
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/L-system/models/abop-1/abop-1.factor
View File

@ -1,5 +1,5 @@
USING: accessors kernel ui L-system ;
USING: accessors ui L-system ;
IN: L-system.models.abop-1
@ -12,15 +12,13 @@ IN: L-system.models.abop-1
"c(12)FFAL" >>axiom
{
{ "A" "F[&'(.8)!BL]>(137)'!(.9)A" }
{ "B" "F[-'(.8)!(.9)$CL]'!(.9)C" }
{ "C" "F[+'(.8)!(.9)$BL]'!(.9)B" }
{ "A" "F [ & '(.8) ! B L ] >(137) ' !(.9) A" }
{ "B" "F [ - '(.8) !(.9) $ C L ] ' !(.9) C" }
{ "C" "F [ + '(.8) !(.9) $ B L ] ' !(.9) B" }
{ "L" "~c(8){+(30)f-(120)f-(120)f}" }
{ "L" " ~ c(8) { +(30) f -(120) f -(120) f }" }
}
>>rules
dup axiom>> >>string ;
>>rules ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!