scale-cylinder-vertices ( radius half-height verts -- bot-verts top-verts )

Vocabulary

game.debug.private

Inputs

radius	an object
half-height	an object
verts	an object

Outputs

bot-verts	an object
top-verts	an object

Definition

USING: kernel math.vectors sequences ;

IN: game.debug.private

:: scale-cylinder-vertices
    ( radius half-height verts -- bot-verts top-verts )
    verts
    [ [ radius v*n { 0 half-height 0 } v- ] map ]
    [ [ radius v*n { 0 half-height 0 } v+ ] map ] bi ;