Computer Science Canada :: View topic

for i : (255 div 2) .. 255
RGB.SetColor (i, 255, i * 2, 255)
end for
RGB.SetColor (128, 75, 1, 75)
for i : 1 .. 255
RGB.SetColor (i div 2, i, 1, i)
end for
RGB.SetColor (black, 255, 255, 255)

View.Set ("offscreenonly")
colorback (black)
const maxtext := 30
const textlong := 10
const speed := 20 %the more the slower
const textchange := 30
const maxz := 70
const minz := 10
const textmove := false
type mtext :
record
text : string
y : real
size, x, font, tempy : int
end record
var textarray : array 1 .. maxtext of mtext
color (9)
procedure newtext (var textarray : mtext)
for i : 1 .. maxtext
textarray.size := Rand.Int (minz, maxz)
Font.Free (textarray.font)
textarray.font := Font.New ("serif:" + intstr (textarray.size))
textarray.x := Rand.Int (1, 640)
textarray.y := 400
textarray.tempy := 400
textarray.text := ""
for ii : 1 .. textlong
textarray.text += chr (Rand.Int (65, 90))
end for
end for
end newtext
procedure draw (var textarray : mtext)
if textmove then
if textarray.tempy - textarray.y >= (textchange * (textarray.size / maxz)) then
textarray.tempy := round (textarray.y)
var t := ""
t := textarray.text
textarray.text := chr (Rand.Int (65, 90))
for ii : 1 .. textlong - 1
textarray.text += t (ii)
end for
end if
end if
textarray.y -= textarray.size / speed
for ii : 1 .. textlong
Font.Draw (textarray.text (ii), textarray.x, round ((textarray.y) + (ii * textarray.size)), textarray.font, ii * (255 div textlong))
end for
end draw
for i : 1 .. maxtext
textarray (i).font := Font.New ("serif:6")
newtext (textarray (i))
end for
loop
for i : 1 .. maxtext
draw (textarray (i))
end for
for i : 1 .. maxtext
if textarray (i).y <= 0 - (textarray (i).size * textlong) then
newtext (textarray (i))
end if
end for
View.Update
delay (1)
cls
exit when hasch
end loop

Author:	Catalyst [ Sat May 17, 2003 1:50 pm ]
Post subject:	Real Matrix Effect
This is a "matrix effect" i made using my 3d particle engine its more like the one in the movie since its 3d It takes a sec to normalize so be patient youll need to install the matrix font (its in the zip) to install it just put "matrix.ttf" into "c:\windows\fonts" or wherever ur font might be

Author:	octopi [ Sat May 17, 2003 3:56 pm ]
Post subject:
That fonts really not that matrix'y.... See it here: Click here to type your own sentence: http://avatar.etw.ca/work.php enter matrix.ttf as your font. I think you need to make your text all CAPS to use the matrix.ttf font. putting an '@' in the saying makes the word "matrix" look better.

Author:	Catalyst [ Sat May 17, 2003 3:58 pm ]
Post subject:
for the matrix effect in the program it looked better than the other fonts so i decided to use it

Author:	Homer_simpson [ Sat May 17, 2003 4:21 pm ]
Post subject:
lol nice job...

Author:	Tony [ Sat May 17, 2003 4:39 pm ]
Post subject:
defenatly best one yet 8) some sujestions: more falling columns at same time lower average Z value (bring those far away columns closer up) install a japanise font and use those letters instead.

Author:	Catalyst [ Sat May 17, 2003 10:58 pm ]
Post subject:
ive attached my source at the top if u guys want to screw with it

Author:	Homer_simpson [ Mon May 19, 2003 1:51 pm ]
Post subject:
why is yers soo complicated it has like 270 lines.... mine only has 75...

Author:	Catalyst [ Mon May 19, 2003 2:42 pm ]
Post subject:
mines also a 3d particle engine i didnt want to write new code so i used my existing engine much less work

Author:	Corpy [ Fri May 23, 2003 7:06 pm ]
Post subject:
definatly change the letters to the characters from cataliyts code and your matrix effect will rock.