SET OBJECT EMISSIVE This command will alter the material emissive component of the object.
Syntax
    SET OBJECT EMISSIVE Object Number, Color Value
Parameters
    Object Number
Integer The object number
    Color Value
Dword THe colour value to use
Returns
This command does not return a value.
Description
The emissive component makes up one of the factors that controls the final colour of the object, specifically the colour the object emits irrespective of any light or ambience. Setting this value to a high colour will make it bright under its own inner colour.
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

    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 ".."

    while mouseclick()<>2

     SET OBJECT EMISSIVE ObjectNumber,rgb(0,0,255)

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

    sync

    endwhile

    while mouseclick()=1:endwhile

    delete object ObjectNumber

    end
See also
BASIC3D Commands Menu Index