logo

Live Production Software Forums


Welcome Guest! To enable all features please Login or Register.

Notification

Icon
Error

Options
Go to last post Go to first unread
svetotehnik  
#1 Posted : Friday, June 17, 2022 5:38:25 PM(UTC)
svetotehnik

Rank: Member

Groups: Registered
Joined: 11/6/2020(UTC)
Posts: 20
Russian Federation
Location: Saint-Petersburg

Thanks: 5 times
This script is for smooth movement of the graphics like Merge does

Code:
'start point
dim P0 as double = 0
'end point
dim P1 as double = 7

dim B as double = 0
dim t as double = 100

for i as double = 0 to 100
	
	B = (((1-(t/100))^3)*P0 + 3*t*((1-(t/100))^2)*P0 + 3*((t/100)^2)*(1-(t/100))*P1 + ((t/100)^3)*P1)/10

	dim Bs as string = B.ToString

	If Bs.Contains(",") Then
		Bs = Bs.Replace(",", ".")
	End If

	API.Function("SetPanX", Input:="title.png", SelectedIndex:="0", Value:=Bs)
	t=t-1

sleep(20)

next
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.