Displaying color bars on screen - GameCreators Forum

Author

Message

DarkApple

9

Years of Service

User Offline

Joined: 22nd Jun 2014

Location:

Posted: 29th Jun 2014 17:29

Link

I am new to DBPro, in the meantime following small tutorials.

I am trying to generate a TV-style test pattern. I've been trying to figure out the solution to this problem all morning. I've been endlessly messing around with box coordinates for hours.

The program will display "This is a TEST!" at the top center of the window. I am trying to show the color bars collectively at the center of the x,y axis. The bars collective will only be one third the size of the window.

Here's a code snippet that only includes the text "This is a TEST!":

+ Code Snippet


Set display mode 400,300,32

Set text size 30

Center text 200,0,"This is a TEST!"

Wait key

Back to top

Profile PM

pcRaider

16

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 30th Jun 2014 10:45

Link

+ Code Snippet

rem BOX command

set window on
for t=0 to 9
    ink rgb(t*20,t*20,t*20),0
    x1=0
    y1=50*t
    x2=50*t
    y2=y1+50
    box x1,y1,x2,y2
next t

ink rgb(244,214,210),0
text 200,240,"press the spacebar to quit"
suspend for key
end

Attachment:sample code

windowsXp

Attachments

Login to view attachments

Back to top

Profile PM

DarkApple

9

Years of Service

User Offline

Joined: 22nd Jun 2014

Location:

Posted: 1st Jul 2014 03:51

Link

Here, you can tell me what you think:

+ Code Snippet

` Part 1
Wait 15000

Do
    

` Part 2
Randomize timer()
Set text size 30
Cls

` Test Pattern
For t = 0 to 9
    ink rgb(t*30,t*30,t*30),0
    left = 50*t
    top = 50
    right = 230*t
    bottom = 100
    box left, top, right, bottom
Next boxCount

` This is a TEST!
Ink rgb(255,255,255),0
Center text Screen Width()/2,0,"This is a TEST!"

` Random flashing boxes and dots
ink rgb(115,115,115),0
Box rnd(640),rnd(480),rnd(640),rnd(480)
Dot rnd(640),rnd(480)

Wait rnd(50)
Loop

Back to top

Profile PM

StaticBase

10

Years of Service

User Offline

Joined: 23rd Nov 2013

Location: Future

Posted: 2nd Jul 2014 10:18 Edited at: 2nd Jul 2014 22:47

Link

pcRaider when your code is executed it looks like this:

Where I think Dark Apple is looking for something more like this:

I'm a newbie myself so for me this was a pleasure and a challenge. Here is the solution I've come up with:

+ Code Snippet

randomize timer()

y = 0
y2 = screen height()
boxWidth = screen width() / 6
x = 0

for bar = 1 to 6
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   box x, y, x + boxWidth, y2
   inc x, boxWidth
next bar

message$ = "This is a test"
set text size 50
ink rgb(255,255,255),0
text screen width() /2 - text width(message$)/2, screen height()/2, message$
suspend for key
end

Just copy/paste that code into a new Dark Basic project and run it by pressing F5

I'm sorry for the lack of comments in the code, I just feel like it is simple enough to walk through. However I would love to break it down on request.

Back to top

Profile PM Email

StaticBase

10

Years of Service

User Offline

Joined: 23rd Nov 2013

Location: Future

Posted: 3rd Jul 2014 07:19

Link

Hi DarkApple,

That is really cool! I just realized that the code I wrote completely misses what you intended to do.

One question: Why are you waiting 150 seconds at the beginning? That's 2 and a half minutes of just waiting, reason? Just curious.

Back to top

Profile PM Email

DarkApple

9

Years of Service

User Offline

Joined: 22nd Jun 2014

Location:

Posted: 4th Jul 2014 05:29

Link

Didn't I make it 15 seconds?

I coded the random dot pixels and flickering gray boxes to attempt to simulate the "tracking" on an old VHS tape. See my other related DBPro newbie project.

The 15 second wait is just a reference to how on a VHS, after a movie's credits, the screen goes black for a few minutes before going to static/test pattern.

Back to top

Profile PM