Typewrite text effect

This topic contains 1 reply, has 1 voice, and was last updated by juliocmfj 2 weeks, 4 days ago.

Viewing 2 posts - 1 through 2 (of 2 total)

Author

Posts

September 30, 2018 at 5:20 am #15487

Participant

In my main code, it is separated by modules. I put the two together just for example …

Namespace rpgf

#Import "<std>"
#Import "<mojo>"

Using std..
Using mojo..

Class TypewriteText
	Class Line
		Field text:String
		Field count:Int
		
		Method New:Void(text:String)
			Self.text = text
		End
	End
	
Protected
	Field lines:List<Line>
	Field timer:Timer
	Field currentLine:Int
	
Public
	Method New:Void()
		lines = New List<Line>()
	End
	
	Method AddLine:Void(text:String)
		lines.AddLast(New Line(text))
	End
	
	Method SetTimer:Void(seconds:Double)
		timer = New Timer(seconds, Update)
		timer.Suspended = True
	End
	
	Method Draw:Void(canvas:Canvas, x:Float, y:Float)
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		Local i:Int = 0
		Local currentLineTemp:Int = 0
		For i = 0 Until allLines.Length
			canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))
		Next
	End
	
Protected
	Method Update:Void()
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		allLines[currentLine].count += 1
		If (allLines[currentLine].count > allLines[currentLine].text.Length)
			currentLine += 1
		End
		If (currentLine >= lines.Count())
			currentLine = lines.Count() - 1
		End
	End
End


Class MainWindow Extends Window
	Field targetFps:Timer
	Field typewriteText:TypewriteText
	
	Method OnMeasure:Vec2i() Override
		Return New Vec2i(320, 240)
	End
	
	Method New:Void()
		Super.New("RPG-Framework", 640, 480, WindowFlags.Center)
		Layout = "letterbox"
		
		targetFps = New Timer(60, OnUpdate)
		
		typewriteText = New TypewriteText()
		typewriteText.AddLine("First line...")
		typewriteText.AddLine("Second line...")
		typewriteText.AddLine("Third line...")
		typewriteText.AddLine("Fourth line...")
		typewriteText.AddLine("Fifith line.")
		typewriteText.AddLine("....................")
		typewriteText.SetTimer(30)
	End
	
	Method OnUpdate:Void()
		App.RequestRender()
		
		If (Keyboard.KeyHit(Key.Escape))
			App.Terminate()
		End
	End
	
	Method OnRender( canvas:Canvas ) Override
'		App.RequestRender()
		
		canvas.TextureFilteringEnabled = False
		
		canvas.Clear(Color.Black)
		
		canvas.Color = Color.White
		typewriteText.Draw(canvas, 0, 0)
		
		canvas.Color = Color.White
		canvas.DrawText("FPS: ", 320 - 60, 0)
		canvas.Color = Color.Red
		canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)
	End
End

Function Main:Void()
	New AppInstance()
	
	New MainWindow()
	
	App.Run()
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

Namespace rpgf

#Import "<std>"

#Import "<mojo>"

Using std..

Using mojo..

Class TypewriteText

Class Line

Field text:String

Field count:Int

Method New:Void(text:String)

Self.text = text

End

Protected

Field lines:List<Line>

Field timer:Timer

Field currentLine:Int

Public

Method New:Void()

lines = New List<Line>()

End

Method AddLine:Void(text:String)

lines.AddLast(New Line(text))

End

Method SetTimer:Void(seconds:Double)

timer = New Timer(seconds, Update)

timer.Suspended = True

End

Method Draw:Void(canvas:Canvas, x:Float, y:Float)

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

Local i:Int = 0

Local currentLineTemp:Int = 0

For i = 0 Until allLines.Length

canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))

End

Protected

Method Update:Void()

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

allLines[currentLine].count += 1

If (allLines[currentLine].count > allLines[currentLine].text.Length)

currentLine += 1

End

If (currentLine >= lines.Count())

currentLine = lines.Count() - 1

End

Class MainWindow Extends Window

Field targetFps:Timer

Field typewriteText:TypewriteText

Method OnMeasure:Vec2i() Override

Return New Vec2i(320, 240)

End

Method New:Void()

Super.New("RPG-Framework", 640, 480, WindowFlags.Center)

Layout = "letterbox"

targetFps = New Timer(60, OnUpdate)

typewriteText = New TypewriteText()

typewriteText.AddLine("First line...")

typewriteText.AddLine("Second line...")

typewriteText.AddLine("Third line...")

typewriteText.AddLine("Fourth line...")

typewriteText.AddLine("Fifith line.")

typewriteText.AddLine("....................")

typewriteText.SetTimer(30)

End

Method OnUpdate:Void()

App.RequestRender()

If (Keyboard.KeyHit(Key.Escape))

App.Terminate()

End

Method OnRender( canvas:Canvas ) Override

' App.RequestRender()

canvas.TextureFilteringEnabled = False

canvas.Clear(Color.Black)

canvas.Color = Color.White

typewriteText.Draw(canvas, 0, 0)

canvas.Color = Color.White

canvas.DrawText("FPS: ", 320 - 60, 0)

canvas.Color = Color.Red

canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)

End

Function Main:Void()

New AppInstance()

New MainWindow()

App.Run()

End

September 30, 2018 at 6:03 am #15488

juliocmfj

Participant

Update…

Namespace rpgf
 
#Import "<std>"
#Import "<mojo>"
 
Using std..
Using mojo..
 
Class TypewriteText
	Class Line
		Field text:String
		Field count:Int
		
		Method New:Void(text:String)
			Self.text = text
		End
	End
	
Protected
	Field lines:List<Line>
	Field timer:Timer
	Field currentLine:Int
	
Public
	Method New:Void()
		lines = New List<Line>()
	End
	
	Method AddLine:Void(text:String)
		If Not (text.Contains("\n"))
			lines.AddLast(New Line(text))
		Else
			Local textArray:String[] = text.Split("\n")
			Local textArrayLength:Int = textArray.Length
			Local i:Int = 0
			For i = 0 Until textArrayLength
				lines.AddLast(New Line(textArray[i]))
			Next
		End
	End
	
	Method SetTimer:Void(seconds:Double)
		timer = New Timer(seconds, Update)
		timer.Suspended = True
	End
	
	Method Draw:Void(canvas:Canvas, x:Float, y:Float)
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		Local i:Int = 0
		Local currentLineTemp:Int = 0
		For i = 0 Until allLines.Length
			canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))
		Next
	End
	
Protected
	Method Update:Void()
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		allLines[currentLine].count += 1
		If (allLines[currentLine].count > allLines[currentLine].text.Length)
			currentLine += 1
		End
		If (currentLine >= lines.Count())
			currentLine = lines.Count() - 1
		End
	End
End
 
Class MainWindow Extends Window
	Field targetFps:Timer
	Field typewriteText:TypewriteText
	
	Method OnMeasure:Vec2i() Override
		Return New Vec2i(320, 240)
	End
	
	Method New:Void()
		Super.New("RPG-Framework", 640, 480, WindowFlags.Center)
		Layout = "letterbox"
		
		targetFps = New Timer(60, OnUpdate)
		
		typewriteText = New TypewriteText()
'		typewriteText.AddLine("First line...")
'		typewriteText.AddLine("Second line...")
'		typewriteText.AddLine("Third line...")
'		typewriteText.AddLine("Fourth line...")
'		typewriteText.AddLine("Fifith line.")
'		typewriteText.AddLine("....................")
		typewriteText.AddLine("First line...\nSecond line...\nThird line...\nFourth line...\nFifith line.\n....................")
		typewriteText.SetTimer(30)
	End
	
	Method OnUpdate:Void()
		App.RequestRender()
		
		If (Keyboard.KeyHit(Key.Escape))
			App.Terminate()
		End
	End
	
	Method OnRender( canvas:Canvas ) Override
'		App.RequestRender()
		
		canvas.TextureFilteringEnabled = False
		
		canvas.Clear(Color.Black)
		
		canvas.Color = Color.White
		typewriteText.Draw(canvas, 0, 0)
		
		canvas.Color = Color.White
		canvas.DrawText("FPS: ", 320 - 60, 0)
		canvas.Color = Color.Red
		canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)
	End
End

Function Main:Void()
	New AppInstance()
	
	New MainWindow()
	
	App.Run()
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

Namespace rpgf

#Import "<std>"

#Import "<mojo>"

Using std..

Using mojo..

Class TypewriteText

Class Line

Field text:String

Field count:Int

Method New:Void(text:String)

Self.text = text

End

Protected

Field lines:List<Line>

Field timer:Timer

Field currentLine:Int

Public

Method New:Void()

lines = New List<Line>()

End

Method AddLine:Void(text:String)

If Not (text.Contains("\n"))

lines.AddLast(New Line(text))

Else

Local textArray:String[] = text.Split("\n")

Local textArrayLength:Int = textArray.Length

Local i:Int = 0

For i = 0 Until textArrayLength

lines.AddLast(New Line(textArray[i]))

End

Method SetTimer:Void(seconds:Double)

timer = New Timer(seconds, Update)

timer.Suspended = True

End

Method Draw:Void(canvas:Canvas, x:Float, y:Float)

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

Local i:Int = 0

Local currentLineTemp:Int = 0

For i = 0 Until allLines.Length

canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))

End

Protected

Method Update:Void()

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

allLines[currentLine].count += 1

If (allLines[currentLine].count > allLines[currentLine].text.Length)

currentLine += 1

End

If (currentLine >= lines.Count())

currentLine = lines.Count() - 1

End

Class MainWindow Extends Window

Field targetFps:Timer

Field typewriteText:TypewriteText

Method OnMeasure:Vec2i() Override

Return New Vec2i(320, 240)

End

Method New:Void()

Super.New("RPG-Framework", 640, 480, WindowFlags.Center)

Layout = "letterbox"

targetFps = New Timer(60, OnUpdate)

typewriteText = New TypewriteText()

' typewriteText.AddLine("First line...")

' typewriteText.AddLine("Second line...")

' typewriteText.AddLine("Third line...")

' typewriteText.AddLine("Fourth line...")

' typewriteText.AddLine("Fifith line.")

' typewriteText.AddLine("....................")

typewriteText.AddLine("First line...\nSecond line...\nThird line...\nFourth line...\nFifith line.\n....................")

typewriteText.SetTimer(30)

End

Method OnUpdate:Void()

App.RequestRender()

If (Keyboard.KeyHit(Key.Escape))

App.Terminate()

End

Method OnRender( canvas:Canvas ) Override

' App.RequestRender()

canvas.TextureFilteringEnabled = False

canvas.Clear(Color.Black)

canvas.Color = Color.White

typewriteText.Draw(canvas, 0, 0)

canvas.Color = Color.White

canvas.DrawText("FPS: ", 320 - 60, 0)

canvas.Color = Color.Red

canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)

End

Function Main:Void()

New AppInstance()

New MainWindow()

App.Run()

End

Namespace rpgf
 
#Import "<std>"
#Import "<mojo>"
 
Using std..
Using mojo..
 
Class TypewriteText
	Class Line
		Field text:String
		Field count:Int
		
		Method New:Void(text:String)
			Self.text = text
		End
	End
	
Protected
	Field lines:List<Line>
	Field timer:Timer
	Field currentLine:Int
	
Public
	Method New:Void()
		lines = New List<Line>()
	End
	
	Method AddLine:Void(text:String)
		If Not (text.Contains("\n"))
			lines.AddLast(New Line(text))
		Else
			Local textArray:String[] = text.Split("\n")
			Local textArrayLength:Int = textArray.Length
			Local i:Int = 0
			For i = 0 Until textArrayLength
				lines.AddLast(New Line(textArray[i]))
			Next
		End
	End
	
	Method SetTimer:Void(seconds:Double)
		timer = New Timer(seconds, Update)
		timer.Suspended = True
	End
	
	Method Draw:Void(canvas:Canvas, x:Float, y:Float)
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		Local i:Int = 0
		Local currentLineTemp:Int = 0
		For i = 0 Until allLines.Length
			canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))
		Next
	End
	
Protected
	Method Update:Void()
		timer.Suspended = False
		Local allLines:Line[] = lines.ToArray()
		allLines[currentLine].count += 1
		If (allLines[currentLine].count > allLines[currentLine].text.Length)
			currentLine += 1
		End
		If (currentLine >= lines.Count())
			currentLine = lines.Count() - 1
		End
	End
End
 
Class MainWindow Extends Window
	Field targetFps:Timer
	Field typewriteText:TypewriteText
	
	Method OnMeasure:Vec2i() Override
		Return New Vec2i(320, 240)
	End
	
	Method New:Void()
		Super.New("RPG-Framework", 640, 480, WindowFlags.Center)
		Layout = "letterbox"
		
		targetFps = New Timer(60, OnUpdate)
		
		typewriteText = New TypewriteText()
'		typewriteText.AddLine("First line...")
'		typewriteText.AddLine("Second line...")
'		typewriteText.AddLine("Third line...")
'		typewriteText.AddLine("Fourth line...")
'		typewriteText.AddLine("Fifith line.")
'		typewriteText.AddLine("....................")
		typewriteText.AddLine("First line...\nSecond line...\nThird line...\nFourth line...\nFifith line.\n....................")
		typewriteText.SetTimer(30)
	End
	
	Method OnUpdate:Void()
		App.RequestRender()
		
		If (Keyboard.KeyHit(Key.Escape))
			App.Terminate()
		End
	End
	
	Method OnRender( canvas:Canvas ) Override
'		App.RequestRender()
		
		canvas.TextureFilteringEnabled = False
		
		canvas.Clear(Color.Black)
		
		canvas.Color = Color.White
		typewriteText.Draw(canvas, 0, 0)
		
		canvas.Color = Color.White
		canvas.DrawText("FPS: ", 320 - 60, 0)
		canvas.Color = Color.Red
		canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)
	End
End

Function Main:Void()
	New AppInstance()
	
	New MainWindow()
	
	App.Run()
End

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

Namespace rpgf

#Import "<std>"

#Import "<mojo>"

Using std..

Using mojo..

Class TypewriteText

Class Line

Field text:String

Field count:Int

Method New:Void(text:String)

Self.text = text

End

Protected

Field lines:List<Line>

Field timer:Timer

Field currentLine:Int

Public

Method New:Void()

lines = New List<Line>()

End

Method AddLine:Void(text:String)

If Not (text.Contains("\n"))

lines.AddLast(New Line(text))

Else

Local textArray:String[] = text.Split("\n")

Local textArrayLength:Int = textArray.Length

Local i:Int = 0

For i = 0 Until textArrayLength

lines.AddLast(New Line(textArray[i]))

End

Method SetTimer:Void(seconds:Double)

timer = New Timer(seconds, Update)

timer.Suspended = True

End

Method Draw:Void(canvas:Canvas, x:Float, y:Float)

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

Local i:Int = 0

Local currentLineTemp:Int = 0

For i = 0 Until allLines.Length

canvas.DrawText(allLines[i].text.Left(allLines[i].count), x, y + (canvas.Font.Height * i))

End

Protected

Method Update:Void()

timer.Suspended = False

Local allLines:Line[] = lines.ToArray()

allLines[currentLine].count += 1

If (allLines[currentLine].count > allLines[currentLine].text.Length)

currentLine += 1

End

If (currentLine >= lines.Count())

currentLine = lines.Count() - 1

End

Class MainWindow Extends Window

Field targetFps:Timer

Field typewriteText:TypewriteText

Method OnMeasure:Vec2i() Override

Return New Vec2i(320, 240)

End

Method New:Void()

Super.New("RPG-Framework", 640, 480, WindowFlags.Center)

Layout = "letterbox"

targetFps = New Timer(60, OnUpdate)

typewriteText = New TypewriteText()

' typewriteText.AddLine("First line...")

' typewriteText.AddLine("Second line...")

' typewriteText.AddLine("Third line...")

' typewriteText.AddLine("Fourth line...")

' typewriteText.AddLine("Fifith line.")

' typewriteText.AddLine("....................")

typewriteText.AddLine("First line...\nSecond line...\nThird line...\nFourth line...\nFifith line.\n....................")

typewriteText.SetTimer(30)

End

Method OnUpdate:Void()

App.RequestRender()

If (Keyboard.KeyHit(Key.Escape))

App.Terminate()

End

Method OnRender( canvas:Canvas ) Override

' App.RequestRender()

canvas.TextureFilteringEnabled = False

canvas.Clear(Color.Black)

canvas.Color = Color.White

typewriteText.Draw(canvas, 0, 0)

canvas.Color = Color.White

canvas.DrawText("FPS: ", 320 - 60, 0)

canvas.Color = Color.Red

canvas.DrawText("" + App.FPS, 320 - 60 + canvas.Font.TextWidth("FPS: "), 0)

End

Function Main:Void()

New AppInstance()

New MainWindow()

App.Run()

End

Author

Posts

Viewing 2 posts - 1 through 2 (of 2 total)

You must be logged in to reply to this topic.

Typewrite text effect

Archives

Recent Replies

What is this?