SET CUBE MAPPING ON This command will apply a cube map to the specified object.
Syntax
    SET CUBE MAPPING ON Object Number, Face1, Face2, Face3, Face4, Face5, Face6
Parameters
    Object Number
Integer The object number
    Face1
Integer The texture number 1
    Face2
Integer The texture number 2
    Face3
Integer The texture number 3
    Face4
Integer The texture number 4
    Face5
Integer The texture number 5
    Face6
Integer The texture number 6
Returns
This command does not return a value.
Description
A cube map will give the impression of a reflective surface over the object. The images used specify a texture on each side of the object to be affected, which combine to create a 3D texture from which the reflective parts can be mapped to the object. Cube maps take up a lot of video memory so use this feature with care.
Example Code
    sync on : sync rate 60 : hide mouse:cls 0:color backdrop 0

    fog on:fog color 0:set ambient light 50

    ObjectNumber=2:ImageNumber=2

    wire=0:trans=0:cull=0:fliter=0:light=0:fog=0:ambient=0

    load image "sky\am1.bmp",11:load image "sky\am2.bmp",12

    load image "sky\am3.bmp",13:load image "sky\am4.bmp",14

    load image "sky\am5.bmp",15:load image "sky\am6.bmp",16

    set global object creation 0

    set dir "models"

    load object "ast4.x",ObjectNumber

    set object specular ObjectNumber,0

    rotate object ObjectNumber,270,0,0

    set dir ".."

    set cube mapping on ObjectNumber,11,12,13,14,15,16

    while mouseclick()<>2

    set cursor 0,0

    print "press 1 to set object wireframe";wire:if inkey$()="1" then wire=1-wire:set object wireframe ObjectNumber,wire

    print "press 2 to set object transparency";trans:if inkey$()="2" then trans=1-trans:set object transparency ObjectNumber,trans

    print "press 3 to set object cull";cull:if inkey$()="3" then cull=1-cull:set object cull ObjectNumber,cull

    print "press 4 to set object filter";filter:if inkey$()="4" then filter=1-filter:set object filter ObjectNumber,filter

    print "press 5 to set object light";light:if inkey$()="5" then light=1-light:set object light ObjectNumber,light

    print "press 6 to set object fog";fog:if inkey$()="6" then fog=1-fog:set object fog ObjectNumber,fog

    print "press 7 to set object ambient";ambient:if inkey$()="7" then ambient=1-ambient:set object ambient ObjectNumber,ambient

    while scancode()<>0:endwhile

    if mouseclick()=1 then yrotate object ObjectNumber,wrapvalue(object angle y(ObjectNumber)+1)

    sync

    endwhile

    while mouseclick()=1:endwhile

    delete object ObjectNumber

    for t=11 to 16:delete image t:next t

    end
See also
BASIC3D Commands Menu Index