Welcome to TVPaint Community forums !

Code: Select all

#Function Otano_ExposureInfo()
		// Gets a lot of usefull exposure infos
		// Result : position of the named frames on the timeline and total exposure, "None" if outside layer
		// => [CurrentPos] [HeadPos] [TailPos] [Exposure]
		//
		//LOCAL CurrentPos HeadPos TailPos Exposure
		//PARSE result CurrentPos HeadPos TailPos Exposure

		LOCAL CurrentPos HeadPos TailPos Exposure n Start End ifHead
		tv_LayerGetImage
		CurrentPos = result
	
			//Exit if outside layer
	
				tv_LayerInfo currentlayer
				parse result n n n n n Start End n n n
				IF ( (CurrentPos>End) || (CurrentPos<Start) )
					CurrentPos = None
					HeadPos = None
					TailPos = None
					Exposure = None
					result = CurrentPos" "HeadPos" "TailPos" "Exposure
					EXIT
				END
	
			//Searching the Head Position
	
				HeadPos = CurrentPos
				tv_exposureinfo HeadPos
				ifHead = result
	
				WHILE (CMP(ifHead, head)==0)
					HeadPos = HeadPos - 1
					tv_exposureinfo HeadPos
					ifHead = result
				END
	
			//Searching the Tail Position
	
				TailPos = CurrentPos
				tv_exposureinfo TailPos
				ifHead = result
	
				DO 
					TailPos = TailPos + 1 
					tv_exposureinfo TailPos
					ifHead = result
				UNTIL CMP(ifHead, head)==1 || CMP(ifHead, None)==1
			
				TailPos = TailPos - 1
	
		Exposure = TailPos - HeadPos + 1
		result = CurrentPos" "HeadPos" "TailPos" "Exposure
	#END

Code: Select all

#Function Otano_SetOneExposure(NewExposure)
		// Sets exposure of the current instance to NewExposure
		// Result : Returns the exposure after the function and the amount of exposure change.
		// => [ExposureAfter] [ExposureChange]	
		//
		//LOCAL ExposureAfter ExposureChange
		//PARSE result ExposureAfter ExposureChange
 	
		LOCAL CurrentPos HeadPos TailPos Exposure ExposureChange i
		Otano_ExposureInfo()
		PARSE result CurrentPos HeadPos TailPos Exposure
		Otano_GoToHead()
		ExposureChange = NewExposure-Exposure

		IF ( Exposure > NewExposure )
			 FOR i = 1 to ABS(ExposureChange)
			     tv_LayerCut
			 END
		ELSE
			IF ( Exposure < NewExposure )
			tv_ExposureAdd HeadPos ABS(ExposureChange)
			END
		END
		result = NewExposure" "ExposureChange
	#End

Code: Select all

#Function Otano_SetExposure(NewExposure)
		// Selects semi selected instances and sets exposure of one or selected instances to NewExposure
		// Result : Returns the number of modified exposures, the exposure in the selection before and after the function and the amount of total exposure change + the first frame and lenght of the selection before the function
		// => [Iterations] [ExposureChange]
		//
		//LOCAL Iterations ExposureChange
		//PARSE result Iterations ExposureChange
		
		tv_undoopenstack
		LOCAL CurrentFrame StartFrame Length Number CurFrame n SelectTail SelectHead ChangeStart FirstStart FirstLength
		LOCAL Iterations ExposureAfter ExposureChange 
		tv_LayerGetImage
		CurrentFrame=Result
		tv_LayerSelectInfo
		PARSE result StartFrame Length

		IF ((CMP(StartFrame, 0)==1) && (CMP(Length, 1)==1))
			tv_LayerSelect CurrentFrame 1
			tv_LayerSelectInfo
			PARSE result StartFrame Length
		END
		
		FirstStart=StartFrame
		FirstLength=Length
		
		Otano_SelectSemiSelected()
		PARSE result StartFrame Length
		
		Number=Length
		Iterations=0
		ExposureChange=0
			
		DO
			CurFrame=Number+StartFrame-1
			tv_LayerImage CurFrame
			tv_exposureinfo CurFrame
			PARSE result result n n
			IF (CMP(result, "Head")==1) 
				Otano_SetOneExposure(NewExposure)
				PARSE result n Change
				Iterations=Iterations+1
				ExposureChange=ExposureChange+Change
			END
			Number=Number-1
		UNTIL (Number==0)
		
		tv_exposureinfo CurFrame
		PARSE result result n n
		IF (CMP(result, "Exposure")==1) 
			Otano_GoToHead()
			Otano_SetOneExposure(NewExposure)
			PARSE result n Change
			Iterations=Iterations+1
			ExposureChange=ExposureChange+Change
			tv_LayerImage CurFrame
		END
		ExposureAfter = Length + ExposureChange		
		IF (CurrentFrame == FirstLength+FirstStart-1)
			Tv_LayerImage StartFrame+ExposureAfter-1
			Otano_GoToHead()
		ELSE
			Tv_LayerImage StartFrame
		END
		IF (CurrentFrame == FirstStart)
			Tv_LayerImage StartFrame
		END
		
		Tv_LayerSelect StartFrame ExposureAfter
		
		tv_undoclosestack
		result = Iterations" "ExposureChange
	#End

Code: Select all

#Function Otano_GoToHead()
		// Go to Instance Head

		#Otano_ExposureInfo()
		LOCAL CurrentPos HeadPos TailPos Exposure
		PARSE result CurrentPos HeadPos TailPos Exposure
		tv_LayerImage HeadPos
	#End	

Code: Select all

#Function Otano_GoToTail()
		// Go to Instance Tail

		#Otano_ExposureInfo()
		LOCAL CurrentPos HeadPos TailPos Exposure
		PARSE result CurrentPos HeadPos TailPos Exposure		
		tv_LayerImage TailPos
	#End

Code: Select all

#Function Otano_SelectSemiSelected()
	// Selects semi-selected Instances
	// Result : Returns the start and lenght of the new selection.
	// => [StartFrame] [Length]
	//
	//LOCAL StartFrame Length
	//PARSE result StartFrame Length

		LOCAL StartFrame Length
		tv_LayerSelectInfo
		PARSE result StartFrame Length
		tv_LayerImage StartFrame+Length-1
		Otano_GoToTail()
		Tv_LayerGetImage
		Length=Result-StartFrame+1
		tv_LayerImage StartFrame
		Otano_GoToHead()
		Tv_LayerGetImage
		Length=Length+StartFrame-Result
		StartFrame=Result
		Tv_LayerSelect StartFrame Length
		result=StartFrame" "Length
	#End