03=This script will load multiple Lightwave scenes
04=and batch render them. You can select what frames
05=to render, edit the camera settings and choose
06=your output options and the script records all
07=the information on all the scenes up front then
08=plays back the recordings and renders each one.
*/
parse arg InFile FileNum TotalNum FrameRepeat WhichScript TotalScript Times Select
signal on error
signal on syntax
options results
InFile = Translate(InFile," ","ยค")
if Times > 1 then do
Address CT_1 ScreenToFront
Address CT_1 OK_TEXT " OK "
Address CT_1 FYINT "This Routine Does Not Work\With Multiple Script Lists"
Address CT_1 Abort
Address CT_1 Quit
exit
end
address 'LightWaveARexx.port'
Address CT_1 ScreenToFrontNT
if FileNum == 1 then do
Address CT_1 OK_TEXT " OK "
title = "After each scene is loaded, make whatever\changes you want to camera settings, record\options, etc. then click button that appears\at the bottom of the screen to continue."
Address CT_1 FYINT title
do i = 1 to TotalNum
x = i-1
Address CT_1 GetScriptFileName x
Name = result
title = "Loading Scene "Name"..."
Address CT_1 OpenMessageNT title
LoadScene Name
Address CT_1 CloseMessageNT
Address CT_1 StartRecording i
Address CT_1 WaitLW
Address CT_1 StopRecording
end
end
Address CT_1 OK_TEXT " OK "
title = "Loading Scene "InFile"..."
Address CT_1 OpenMessageNT title
LoadScene InFile
Address CT_1 CloseMessageNT
Address CT_1 PlayRecording FileNum
Render 1
if FileNum = TotalNum then do
Address CT_1 ClickMouse "072|033"
TOASTERLIB="ToasterARexx.port"
call addlib('PROJECT_REXX_PORT' , 0)
call addlib(TOASTERLIB,0)
call Switcher(TOWB)
end
Address CT_1 Quit
exit
syntax:
error:
Address CT_1 OK_TEXT " OK "
Title = "An Error Was Found With This Script On Line #"SIGL"!"
