-------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------
-- AnimRange.mcr
-- Original code written by Swami.  I just stripped it down for my needs. All credit goes to him.
-- Description: A quick utility to set the animation ranges.
-------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------
macroScript animRange category:"FaceMn Tools" toolTip:"AnimRange"
(

global SetAnimRanges

startORIG=animationRange.start; start=startORIG; startButtonTime=startORIG
endORIG=animationRange.end; end=endORIG; endButtonTime=endORIG
SpinnerMin=-999; SpinnerMax=10000


rollout animRange "Animation Ranges"
(

	spinner startSpinner "Start" range:[SpinnerMin,SpinnerMax,StartORIG] type:#integer pos:[20,10] width:60
	spinner endSpinner "End" range:[SpinnerMin,SpinnerMax,StartORIG] type:#integer pos:[100,10] width:60



on startSpinner changed spinnerTime do
	(
		setWaitCursor()
		startCurrent=animationRange.start
		endCurrent=animationRange.end
		
		if spinnerTime < EndCurrent then
		(
			animationRange = (interval spinnerTime endCurrent)
			startCurrent=spinnerTime
			sliderTime=spinnerTime
		)
		else
		( 
			animationRange.start = endCurrent - 1
			startSpinner.value=animationRange.start
			sliderTime=spinnerTime
		)
	)

on endSpinner changed spinnerTime do
	(
		setWaitCursor()
		startCurrent=animationRange.start
		endCurrent=animationRange.end

		if spinnerTime > startCurrent then
		(
			animationRange = (interval startCurrent spinnerTime)
			endCurrent=spinnerTime
			sliderTime=spinnerTime
		)
		else
		( 
			animationRange.end = startCurrent + 1
			endSpinner.value=animationRange.end
		)
	)


)--end rollout

AR = newRolloutFloater "AnimRange" 200 93
addRollout animRange AR

)--end Macroscript