Horizontal scrolling text - how smooth is it?

Author

Message

ACS Cobra

14

Years of Service

User Offline

Joined: 6th Apr 2010

Location:

Posted: 10th Dec 2017 10:54

Link

Hi Guys...,

I need to create a scrolling marque of text....

How smooth is the scrolling of horizontal text in AppGameKit?

I've tried GDI+ in visual basic but it's not that smooth.

Hope you can help.

Regards

Steve

Back to top

Profile PM

puzzler2018

User Banned

Posted: 10th Dec 2017 11:07

Link

Try it out

// Project: scroll 
// Created: 2017-12-10

// show all errors
SetErrorMode(2)

#constant width = 1024
#constant height = 768

// set window properties
SetWindowTitle( "scroll" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

text = createtext("Hello, this is a test of a scrolling to see how smooth it is. Does it work for you")
SetTextSize(text,20)

textposition = 0 - GetTextTotalWidth(text)
speed = 1

do
	inc textposition, speed
	SetTextPosition(text, textposition, height/2)
	
	if textposition>width then textposition = 0 - GetTextTotalWidth(text)
	if textposition < 0 - GetTextTotalWidth(text) then textposition=width

if GetRawKeyPressed(38) then inc speed
	if GetRawKeyPressed(40) then dec speed
	
	
	
    Print( ScreenFPS() )
    Print ("Pressing Cursor UP Key inc speed")
    Print ("Pressing Cursor Down dec speed")
    Sync()
loop

+ Code Snippet



// Project: scroll 
// Created: 2017-12-10

// show all errors
SetErrorMode(2)

#constant width = 1024
#constant height = 768

// set window properties
SetWindowTitle( "scroll" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


text = createtext("Hello, this is a test of a scrolling to see how smooth it is. Does it work for you")
SetTextSize(text,20)

textposition = 0 - GetTextTotalWidth(text)
speed = 1

do
	inc textposition, speed
	SetTextPosition(text, textposition, height/2)
	
	if textposition>width then textposition = 0 - GetTextTotalWidth(text)
	if textposition < 0 - GetTextTotalWidth(text) then textposition=width

	if GetRawKeyPressed(38) then inc speed
	if GetRawKeyPressed(40) then dec speed
	
	
	
    Print( ScreenFPS() )
    Print ("Pressing Cursor UP Key inc speed")
    Print ("Pressing Cursor Down dec speed")
    Sync()
loop

D

Back to top

Profile

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 10th Dec 2017 17:54

Link

Very smooth, especially if it is all you are displaying.
You can also use Tweens to create text that scrolls in and slows down as it reaches the centre of the screen. Then a slow start and scroll back out.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

Conjured Entertainment

AGK Developer

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location: Nirvana

Posted: 10th Dec 2017 22:25

Link

Quote: "Try it out"

You could use floats instead of integers too!

// Project: scroll 
// Created: 2017-12-10
 
// show all errors
SetErrorMode(2)
 
#constant width = 1024
#constant height = 768
 
// set window properties
SetWindowTitle( "scroll" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
 
text = createtext("Hello, this is a test of a scrolling to see how smooth it is. Does it work for you")
SetTextSize(text,20)
 
textposition# = 0 - GetTextTotalWidth(text)
speed# = .8
 
do
    inc textposition#, speed#
    SetTextPosition(text, textposition#, height/2)
     
    if textposition#>width then textposition# = 0 - GetTextTotalWidth(text)
    if textposition# < 0 - GetTextTotalWidth(text) then textposition#=width
 
    if GetRawKeyPressed(38) then inc speed#
    if GetRawKeyPressed(40) then dec speed#
     
     
     
    Print( ScreenFPS() )
    Print ("Pressing Cursor UP Key inc speed")
    Print ("Pressing Cursor Down dec speed")
    Sync()
loop

+ Code Snippet


// Project: scroll 
// Created: 2017-12-10
 
// show all errors
SetErrorMode(2)
 
#constant width = 1024
#constant height = 768
 
// set window properties
SetWindowTitle( "scroll" )
SetWindowSize( width, height, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
 
text = createtext("Hello, this is a test of a scrolling to see how smooth it is. Does it work for you")
SetTextSize(text,20)
 
textposition# = 0 - GetTextTotalWidth(text)
speed# = .8
 
do
    inc textposition#, speed#
    SetTextPosition(text, textposition#, height/2)
     
    if textposition#>width then textposition# = 0 - GetTextTotalWidth(text)
    if textposition# < 0 - GetTextTotalWidth(text) then textposition#=width
 
    if GetRawKeyPressed(38) then inc speed#
    if GetRawKeyPressed(40) then dec speed#
     
     
     
    Print( ScreenFPS() )
    Print ("Pressing Cursor UP Key inc speed")
    Print ("Pressing Cursor Down dec speed")
    Sync()
loop

Coding things my way since 1981 -- Currently using AppGameKit V2 Tier 1

Back to top

Profile PM Website

ACS Cobra

14

Years of Service

User Offline

Joined: 6th Apr 2010

Location:

Posted: 12th Dec 2017 20:00

Link

Thanks guys....

Works like a charm....

Just a query though... the speed variable... it doesn't seem to be used in the loop? how come? What am I missing?

I do the Big Screen TV display at a local football ground and we have been using X-Split for the graphics display, but it's been getting more and more stuttery

so we have moved to OBS... but OBS can't handle the large text I need to scroll along the bottom of the screen.
So I intend to use this to scroll the text and capture the screen in OBS...

Thanks again.

Back to top

Profile PM

puzzler2018

User Banned

Posted: 12th Dec 2017 21:42

Link

Hi

It does get used in the loop

We have used inc and dec commands which is the same as

inc speed# is the same as speed#=speed# + .8
dec speed# is the same as speed#=speed# - .8

Hope it goes well on the big screen

Good luck

D

Back to top

Profile

ACS Cobra

14

Years of Service

User Offline

Joined: 6th Apr 2010

Location:

Posted: 13th Dec 2017 20:59

Link

Hi Puzzler2018...,

I'm definitely missing something

The only reference to the speed variable in the loop is when it is being inc or dec... which is just changing the variables number... so what is acting on the variable "speed" to increase the scrolling speed?

Hope that makes sense

Thanks again.

Regards

Steve

Back to top

Profile PM

ACS Cobra

14

Years of Service

User Offline

Joined: 6th Apr 2010

Location:

Posted: 13th Dec 2017 21:06

Link

Ahhh spotted it....

I was assuming that:-

inc textposition, speed

meant that both of the variables where being inc'd by 1

as in other languages, you can instantiate multiple variables on the same line

i.e.
local var1, var2, var3, var4

etc...

the command would have been more readable if it was inc(textposition,speed) lol

That's what you get for assuming you know what a command is doing lol

Thanks again.

Regards

Steve

Back to top

Profile PM

puzzler2018

User Banned

Posted: 13th Dec 2017 21:08

Link

Yeah the command

inc textposition#, speed#

is where it actually is doing something

Its the way I programme

Glad you spotted it

Back to top

Profile

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 13th Dec 2017 21:16 Edited at: 13th Dec 2017 21:17

Link

Quote: "The only reference to the speed variable in the loop is when it is being inc or dec... which is just changing the variables number"

Line # 30, first line of the DO loop:

inc textposition#, speed#

That's what's updating your text position.

yall beat me while I was responding :p

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

ACS Cobra

14

Years of Service

User Offline

Joined: 6th Apr 2010

Location:

Posted: 13th Dec 2017 23:32

Link

Thanks again guys, I really appreciate your help and input

I've got it working

I have another program that updates the football league scores and outputs a text file.... my AppGameKit program then scrolls the text from right to left... and check to see if the file has been updated every three seconds, and if so, updates the text

Beers all round; unless you don't drink beer, then I guess tea, anyone?

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Horizontal scrolling text - how smooth is it?