debug-cylinder ( pt half-height radius color -- )


Vocabulary
game.debug

Inputs
ptan object
half-heightan object
radiusan object
coloran object


Outputs
None

Definition
USING: game.debug.private kernel sequences ;

IN: game.debug

:: debug-cylinder ( pt half-height radius color -- )
radius half-height cylinder-vertices scale-cylinder-vertices
[ [ color debug-circle ] bi@ ]
[ color [ debug-line ] curry 2each ] 2bi ; inline