'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