Real Matrix Effect

[Catalyst]

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

[octopi]

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.

[Catalyst]

for the matrix effect in the program it looked better than the other fonts so i decided to use it

[Homer_simpson]

lol nice job...

[Tony]

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.

[Homer_simpson]

Catalyst's matrix turing code:

code:

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

BWwahahahahrrr... catayst exposed!!!!
=Þ

try changing the Value of constants to see the effects

const maxtext := 30 % the number of streams...
const textlong := 10 %number of characters in each stream
const speed := 20 %the more the slower
const textchange := 30 % the delay between each text movement effect
const maxz := 70 %closest
const minz := 10 %furthest
const textmove := false %text-movement effect

[Catalyst]

ive attached my source at the top if u guys want to screw with it

[Homer_simpson]

why is yers soo complicated it has like 270 lines.... mine only has 75...

[Catalyst]

mines also a 3d particle engine
i didnt want to write new code so i used my existing engine much less work

[Corpy]

definatly change the letters to the characters from cataliyts code and your matrix effect will rock.