Quantcast Avisynth: Vertically Scrolling Text? - digitalFAQ.com Forums [Archives]
  #1  
08-28-2003, 12:28 PM
ong001 ong001 is offline
Free Member
 
Join Date: Jun 2003
Posts: 10
Thanks: 0
Thanked 0 Times in 0 Posts
I like to use Avisynth to add subtitles because it gives accurate control over the result.

However Avisynth does not support East Asian Fonts for subtitle.
What a waste!

There is a post on this topic on D9 by FredThompson:
(http://forum.doom9.org/showthread.ph...threadid=60220)

Below is my example of a vertically scrolling text, using some text from his post.

#################################
Blanks=BlankClip(length=1, width=352, height=300, color=$000000,fps=25)

V2= Blanks.BlankClip(length=2000, width=352, height=288, color=$000000,fps=25)

#AliceBlue=eff7ff azure=efffff khaki2=ede275 Seashell=fef3eb snow=fff9fa

function Sub(clip "clip",string "text", Int "vpos") {
return clip.Subtitle( text,25,vpos,0,2000,"Bookman Old Style",25,$efffff)
}

S1="I'm looking for a way to"
S2="create a vertically scrolling"
S3="section of text. This effect"
S4="is sometimes used with"
S5="documentaries."
S6="Essentially, I'd like to"
S7="start with a pure black"
S8="screen then have the text"
S9="scroll from the bottom and"
S10="go off the top, returning"
S11="to a pure black screen."

s=Blanks.Sub(s1,25).Sub(s2,50).Sub(s3,75).Sub(s4,1 00).Sub(s5,125).Sub(s6,150). Sub(s7,175).sub(s8,200).sub(s9,225).sub(s10,250).s ub(s11,275)

v1=MASK(s,s)

function move(clip "baseClip", clip "movingClip" , Int "value" , Int "hpos", Int "vpos") {
return baseClip.Layer( movingClip, "Add", value, hpos, vpos )
}

Animate(0,1500,"move",v2,v1,255,0,288, v2,v1,255,0,-800) #move upwards

trim(0,830)

#################################

If you want, you can make a Scrolling Text over video:

#################################
ImageReader("my.jpg", 0, 0, 25, true)
FlipVertical()
LanczosResize(352,28.trim(1,1).loop(10*25)
v2= loop(100) #make the clip longer

#increase height if necessary
Blanks=BlankClip(length=1, width=352, height=300, color=$000000,fps=25)

#AliceBlue=eff7ff azure=efffff khaki2=ede275 Seashell=fef3eb snow=fff9fa

function Sub(clip "clip",string "text", Int "vpos") {
return clip.Subtitle( text,25,vpos,0,2000,"Bookman Old Style",25,$ffffff)
}

S1="I'm looking for a way to"
S2="create a vertically scrolling"
S3="section of text. This effect"
S4="is sometimes used with"
S5="documentaries."
S6="Essentially, I'd like to"
S7="start with a pure black"
S8="screen then have the text"
S9="scroll from the bottom and"
S10="go off the top, returning"
S11="to a pure black screen."

s=Blanks.Sub(s1,25).Sub(s2,50).Sub(s3,75).Sub(s4,1 00).Sub(s5,125).Sub(s6,150). Sub(s7,175).sub(s8,200).sub(s9,225).sub(s10,250).s ub(s11,275)

V1=s.ConvertToRGB32()
v2=v2.ConvertToRGB32()
v1=MASK(v1,v1)

function move(clip "baseClip", clip "movingClip" , Int "value" , Int "hpos", Int "vpos") {
return baseClip.Layer( movingClip, "Add", value, hpos, vpos )
}

Animate(0,1900,"move",v2,v1,255,0,288, v2,v1,255,0,-1000) #move upwards

trim(0,850)

#################################
Reply With Quote
Someday, 12:01 PM
admin's Avatar
Site Staff / Ad Manager
 
Join Date: Dec 2002
Posts: 42
Thanks: ∞
Thanked 42 Times in 42 Posts
Reply




Similar Threads
Thread Thread Starter Forum Replies Last Post
TMPGEnc: Bumpy scrolling madmega Video Encoding and Conversion 8 02-08-2005 03:37 PM
Avisynth: Scrolling video tommyboy Avisynth Scripting 1 12-19-2004 05:08 PM
How to write a text file from a avisynth script? fabrice Avisynth Scripting 4 12-14-2003 05:33 PM
DVD2SVCD: DVD format squashed vertically? Paulus Video Encoding and Conversion 4 07-29-2003 03:05 PM
KVCD: Non-smooth playback of scrolling movies? wouter Video Encoding and Conversion 2 01-26-2003 12:34 PM

Thread Tools



 
All times are GMT -5. The time now is 10:27 AM  —  vBulletin © Jelsoft Enterprises Ltd