FADE OBJECT This command will make the specified 3D object fade to the current ambient light level.
Syntax
    FADE OBJECT Object Number, Fade Value
Parameters
    Object Number
Integer The object number
    Fade Value
Float With ambient light set to zero and the object faded using a value of zero, the object will be completely unlit. With a fade value of 200 its illumination will be doubled. With a fade value of 50, the illumination is halved
Returns
This command does not return a value.
Description
With ambient light set to zero and the object faded using a value of zero, the object will be completely unlit. With a fade value of 200 its illumination will be doubled. With a fade value of 50, the illumination is halved. This technique can also be used with a ghosted object to slowly fade an object until completely invisible. The parameter should be specified using an integer value. Be aware that this command affects the actual material colour of the object. To use an alpha fade, use the SET ALPHA MAPPING ON command.
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 e to fade object"

    if inkey$()="e" then for t=100 to 1 step -1:fade object ObjectNumber,t:sleep 25:next t:wait 1000*4:fade object ObjectNumber,100

    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