Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Real Matrix Effect
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Catalyst




PostPosted: 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



realmatrix.t
 Description:

Download
 Filename:  realmatrix.t
 Filesize:  7.62 KB
 Downloaded:  2658 Time(s)


matrix.zip
 Description:

Download
 Filename:  matrix.zip
 Filesize:  274.35 KB
 Downloaded:  2017 Time(s)

Sponsor
Sponsor
Sponsor
sponsor
octopi




PostPosted: Sat May 17, 2003 3:56 pm   Post subject: (No subject)

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

See it here:
Posted Image, might have been reduced in size. Click Image to view fullscreen.

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.
Posted Image, might have been reduced in size. Click Image to view fullscreen.
Catalyst




PostPosted: Sat May 17, 2003 3:58 pm   Post subject: (No subject)

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




PostPosted: Sat May 17, 2003 4:21 pm   Post subject: (No subject)

lol nice job...
Tony




PostPosted: Sat May 17, 2003 4:39 pm   Post subject: (No 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.
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
Homer_simpson




PostPosted: Sat May 17, 2003 6:09 pm   Post subject: (No subject)

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!!!! Twisted Evil Twisted Evil Twisted Evil Twisted Evil
=Þ

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




PostPosted: Sat May 17, 2003 10:58 pm   Post subject: (No subject)

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




PostPosted: Mon May 19, 2003 1:51 pm   Post subject: (No subject)

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




PostPosted: Mon May 19, 2003 2:42 pm   Post subject: (No subject)

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




PostPosted: Fri May 23, 2003 7:06 pm   Post subject: (No subject)

definatly change the letters to the characters from cataliyts code and your matrix effect will rock. Smile
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 10 Posts ]
Jump to:   


Style:  
Search: