SET LIGHT TO OBJECT POSITION This command will position an existing light to the location of another object.
Syntax
    SET LIGHT TO OBJECT POSITION Light Number, Object Number
Parameters
    Light Number
Integer The light number
    Object Number
Integer The object number
Returns
This command does not return a value.
Description
The parameters must be specified using integer values.
Example Code
    sync on

    autocam off

    color backdrop rgb(0,0,0)

    load image "ground.jpg",1

    make matrix 1,1000,1000,100,100

    prepare matrix texture 1,1,1,1

    position matrix 1,-500,0,-500

    position camera 0,100,0

    set ambient light 20

    color ambient light rgb(64,64,128)

    set point light 0,0,0,500

    position light 0,0,100,0

    color light 0,512,512,255

    set light range 0,1000

    make light 1

    set spot light 1,45,90

    color light 1,512,100,100

    position light 1,0,50,400

    set light range 1,500

    result=make vector3(1)

    set vector3 1, 0, 50, 200

    position light 1, 1

    set vector3 1, 0, 45, 0

    rotate light 1,1

    set vector3 to light position 1,1

    set vector3 to light rotation 1,1

    a#=y vector3(1)

    result=delete vector3(1)

    while inkey$()<>"x"

    set cursor 0,0

    print "LIGHT COMMANDS (X to Exit)"

    set light to object orientation 1,1

    set light to object position 1,1

    a#=a#+1

    if a#>359 then a#=a#-360

    rotate light 1,0,a#,0

    sync

    endwhile

    delete light 1

    end
See also
LIGHT Commands Menu Index