debug-box ( pt half-widths color -- )


Vocabulary
game.debug

Inputs
ptan object
half-widthsan object
coloran object


Outputs
None

Definition
USING: game.debug.private kernel math.vectors sequences ;

IN: game.debug

:: debug-box ( pt half-widths color -- )
box-vertices
[ first2 [ half-widths v* pt v+ ] bi@ color debug-line ]
each ; inline