Handbook
Glossary
draw-debug-tests ( world -- )
Vocabulary
game
.
debug
.
tests
Inputs
world
an
object
Outputs
None
Definition
USING:
accessors
colors
game.debug
gpu.util.wasd
kernel
make
math
math.functions
math.matrices
math.matrices.extras
math.parser
sequences
specialized-arrays.instances.alien.c-types.float
;
IN:
game.debug.tests
::
draw-debug-tests
( world -- )
world
[
wasd-p-matrix
]
[
wasd-mv-matrix
]
bi
mdot
:>
mvp-matrix
{
0 0 0
}
clear-screen
[
{
0 0 0
}
{
1 0 0
}
COLOR:
red
debug-line
{
0 0 0
}
{
0 1 0
}
COLOR:
green
debug-line
{
0 0 0
}
{
0 0 1
}
COLOR:
blue
debug-line
{
-1.2 0 0
}
{
0 1 0
}
0
deg>rad
<rotation-matrix3>
debug-axes
{
3 5 -2
}
{
3 2 1
}
COLOR:
white
debug-box
{
0 9 0
}
8 2
COLOR:
blue
debug-cylinder
]
float-array{
}
make
mvp-matrix
draw-debug-lines
[
{
0 4.0 0
}
COLOR:
red
debug-point
{
0 4.1 0
}
COLOR:
green
debug-point
{
0 4.2 0
}
COLOR:
blue
debug-point
]
float-array{
}
make
mvp-matrix
draw-debug-points
"Frame: "
world
frame#>>
number>string
append
COLOR:
purple
{
5 5
}
world
dim>>
draw-text
world
[
1
+
]
change-frame#
drop
;