''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Turntable view  simulator script
' Uses an ortho camera as a turntable equivalent
' Use the null 'Mover', translating in x to spin the turntable
' The rotation expression is Mover.x * 45 so use snapping (<ctrl> key) 
' with a value of one to spin the turntable view in increments of 45
' degrees. Alter the 45 arg in setexpr() on the last but one line to change
' this granularity
'
' Kim Aldis, Sept 2001
' Kim@Aldis.org.uk
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set Root = GetPrimCamera( "Orthographic.Preset", "Turntable",, theCam, theInterest )

Translate Root, 0.000, 0.000, 0.000, siAbsolute, siView, siObj, siXYZ

Translate "Turntable", 0.000, 0.000, 20.000, siAbsolute, siView, siObj, siXYZ

set Mover = GetPrim( "Null", "Mover" )
Rotate Mover, 0.000, 45.000, 0.000, siAbsolute, siView, siObj, siXYZ

set Turntable = GetPrim("Null", "TurnTable")
ParentObj Turntable, Mover
ParentObj Turntable, Root

AddExpr Root & ".kine.local.roty"
SetExpr Root & ".kine.local.roty", Mover & ".kine.global.posx * 45"
SelectObj "Mover"