SCALE OBJECT This command will scale the specified 3D object to stretch or shrink in all three dimensions, using percentage scale values.
Syntax
    SCALE OBJECT Object Number, XSize, YSize, ZSize
Parameters
    Object Number
Integer The object number
    XSize
Float The x percentage scale values
    YSize
Float The y percentage scale values
    ZSize
Float The z percentage scale values
Returns
This command does not return a value.
Description
The object number should be specified using an integer value and the scale specified using real values.
Example Code
    hide mouse:cls 0:autocam off

    ObjectNumber=1

    SecondObject=2

    ImageNumber=1

    make object sphere SecondObject,1

    load object "models\model.x",ObjectNumber

    load image "iron.jpg",ImageNumber

    append object "models\extraanim.x", ObjectNumber, total object frames(ObjectNumber)+1

    set object interpolation ObjectNumber,50

    position object ObjectNumber,0,0,0

    position object SecondObject,0,0,0

    position camera 0,2,4

    point camera 0,0,0

    while mouseclick()=0

    set cursor 0,0

    print "press a to scale object"

    if inkey$()="a"

    scale object ObjectNumber,100,200,100

    wait 1000*4

    scale object ObjectNumber,100,100,100

    endif

    print "press up arrow key"

    if upkey()=1 then move camera  1:while scancode()<>0:endwhile

    print "press down arrow key"

    if downkey()=1 then move camera -1:while scancode()<>0:endwhile

    print "press left arrow key"

    if leftkey()=1 then turn camera left 1

    print "press right arrow key"

    if rightkey()=1 then turn camera right 1

    endwhile

    while mouseclick()=1:endwhile

    if object exist(ObjectNumber)=1 then delete object ObjectNumber

    if object exist(SecondObject)=1 then delete object SecondObject

    if image exist(ImageNumber)=1 then delete image ImageNumber

    end
See also
BASIC3D Commands Menu Index