-----------------------------------

Catalyst

Sat May 17, 2003 1:50 pm


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


-----------------------------------

octopi

Sat May 17, 2003 3:56 pm



-----------------------------------

That fonts really not that matrix'y....

See it here:
http://avatar.etw.ca/work.php?say=NEO%20%20MATRIX&x=190&y=22&font=matrix.ttf&Submit=Submit

Click here to type your own sentence:
*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.
http://avatar.etw.ca/work.php?say=NEO%20%20@&x=270&y=22&font=matrix.ttf&Submit=Submit


-----------------------------------

Catalyst

Sat May 17, 2003 3:58 pm



-----------------------------------

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


-----------------------------------

Homer_simpson

Sat May 17, 2003 4:21 pm



-----------------------------------

lol nice job...


-----------------------------------

Tony

Sat May 17, 2003 4:39 pm



-----------------------------------

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

Sat May 17, 2003 6:09 pm



-----------------------------------

Catalyst's matrix turing 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