NewsForumsCodeLogsGallerySpecsSearch

Code archives/3D Graphics - Misc/EntityScale

This code has been declared by its author to be Public Domain code.

Download source code

EntityScale by skidracer2001
function to calculates entity's scale 
Function EntityScale#(entity,axis) 
    x#=GetMatElement(entity,axis,0) 
    y#=GetMatElement(entity,axis,1) 
    z#=GetMatElement(entity,axis,2) 
    Return Sqr(x*x+y*y+z*z) 
End Function 

Graphics3D 640,480 
sphere=CreateSphere(order) 
ScaleEntity sphere,2,1,1 
RotateEntity sphere,23,-45,99 

DebugLog "ScaleX="+EntityScale(sphere,0) 
DebugLog "ScaleY="+EntityScale(sphere,1) 
DebugLog "ScaleZ="+EntityScale(sphere,2) 

End

Comments

None.

Code Archives Forum