Fading Text

Mystify · **Posted:** Sat Dec 03, 2005 7:09 pm

Hey anyone know how to do fading text if so can you give me an example i cant figure it out????

Cervantes · **Posted:** Sat Dec 03, 2005 7:41 pm

You need to use the RGB module.

Turing Walkthrough -> RGB tutorial

DIIST · **Posted:** Sun Dec 04, 2005 1:56 pm

code:

const numc:int:=10%Number of shades
var font1:=Font.New ("serif:30")

var C:array 0..numc of int%to hold the colour number

for assigncolor:0..numc
C(assigncolor):=RGB.AddColor(assigncolor/numc,assigncolor/numc,assigncolor/numc)%Typical shades of black, you can change it to fit your taste by changint the red green and blue values
end for

for fade:0..numc
Font.Draw("example",50,50,font1,C(fade))
delay(50)
end for

Font.Free(font1)

Try this! This is how i ussually do it.

Cervantes · **Posted:** Sun Dec 04, 2005 3:26 pm

Ack! Whitespace is your friend.

Also, if there's nothing more to this program that involves these particular colours, you don't need to store them in an array:

code:

const numc := 100 %Number of shades
var font1 := Font.New ("serif:30")

for i : 0 .. numc
RGB.SetColour (240, i / numc, i / numc, i / numc) %Typical shades of black
Font.Draw ("example", 50, 50, font1, 240) %Draw in colour # 240, which is the one we're modifying with RGB.SetColour
end for

Font.Free(font1)

Untested

do_pete · **Posted:** Mon Dec 05, 2005 11:37 am

if your background is white or black you can do it this way which doesn't involve all that RGB stuff

code:

var font : int := Font.New ("timesnewroman:24:bold")
var text : string := "Fading text done the easy way."
var x : int := 150
var y : int := 200
for decreasing c : 31 .. 16
Font.Draw (text, x, y, font, c)
delay (50)
end for
for c : 16 .. 31
Font.Draw (text, x, y, font, c)
delay (50)
end for
colourback (black)
cls
for c : 16 .. 31
Font.Draw (text, x, y, font, c)
delay (50)
end for
for decreasing c : 31 .. 16
Font.Draw (text, x, y, font, c)
delay (50)
end for

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members