AVISource("F:\Weltrekordversuch coc.avi").AssumeFPS(30, 1)
#Im Framebereich 3000 - 7000 das Video mit 300 FPS abspielen lassen
SlowMotion(300, 840, 16470)
# =================================================================================================
# Slow- oder Speed Motions erstellen, indem die FPS gesteigert oder gesenkt wird im Bereich x bis y
# =================================================================================================
# clip0 - Quellvideo (Muss unbedingt gedubt sein)
# nfps - Neue FPS Angabe. (Geschwindigkeit) -> Default = 30
# sframe - Der Startframe wo das ganze anfangen soll -> Default = 0
# eframe - Der Endframe wo das ganze aufhören soll -> Default = Clip0.Framecount
# inf - True oder False für eine Infoanzeige -> Default = false
Function SlowMotion(clip clip0, float "nfps", int "sframe", int "eframe", bool "inf") {
sframe = Default(sframe, 0)
eframe = Default(eframe, clip0.framecount)
inf = Default(inf, false)
c1 = clip0.Trim(0, sframe-1)
c1 = (inf == True) ? c1.Subtitle("Framerate : " + string(c1.framerate) + " FPS\nSamplerate: " + string(round(c1.audiolengthf / (c1.Framecount / float(c1.framerate)))) + "Hz", font="Courier New", lsp=1).KillAudio() : c1.KillAudio()
c2 = clip0.Trim(sframe, eframe)
c2_2 = c2.AssumeFPS(nfps)
c2_2 = (inf == True) ? c2_2.Subtitle("Framerate : " + string(nfps) + " FPS\nSamplerate: " + string(round(c2.audiolengthf / (c2.Framecount / float(nfps)))) + "Hz", font="Courier New", lsp=1) : c2_2
c2_2 = c2_2.ChangeFPS(clip0.Framerate, Linear = false).KillAudio()
c3 = clip0.Trim(eframe+1, clip0.framecount)
c3 = (inf == True) ? c3.Subtitle("Framerate : " + string(c3.framerate) + " FPS\nSamplerate: " + string(round(c3.audiolengthf / (c3.Framecount / float(c3.framerate)))) + "Hz", font="Courier New", lsp=1).KillAudio() : c3.KillAudio()
a1 = clip0.Trim(0, sframe-1)
a2 = clip0.Trim(sframe, eframe).AssumeSampleRate(round(c2.audiolengthf / (c2.Framecount / float(nfps)))).ResampleAudio(c2.audiorate).ConvertAudioTo16bit()
a3 = clip0.Trim(eframe+1, clip0.framecount)
return (sframe == 0 && eframe == clip0.framecount) ? Audiodub(c2_2, a2) : (sframe==0) ? AudioDub(c2_2,a2)++AudioDub(c3,a3) : (eframe==clip0.framecount) ? Audiodub(c1,a1)++AudioDub(c2_2,a2) : Audiodub(c1,a1)++AudioDub(c2_2,a2)++AudioDub(c3,a3)