Jenyok
15th April 2010, 13:32
Scrolling up functions and example of they use.
Your remarks, corrections and improvements are welcome !
# Создаем "длинный" клип, который будем "прокручивать" в окне (1280x720)
# Prepare "long" (long height) clip to scroll in window (1280x720)
#
w = 1280 # Ширина клипа Clip width
h = 3300 # Подбираем высоту клипа интуитивно, чтобы уместился весь "текст", высота клипа
# Select clip height intuitively that all "text" has gone in clip, clip height
sz = 55 # Размер шрифта w=1280 Font size
dy = sz # Интервал между строками текста Distance between text lines in clip
sx = 40 # Отступ по "X" Indent "X"
sy = 25 # Отступ по "Y" Indent "Y"
ff = "Book Antiqua" # Тип шрифта Font type
BlankClip(200, width=w, height=h, fps=25, pixel_type="YUY2", audio_rate=44100, channels=2)
KillAudio() # Звук лучше добавить к готовому AVI файлу Sound is better to add to ready AVI file
#
# Sorry, Russian strings are here...
#
Subtitle("Идеи поиска и проведения работ по", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановлению Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 657
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Xxxxxx Xxxxxx", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Yyyyyyyyy Yyyyyyyy", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Zzzzz Zzzzzzz", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Aaaaaaa Aaaaaaaaa", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Общее руководство проектом", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановления Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 643
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Xxxxxx Xxxxxx", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Техническое руководство проектом", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановления Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 643
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Aaaaaaa Aaaaaaaaa", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Художественное руководство проектом", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановления Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 643
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Zzzzz Zzzzzzz", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Выполнение технических работ", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("по оцифровке Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 619
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Yyyyyyyyy Yyyyyyyy", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Выполнение технических работ по", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановлению Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 657
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Aaaaaaa Aaaaaaaaa", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Yyyyyyyyy Yyyyyyyy", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w / 2
sy = sy + Int(dy * 4)
Subtitle("Восстановленный Фильм " + chr(34) + "Uuuuuuu" + chr(34) + " был", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 890
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("подарен школе № xx г. Kkkkkkk, Rrrrrr,", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("в октябре 200x года (xx лет школе № xx).", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("Работы по восстановлению Фильма "+ chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 1077
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("заняли, примерно, XXXX xxx.", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 816
Subtitle("XXXX", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("При восстановлении звука Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 1072
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("(псевдо СТЕРЕО) применен оригинальный", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("алгоритм, разработки Aaaaaaa Aaaaaaaaa.", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 911
Subtitle("Aaaaaaa Aaaaaaaaa.", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("Фильм оцифрован, восстановлен, отреставрирован", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("и отредактирован с помощью следующего", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("программного обеспечения:", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
sz = 45 # Размер шрифта w=720
dy = sz
Subtitle("VirtualDub 1.9.8", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://www.virtualdub.org/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("AVISynth 2.5.8", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://avisynth.org/mediawiki/Main_Page/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("Adobe Photoshop CS2 Version 9.0.2", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://www.adobe.com/products/photoshop/photoshop/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("Pinnacle Studio 12", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://www.pinnaclesys.com/PublicSite/us/Home/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://www.pinnaclesys.ru/catalog/video_editing/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
Z0 = ConvertToYUY2() # "Длинный" клип для прокрутки создан !!! "Long" clip to scroll is ready !!!
# Scrolling function
#
function interlaced_scroll(clip clp, string speed, float fps)
{
clp = (speed == "very slow") ? clp.SeparateFields.SelectEvery(2, 1, 1) : \
(speed == "slow") ? clp.SeparateFields.SelectEvery(4, 1, 2) : \
(speed == "fast") ? clp.SeparateFields.SelectEvery(8, 1, 4) : \
(speed == "super fast") ? clp.SeparateFields.SelectEvery(16, 1, 8) : \
clp.SeparateFields.SelectEvery(2, 1, 1)
clp = weave(clp)
return clp.assumeFPS(fps)
}
function progressive_scroll(clip clp, string speed, float fps)
{
clp = (speed == "very slow") ? clp : \
(speed == "slow") ? SelectEvery(clp, 2, 0) : \
(speed == "fast") ? SelectEvery(clp, 4, 0) : \
(speed == "super fast") ? SelectEvery(clp, 8, 0) : clp
return clp.assumeFPS(fps)
}
function Scroll(clip clp, string "speed", float "fps", bool "interlaced")
{
fps = default(fps, 25.0)
interlaced = default(interlaced, false)
speed = default(speed, "fast")
speed = LCase(speed)
vw = width(clp)
vh = height(clp)
clp = AddBorders(clp, 0, vh, 0, vh)
a = vh + vh
v = ChangeFPS(clp, a).trim(0, a)
v = Animate(v, 0, a, "crop", 0, 0, vw, vh, 0, a, vw, vh)
return (interlaced == true) ? \
interlaced_scroll(v, speed, fps) : progressive_scroll(v, speed, fps)
}
function Scroll2(clip clp, string "speed", float "fps", bool "interlaced", int "c_width", int "c_height")
{
fps = default(fps, 25.0)
interlaced = default(interlaced, false)
c_width = default(c_width, 720)
c_height = default(c_height, 576)
speed = default(speed, "fast")
speed = LCase(speed)
a = height(clp) + c_height
clp = AddBorders(clp, 0, c_height, 0, c_height)
v = ChangeFPS(clp, a).trim(0, a)
v = Animate(v, 0, a, "crop", 0, 0, c_width, c_height, 0, a, c_width, c_height)
return (interlaced == true) ? \
interlaced_scroll(v, speed, fps) : progressive_scroll(v, speed, fps)
}
#
# Собственно использование "прокрутки" Example, purely "scrolling" usage
# Example № 1 Scroll2() is better
#
Scroll2(Z0, speed="very slow", fps=25.0, interlaced=false, c_width=1280, c_height=720)
s1 = ConvertToYUY2()
#
# Example № 2
#
a1 = Scroll(Z0, speed="very slow", fps=25.0, interlaced=false)
BlankClip(FrameCount(a1), width=1280, height=720, fps=25.0, pixel_type="YUY2", audio_rate=44100, channels=2)
KillAudio() # Звук лучше добавить к готовому AVI файлу Sound is better to add to ready AVI file
a0 = ConvertToYUY2()
s2 = Overlay(a0, a1, x=0, y=0)
last = s1
#last = s2
Your remarks, corrections and improvements are welcome !
I am interesting Scroll2() function.
Your remarks, corrections and improvements are welcome !
# Создаем "длинный" клип, который будем "прокручивать" в окне (1280x720)
# Prepare "long" (long height) clip to scroll in window (1280x720)
#
w = 1280 # Ширина клипа Clip width
h = 3300 # Подбираем высоту клипа интуитивно, чтобы уместился весь "текст", высота клипа
# Select clip height intuitively that all "text" has gone in clip, clip height
sz = 55 # Размер шрифта w=1280 Font size
dy = sz # Интервал между строками текста Distance between text lines in clip
sx = 40 # Отступ по "X" Indent "X"
sy = 25 # Отступ по "Y" Indent "Y"
ff = "Book Antiqua" # Тип шрифта Font type
BlankClip(200, width=w, height=h, fps=25, pixel_type="YUY2", audio_rate=44100, channels=2)
KillAudio() # Звук лучше добавить к готовому AVI файлу Sound is better to add to ready AVI file
#
# Sorry, Russian strings are here...
#
Subtitle("Идеи поиска и проведения работ по", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановлению Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 657
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Xxxxxx Xxxxxx", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Yyyyyyyyy Yyyyyyyy", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Zzzzz Zzzzzzz", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Aaaaaaa Aaaaaaaaa", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Общее руководство проектом", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановления Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 643
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Xxxxxx Xxxxxx", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Техническое руководство проектом", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановления Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 643
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Aaaaaaa Aaaaaaaaa", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Художественное руководство проектом", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановления Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 643
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Zzzzz Zzzzzzz", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Выполнение технических работ", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("по оцифровке Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 619
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Yyyyyyyyy Yyyyyyyy", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = 40
sy = sy + Int(dy * 2)
Subtitle("Выполнение технических работ по", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sy = sy + Int(dy)
Subtitle("восстановлению Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=7)
sx = 657
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=7)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Aaaaaaa Aaaaaaaaa", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w - 40
sy = sy + Int(dy)
Subtitle("Yyyyyyyyy Yyyyyyyy", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=9)
sx = w / 2
sy = sy + Int(dy * 4)
Subtitle("Восстановленный Фильм " + chr(34) + "Uuuuuuu" + chr(34) + " был", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 890
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("подарен школе № xx г. Kkkkkkk, Rrrrrr,", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("в октябре 200x года (xx лет школе № xx).", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("Работы по восстановлению Фильма "+ chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 1077
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("заняли, примерно, XXXX xxx.", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 816
Subtitle("XXXX", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("При восстановлении звука Фильма " + chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 1072
Subtitle(chr(34) + "Uuuuuuu" + chr(34), \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$ff0000, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("(псевдо СТЕРЕО) применен оригинальный", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("алгоритм, разработки Aaaaaaa Aaaaaaaaa.", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = 911
Subtitle("Aaaaaaa Aaaaaaaaa.", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("Фильм оцифрован, восстановлен, отреставрирован", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("и отредактирован с помощью следующего", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("программного обеспечения:", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$c0c0c0, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
sz = 45 # Размер шрифта w=720
dy = sz
Subtitle("VirtualDub 1.9.8", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://www.virtualdub.org/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("AVISynth 2.5.8", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://avisynth.org/mediawiki/Main_Page/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("Adobe Photoshop CS2 Version 9.0.2", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://www.adobe.com/products/photoshop/photoshop/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy * 2)
Subtitle("Pinnacle Studio 12", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://www.pinnaclesys.com/PublicSite/us/Home/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
sx = w / 2
sy = sy + Int(dy)
Subtitle("http://www.pinnaclesys.ru/catalog/video_editing/", \
x=sx, y=sy, first_frame=0, font=ff, size=sz, text_color=$708090, align=8)
Z0 = ConvertToYUY2() # "Длинный" клип для прокрутки создан !!! "Long" clip to scroll is ready !!!
# Scrolling function
#
function interlaced_scroll(clip clp, string speed, float fps)
{
clp = (speed == "very slow") ? clp.SeparateFields.SelectEvery(2, 1, 1) : \
(speed == "slow") ? clp.SeparateFields.SelectEvery(4, 1, 2) : \
(speed == "fast") ? clp.SeparateFields.SelectEvery(8, 1, 4) : \
(speed == "super fast") ? clp.SeparateFields.SelectEvery(16, 1, 8) : \
clp.SeparateFields.SelectEvery(2, 1, 1)
clp = weave(clp)
return clp.assumeFPS(fps)
}
function progressive_scroll(clip clp, string speed, float fps)
{
clp = (speed == "very slow") ? clp : \
(speed == "slow") ? SelectEvery(clp, 2, 0) : \
(speed == "fast") ? SelectEvery(clp, 4, 0) : \
(speed == "super fast") ? SelectEvery(clp, 8, 0) : clp
return clp.assumeFPS(fps)
}
function Scroll(clip clp, string "speed", float "fps", bool "interlaced")
{
fps = default(fps, 25.0)
interlaced = default(interlaced, false)
speed = default(speed, "fast")
speed = LCase(speed)
vw = width(clp)
vh = height(clp)
clp = AddBorders(clp, 0, vh, 0, vh)
a = vh + vh
v = ChangeFPS(clp, a).trim(0, a)
v = Animate(v, 0, a, "crop", 0, 0, vw, vh, 0, a, vw, vh)
return (interlaced == true) ? \
interlaced_scroll(v, speed, fps) : progressive_scroll(v, speed, fps)
}
function Scroll2(clip clp, string "speed", float "fps", bool "interlaced", int "c_width", int "c_height")
{
fps = default(fps, 25.0)
interlaced = default(interlaced, false)
c_width = default(c_width, 720)
c_height = default(c_height, 576)
speed = default(speed, "fast")
speed = LCase(speed)
a = height(clp) + c_height
clp = AddBorders(clp, 0, c_height, 0, c_height)
v = ChangeFPS(clp, a).trim(0, a)
v = Animate(v, 0, a, "crop", 0, 0, c_width, c_height, 0, a, c_width, c_height)
return (interlaced == true) ? \
interlaced_scroll(v, speed, fps) : progressive_scroll(v, speed, fps)
}
#
# Собственно использование "прокрутки" Example, purely "scrolling" usage
# Example № 1 Scroll2() is better
#
Scroll2(Z0, speed="very slow", fps=25.0, interlaced=false, c_width=1280, c_height=720)
s1 = ConvertToYUY2()
#
# Example № 2
#
a1 = Scroll(Z0, speed="very slow", fps=25.0, interlaced=false)
BlankClip(FrameCount(a1), width=1280, height=720, fps=25.0, pixel_type="YUY2", audio_rate=44100, channels=2)
KillAudio() # Звук лучше добавить к готовому AVI файлу Sound is better to add to ready AVI file
a0 = ConvertToYUY2()
s2 = Overlay(a0, a1, x=0, y=0)
last = s1
#last = s2
Your remarks, corrections and improvements are welcome !
I am interesting Scroll2() function.