'-------------------------------------
' Modelling Light v1.0
' Written by James Rogers
' Contact: jearogers@aol.com
' 17/04/2001
' 
' A golden oldie! 
' This script is useful to those who prefer
' to model with shaded view, or to see
' detail normally hidden in the shadows.
'
' The script creates a point light and
' constrains it to the scene's default
' camera. It the sets the near plane 
' distance of the camera to 1 so the light
' dosen't appear in the camera view.
'
' Please feel free to edit the script
' and send any updates to myself or
' XSInet.
'
'--------------------------------------

' Gets a point light and calls it modelling light

GetPrimLight "Point.Preset", "modelling_light"

' Sets wireframe colour of light to pink so
' you don't forget to delete it later!

MakeLocal "modelling_light.display", siNodePropagation
SetValue "modelling_light.display.wirecol", 687

' Positionally constrains the light to camera

ApplyCns "Position", "modelling_light", "Camera"

' Sets the near plane of the camera to 1

SetValue "Camera.camera.near", 1.000

' Deselect the light

DeselectAll

application.statusbar = "Do your stuff in XSI - (*^.^*) PIKACHU!"

' (*^.^*) PIKACHU!