Using RGB command to print a character to screen.

Author

Message

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 21st Apr 2006 06:52

Link

Hi All

Might be of some use, only works with the blue value.

+ Code Snippet


Rem ***** Main Source File *****
col as dword

rem change blues value.
col=rgb(0,0,60)

print chr$(col)," hello"

wait key

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 21st Apr 2006 07:15

Link

Getting closer to what I was trying.

that is to change the text color in mid string.

+ Code Snippet

 col as dword

rem change blues value.
col =rgb(0,0,60)

print col;" ";change(rgb(255,0,0))," hello";change(rgb(0,255,0));"world"

wait key
end
function change(col)
ink col,0
endfunction b

and with text command

+ Code Snippet

col as dword

rem change blues value.
col =rgb(0,0,60)

print col;" ";change(rgb(255,0,0))," hello";change(rgb(0,255,0));"world"
center text screen width()/2,100,str$(col)+" "+str$(change(rgb(255,0,0)))+" hello"+str$(change(rgb(0,0,255)))+" World"
`+" hello"+change(rgb(0,255,0))+"world"
wait key
end
function change(col)
ink col,0
endfunction b

Now just trying to make the zero go away.

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

Jack

20

Years of Service

User Offline

Joined: 4th Oct 2004

Location: [Germany]

Posted: 27th Apr 2006 19:26 Edited at: 27th Apr 2006 19:26

Link

no try this:

+ Code Snippet

 col as dword

rem change blues value.
col =rgb(0,0,60)

print col;" ";change(255,0,0)," hello";change(0,255,0);"world"

wait key
end
function change(r#,g#,b#)
rgb r#,g#,b#
endfunction

its smaller

or just
ink rgb(r,g,b),0

[/center]

Back to top

Profile PM Email Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 27th Apr 2006 20:52

Link

I like the idea behind it. Never really thought about it like that for changing color within a text command.

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 28th Apr 2006 07:57 Edited at: 28th Apr 2006 07:59

Link

Idea comes form the BBC basic coding where you could put a chr$(255) in the middle of a print string and that would turn the text white or what ever colour you were trying to get.

eg:

print chr$(198);"hello ";chr$(179);"world."

Jack not sure which DBPro you are using but its does not work in rc10.

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 28th Apr 2006 11:34

Link

jack's doesn't work, its expecting change to return a value. DBP5.8

HowDo, your changes the colors, but its also printing the color value for me.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 28th Apr 2006 12:50

Link

thats the bit that getting me down, can't seam to find away yet that stops it from showing.

I know its to do with the way I call the function

.

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 28th Apr 2006 12:57 Edited at: 28th Apr 2006 13:41

Link

done it.

+ Code Snippet

col as dword

rem change blues value.
col =rgb(0,0,60)

print col;" ";left$(str$(change(rgb(255,0,0))),0);" hello";left$(str$(change(rgb(0,255,0))),0);" world"

wait key
end
function change(col)
ink col,0
endfunction b

Only one draw back, it will only work in the print command line does not work with text.(yet..)

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 28th Apr 2006 16:12

Link

too messy for me, It was showing the color value because you were returning the color value from the function. And given that the function is called from the print line, its outputting the result.

Simple way to fix it, either return an empty string, or return a string passed into the function that you want outputted in the color.

+ Code Snippet

print change$("hello",rgb(0,255,0));change$("world",rgb(255,0,0))
print change(rgb(255,0,0));" hello";change(rgb(0,255,0));" world"

wait key


function change$(s as string, c as dword)
    ink c,0
endfunction s


function change(col)
   ink col,0
endfunction ""

Back to top

Profile PM Email Website

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 28th Apr 2006 17:41

Link

or

+ Code Snippet

print change(255,0,0),"hello";change(0,255,0);"world"
print change(0,0,255),"hello";change(0,255,255);"world"
wait key
end

function change(r,g,b)
   ink rgb(r,g,b),0
endfunction ""

Boo!

Back to top

Profile PM Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 28th Apr 2006 18:17

Link

Phaelax, spooky; I think that just about refined it, didn't know I could use "" as a way of ending a function.

cheers.

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Using RGB command to print a character to screen.