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

L-system: rename some words to new conventions 

Move the angle brackets from tuple names to their <constructors>.
master
Alexander Iljin 2020-08-04 09:38:53 +02:00 committed by John Benediktsson
parent 42855b4c44
commit 53d741a6ef
10 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
extra/L-system/L-system.factor
View File

@ -12,7 +12,7 @@ IN: L-system
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
TUPLE: <turtle> pos ori angle length thickness color vertices saved ;
TUPLE: turtle pos ori angle length thickness color vertices saved ;
DEFER: default-L-parser-values
@ -24,7 +24,7 @@ DEFER: default-L-parser-values
default-L-parser-values ;
: turtle ( -- turtle ) <turtle> new reset-turtle ;
: <turtle> ( -- turtle ) turtle new reset-turtle ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -257,7 +257,7 @@ DEFER: default-L-parser-values
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
TUPLE: <L-system> < gadget
TUPLE: L-system < gadget
camera display-list pedestal paused
turtle-values
commands axiom rules string ;
@ -376,7 +376,7 @@ TUPLE: <L-system> < gadget
L-SYSTEM display-list>> GL_COMPILE glNewList
turtle
<turtle>
L-SYSTEM turtle-values>> [ ] or call( turtle -- turtle )
L-SYSTEM string>> L-SYSTEM axiom>> or
L-SYSTEM commands>>
@ -387,7 +387,7 @@ TUPLE: <L-system> < gadget
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
M:: <L-system> draw-gadget* ( L-SYSTEM -- )
M:: L-system draw-gadget* ( L-SYSTEM -- )
COLOR: black gl-clear
@ -417,7 +417,7 @@ M:: <L-system> draw-gadget* ( L-SYSTEM -- )
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
M:: <L-system> graft* ( L-SYSTEM -- )
M:: L-system graft* ( L-SYSTEM -- )
L-SYSTEM find-gl-context
@ -425,7 +425,7 @@ M:: <L-system> graft* ( L-SYSTEM -- )
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
M:: <L-system> pref-dim* ( L-SYSTEM -- dim ) { 400 400 } ;
M:: L-system pref-dim* ( L-SYSTEM -- dim ) { 400 400 } ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -435,7 +435,7 @@ M:: <L-system> pref-dim* ( L-SYSTEM -- dim ) { 400 400 } ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
<L-system>
L-system
H{
{ T{ key-down f f "LEFT" } [ [ 5 turn-left ] with-camera ] }
{ T{ key-down f f "RIGHT" } [ [ 5 turn-right ] with-camera ] }
@ -472,15 +472,15 @@ set-gestures
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: L-system ( -- L-system )
: <L-system> ( -- L-system )
<L-system> new
L-system new
0 >>pedestal
! turtle 45 turn-left 45 pitch-up 5 step-turtle 180 turn-left >>camera ;
! <turtle> 45 turn-left 45 pitch-up 5 step-turtle 180 turn-left >>camera ;
turtle 90 pitch-down -5 step-turtle 2 strafe-up >>camera
<turtle> 90 pitch-down -5 step-turtle 2 strafe-up >>camera
dup start-rotation-thread

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

@ -5,7 +5,7 @@ IN: L-system.models.abop-1
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: abop-1 ( <L-system> -- <L-system> )
: abop-1 ( L-system -- L-system )
L-parser-dialect >>commands
@ -22,6 +22,6 @@ IN: L-system.models.abop-1
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system abop-1 "L-system" open-window ] with-ui ;
: main ( -- ) [ <L-system> abop-1 "L-system" open-window ] with-ui ;
MAIN: main

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

@ -5,7 +5,7 @@ IN: L-system.models.abop-2
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: abop-2 ( <L-system> -- <L-system> )
: abop-2 ( L-system -- L-system )
L-parser-dialect >>commands
@ -26,6 +26,6 @@ IN: L-system.models.abop-2
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system abop-2 "L-system" open-window ] with-ui ;
: main ( -- ) [ <L-system> abop-2 "L-system" open-window ] with-ui ;
MAIN: main

4
extra/L-system/models/abop-3/abop-3.factor
View File

@ -5,7 +5,7 @@ IN: L-system.models.abop-3
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: abop-3 ( <L-system> -- <L-system> )
: abop-3 ( L-system -- L-system )
L-parser-dialect >>commands
@ -22,6 +22,6 @@ IN: L-system.models.abop-3
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system abop-3 "L-system" open-window ] with-ui ;
: main ( -- ) [ <L-system> abop-3 "L-system" open-window ] with-ui ;
MAIN: main

4
extra/L-system/models/abop-4/abop-4.factor
View File

@ -5,7 +5,7 @@ IN: L-system.models.abop-4
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: abop-4 ( <L-system> -- <L-system> )
: abop-4 ( L-system -- L-system )
L-parser-dialect >>commands
@ -51,6 +51,6 @@ IN: L-system.models.abop-4
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system abop-4 "L-system" open-window ] with-ui ;
: main ( -- ) [ <L-system> abop-4 "L-system" open-window ] with-ui ;
MAIN: main

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

@ -5,7 +5,7 @@ IN: L-system.models.abop-5-angular
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: abop-5-angular ( <L-system> -- <L-system> )
: abop-5-angular ( L-system -- L-system )
L-parser-dialect >>commands
@ -27,7 +27,7 @@ IN: L-system.models.abop-5-angular
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system abop-5-angular "L-system" open-window ] with-ui ;
: main ( -- ) [ <L-system> abop-5-angular "L-system" open-window ] with-ui ;
MAIN: main

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

@ -5,7 +5,7 @@ IN: L-system.models.abop-5
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: abop-5 ( <L-system> -- <L-system> )
: abop-5 ( L-system -- L-system )
L-parser-dialect >>commands
@ -29,7 +29,7 @@ IN: L-system.models.abop-5
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system abop-5 "L-system" open-window ] with-ui ;
: main ( -- ) [ <L-system> abop-5 "L-system" open-window ] with-ui ;
MAIN: main

4
extra/L-system/models/abop-6/abop-6.factor
View File

@ -5,7 +5,7 @@ IN: L-system.models.abop-6
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: abop-6 ( <L-system> -- <L-system> )
: abop-6 ( L-system -- L-system )
L-parser-dialect >>commands
@ -28,7 +28,7 @@ IN: L-system.models.abop-6
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system abop-6 "L-system" open-window ] with-ui ;
: main ( -- ) [ <L-system> abop-6 "L-system" open-window ] with-ui ;
MAIN: main

4
extra/L-system/models/airhorse/airhorse.factor
View File

@ -5,7 +5,7 @@ IN: L-system.models.airhorse
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: airhorse ( <L-system> -- <L-system> )
: airhorse ( L-system -- L-system )
L-parser-dialect >>commands
@ -47,6 +47,6 @@ IN: L-system.models.airhorse
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system airhorse "L-system" open-window ] with-ui ;
: main ( -- ) [ <L-system> airhorse "L-system" open-window ] with-ui ;
MAIN: main

4
extra/L-system/models/tree-5/tree-5.factor
View File

@ -5,7 +5,7 @@ IN: L-system.models.tree-5
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: tree-5 ( <L-system> -- <L-system> )
: tree-5 ( L-system -- L-system )
L-parser-dialect >>commands
@ -31,6 +31,6 @@ IN: L-system.models.tree-5
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: main ( -- ) [ L-system tree-5 "L-system" open-window ] with-ui ;
: main ( -- ) [ <L-system> tree-5 "L-system" open-window ] with-ui ;
MAIN: main