SCALE OBJECT TEXTURE This command will scale the UV data of the specified object.
Syntax
    SCALE OBJECT TEXTURE Object Number, UScale, VScale
    SCALE OBJECT TEXTURE Object Number, Stage, UScale, VScale
Parameters
    Object Number
Integer The object number
    Stage
Integer The U value controls the horizontal spread of the data
    UScale
Float The V value controls the vertical spread of the data
    VScale
Float This value is a float number such as 0.5
Returns
This command does not return a value.
Description
The UV data controls how a texture is mapped onto your object. By scaling the UV data, you can effectively stretch or tile the texture over your object. The U value controls the horizontal spread of the data. The V value controls the vertical spread of the data. A U or V value of 1 means no scale change. A value of 0.5 will scale the texture by half. A value of 2.0 will double the scale of the texture. The scale effect is permanent. Ensure that the image you use fills the whole texture, so using a texture flag of one with LOAD IMAGE will cause visual artefacts!
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 g to scale object texture"

    if inkey$()="g" then scale object texture ObjectNumber, 0.5,1.0

    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