rotate-oint ( oint theta axis -- )

Vocabulary

jamshred.oint

Inputs

oint	an object
theta	an object
axis	an object

Outputs

None

Definition

USING: accessors jamshred.oint.private kernel ;

IN: jamshred.oint

: rotate-oint ( oint theta axis -- )
    rotation-quaternion dup qrecip pick
    [ forward>> rotate-vector >>forward ]
    [ up>> rotate-vector >>up ] [ left>> rotate-vector >>left ]
    3tri drop ;