----------------------------------------------------------------------------------
--Render frame addition script.
--(C) Sam O'Hare, Uniform Communications Ltd, Jan 2005
--Last updated 17/01/05
--Email sam@pixelpollen.com
--Version 0.1
--Current Functionality:
--Add current frame number to the list to be rendered.
--Proposed Functionality:
--
----------------------------------------------------------------------------------

--Define Macroscript
macroScript RenderFrameAdder
	category:"Dusk"
	toolTip:"Render Frame Adder"
	Icon:#("Uniform",1)
(
	Frame_range = #()

	rollout Bar "Render Frame Adder"
	(
		button add "Add" align:#left across:3
		button update "Update" offset: [-93,0]
		edittext frames "Frames:" width:230 offset: [-115,4]
		
		on add pressed do 
		(
			new_frame = (filterstring (sliderTime as string) "f")[1] as integer
			append Frame_range new_frame
			frame_a = (filterstring (Frame_range as string) "(")[2]
			frames.text = (filterstring (Frame_a as string) ")")[1]
		)
		
		on update pressed do
		(
			rendPickupFrames = frames.text
		)
	)
	--Define New Floater
	RFA = newRolloutFloater "Render Frame Adder" 355 65 50 50
	addrollout bar RFA
)