Scrolling Text App...Simplified?...Not Karaoke

[Moontrash]

I've looked in here for instructions on how to do scrolling text or just adding text but was wondering if there is a dedicated application for doing this.....I know virtualDub adds it through the watermark/text filter.....but is there anything easier....i don't mean adding text like to a Karaoke dvd but......just a scrolling text across the bottom of the screen....I'm guessing that a Subtitle app is the way to go but I see alot of TV infomercials w/ the same scrolling text box at the bottom(from right to left)...and wondered if there was another app....simpler process that does this

moontrash

[rkr1958]

I've looked in here for instructions on how to do scrolling text or just adding text but was wondering if there is a dedicated application for doing this.....I know virtualDub adds it through the watermark/text filter.....but is there anything easier....i don't mean adding text like to a Karaoke dvd but......just a scrolling text across the bottom of the screen....I'm guessing that a Subtitle app is the way to go but I see alot of TV infomercials w/ the same scrolling text box at the bottom(from right to left)...and wondered if there was another app....simpler process that does this

moontrash

It's not a simple app to learn, but with a little bit of learning you could do it quite easily in AVISynth using the antimate & subtitle functions.

[guns1inger]

They don't do it with subtitles, and most apps that will do it will require you to re-encode your video to embed the text in it. Avisynth is one way. Also, most editing programs have some form of title generating module, many of which will do sideways scrolls.

[Moontrash]

can u give me an idea of an app that u might know of that has that sideways scroll title generating module?...is it something like ulead movie factory,sony dvd producer or another app u might can think of?

ive tinkered w/ avisynth and it's a bit beyond my grasp...or learning curve...

thanx for ur input videohelpers

moontrash

[rkr1958]

Here's a script I wrote that added scrolling text w/scolling ribbon to the bottom of a 1-minute & 15-second video from my son's 2005 Christmas program. I encoded the video to VCD using TMPGEnc-Plus. However, even at VCD the resultant video is 13-MB and is too large to upload to the webspace provide by my ISP. Even at VCD quality is doesn't look too bad.

Moontrash, If interested, through trial and error you could customize the following script for your video and check it out in virtualdub.

# Deshook, DeNoised Video
a = AVISource("G:\MUMC_Preschool_Christmas_Show_2005\Song-1.avi",audio = false).ConvertToYUY2()
nf = Framecount(a)
fr = Framerate(a)

# Segment video to add in scrolling ribbon, which will contain the scrolling text
f1 = 288  # first frame when text extends full width of the screen
f2 = 1972 # first frame when text begins to exit the right part of the screen
a1 = a.trim(0,f1)     # for scrolling ribbon
a2 = a.trim(f1+1,f2)  # for fixed ribbon
a3 = a.trim(f2+1,nf)  # for scrolling ribbon
n1 = Framecount(a1)
n2 = Framecount(a2)
n3 = Framecount(a3)

# Create the ribbons (1 & 3 scoll)
rib1 = blankclip(length=n1, width=720, height=40, fps=fr, color=color_black, audio_rate=0).ConvertToYUY2()
rib2 = blankclip(length=n2, width=720, height=40, fps=fr, color=color_black, audio_rate=0).ConvertToYUY2()
rib3 = blankclip(length=n3, width=720, height=40, fps=fr, color=color_black, audio_rate=0).ConvertToYUY2()

# Add ribbons to the bottom of the video to house the scrolling text
# Layer (clip, layer_clip, string "op", int "level", int "x", int "y", int "threshold", bool "use_chroma")
a1 = Animate(0,n1-1,"Layer",a1,rib1,"add",255,720,408,0,true, \
                           a1,rib1,"add",255,  0,408,0,true)
a2 = Layer(a2,rib2,x=0,y=408)
a3 = Animate(0,n3,"Layer",a3,rib1,"add",255,  0,408,0,true, \
                          a3,rib1,"add",255,-720,408,0,true)
clip = a1 + a2 + a3

# Create the Scrolling Text
scrolling_text = \
  "This is an example of adding scrolling text to a video.  " + \
  "This text was added using AVISynth and the functions antimate and subtitle.  " + \
  "The running time of this video is approximately 1-minute & 15-seconds.  " + \
  "This video is from a source that was shot without a tripod and is very shakey.  " + \
  "Gunnar Thalin's Deshaker v2.0 plugin to virtualdub was used to stabilize this video.  " + \
  "Also, AVISynth filters pre and post deshook were used to prep and denoise this video.  " + \
  "I hope you have enjoyed this demostration."

# Antimate the scrolling text   StrLen
clip = clip.Animate(6,nf-8, "Subtitle", \
       Scrolling_text, 720, 414, 0, nf, "Arial", 24, color_yellow, \
       Scrolling_text, -round(9.87*StrLen(scrolling_text)), 414, 0, nf, "Arial", 24, color_yellow)

# Add Audio
audio = WAVSource("G:\MUMC_Preschool_Christmas_Show_2005\RAW-Song-1.wav")
clip = AudioDub(clip, audio)

return clip

[Moontrash]

is there a tutorial @ doom9 or here that can give a basic walkthrough on how to use(apply) this or other scrips?

[rkr1958]

is there a tutorial @ doom9 or here that can give a basic walkthrough on how to use(apply) this or other scrips?

There's an AVISynth forum. Also, there's detailed documentation that you can access when you install AVISynth. Also a very good resource is www.aivsynth.org but unfortunately is appears that their servers crashed and may be a while before they get back on line.

One very important thing I need to point out about the script I posted above is that all commands need to be one line, unless a continuation character (i.e., \) is used. The formatting in the above example caused some commands to appear to be on two lines when in fact they were only on one. For example, the command

rib2 = blankclip(length=n2, width=720, height=40, fps=fr, color=color_black, audio_rate=0).ConvertToYUY2()

in my script is on ONE line and NOT two.

[rkr1958]

Here's a scroll text function that I wrote for AVISynth. Seems to work fairly well in the few examples that I've tried.

#
#  function scroll_text
#
function scroll_text(clip clip, string text, int "color", int "dt_start", int "dt_end")
{

# Convert to YUY2 (if necessary)
clip = (IsYUY2(clip))? clip : clip.ConvertToYUY2()

# get part of clip for which text is to be scrolled
nf_clip = Framecount(clip)
fr_clip = Framerate(clip)
fr_start = (defined(dt_start))? round(dt_start*fr_clip) : 0
fr_end = (defined(dt_end))? nf_clip-round(dt_end*fr_clip) : nf_clip

#  Trim portion of clip that will display the scrolling text
a = clip.trim(fr_start,fr_end)
nf = Framecount(a)
fr = Framerate(a)

# Create the scroll box & add to the clip
box = blankclip(length=nf, width=720, height=40, fps=fr, color=color_black, audio_rate=0).ConvertToYUY2()
a = Layer(a,box,x=0,y=408)

# Antimate the scrolling text
color = (defined(color))? color : color_yellow
a = a.Animate(0,nf, "Subtitle", text, 720, 414, 0, nf, "Arial", 24, color, \
               text, -round(9.5*StrLen(text)), 414, 0, nf, "Arial", 24, color)

# add in beginning & end parts that do not display text (if applicable)
a = (fr_start > 0)? clip.trim(0,fr_start-1) + a : a
a = (fr_end < nf_clip)? a + clip.trim(fr_end+1,nf_clip) : a

return a
}

[Moontrash]

i think this scripting is beyond what i can do......im use to apps where u click on a simple gui and thats about it.....im lost w/ this scripting

[ricardouk]

Editstudio will do that, its a commercial program but theres a full working 30 evaluation you can download, it wont convert to dvd, if youre going to use it one time only, export the video to an "uncompressed" format and then use Quen or HCenc to convert it to dvd.

[Moontrash]

ok.....i'll look into editstudio and see what i can accomplish.....hopefully i wont pull my hair out lol

thanx

moontrash