mirror of https://github.com/mgcaret/of816.git
37 lines
881 B
GLSL
37 lines
881 B
GLSL
testing 7.3.1.1 Stack duplication
|
|
t{ 1 dup -> 1 1 }t
|
|
t{ 1 2 2dup -> 1 2 1 2 }t
|
|
t{ 1 2 3 3dup -> 1 2 3 1 2 3 }t
|
|
t{ 0 ?dup -> 0 }t
|
|
t{ 1 ?dup -> 1 1 }t
|
|
t{ 1 2 over -> 1 2 1 }t
|
|
t{ 1 2 3 4 2over -> 1 2 3 4 1 2 }t
|
|
t{ 1 2 3 1 pick -> 1 2 3 2 }t
|
|
t{ 1 2 tuck -> 2 1 2 }t
|
|
|
|
testing 7.3.1.2 Stack removal
|
|
t{ 1 2 3 clear -> }t
|
|
t{ 1 drop -> }t
|
|
t{ 1 2 2drop -> }t
|
|
t{ 1 2 3 3drop -> }t
|
|
t{ 1 2 nip -> 2 }t
|
|
|
|
testing 7.3.1.3 Stack rearrangement
|
|
T{ : RO5 100 200 300 400 500 ; -> }T
|
|
T{ RO5 3 ROLL -> 100 300 400 500 200 }T
|
|
T{ RO5 2 ROLL -> RO5 ROT }T
|
|
T{ RO5 1 ROLL -> RO5 SWAP }T
|
|
T{ RO5 0 ROLL -> RO5 }T
|
|
t{ 1 2 3 rot -> 2 3 1 }t
|
|
t{ 1 2 3 -rot -> 3 1 2 }t
|
|
t{ 1 2 swap -> 2 1 }t
|
|
t{ 1 2 3 4 2swap -> 3 4 1 2 }t
|
|
t{ 1 2 3 4 5 6 2rot -> 3 4 5 6 1 2 }t
|
|
|
|
testing 7.3.1.4 Return stack
|
|
t{ 1 2 >r drop r> -> 2 }t \ both >r and r>
|
|
t{ 1 >r r@ r> -> 1 1 }t
|
|
|
|
testing 7.3.1.5 Stack depth
|
|
t{ 1 2 3 depth -> 1 2 3 3 }t
|