
uses Console
uses MathUtil

indexbase 0

float v[3]
float w[3]={1,2,3}

printl "Initial " showvec w

'translatef 10,20,30
'scalef 100,200,300
rotatef 90,1,1,0

transformf v,w,1
printl "Apply Transform " showmat matstack[matidx]
printl "Transformed " showvec v

pushmatrix
'inversef
InverseMat matstack[matidx]

printl "Apply Inverse Transform " showmat matstack[matidx]

transformf w,v,1

popmatrix
printl "Resulting " showvec w

waitkey