Heres My Matrix Screen

Carey · **Posted:** Wed Jun 18, 2008 1:14 pm

Please STOP reposting other people's code!!

apomb · **Posted:** Wed Jun 18, 2008 2:14 pm

none of you can even come close to how awesome this old matrix program made by Catalyst...
DO NOT and i repeat DO NOT POST IN THE THREAD I AM ABOUT TO POST, JUST LOOK

link

jeffgreco13 · **Posted:** Wed Jun 18, 2008 2:19 pm

why does death bringer just copy other ppls stuff and try and make it his own... you dont get respect for that

Euphoracle · **Posted:** Wed Jun 18, 2008 2:58 pm

apomb @ Wed Jun 18, 2008 2:14 pm wrote:

none of you can even come close to how awesome this old matrix program made by Catalyst...
DO NOT and i repeat DO NOT POST IN THE THREAD I AM ABOUT TO POST, JUST LOOK

link

Ah, that's the one I was looking for.

apomb · **Posted:** Wed Jun 18, 2008 3:56 pm

Euphoracle @ Wed Jun 18, 2008 2:58 pm wrote:

apomb @ Wed Jun 18, 2008 2:14 pm wrote:

none of you can even come close to how awesome this old matrix program made by Catalyst...
DO NOT and i repeat DO NOT POST IN THE THREAD I AM ABOUT TO POST, JUST LOOK

link

Ah, that's the one I was looking for.

you're welcome then Razz

and hey, yours was pretty sweet, no disrespect, but he uses a 3d particle engine... i mean c'mon

Reality Check · **Posted:** Wed Jun 18, 2008 4:26 pm

The one you posted was nice but still doesn't feel too matrixy. I think he he needs to have a lower average of z coordinates since there doesn't seem to be enough of them far away.

apomb · **Posted:** Wed Jun 18, 2008 6:10 pm

Reality Check @ Wed Jun 18, 2008 4:26 pm wrote:

The one you posted was nice but still doesn't feel too matrixy. I think he he needs to have a lower average of z coordinates since there doesn't seem to be enough of them far away.

'

i cant belive you copied Tony from 5 years ago...

Tony @ Sat May 17, 2003 4:39 pm wrote:

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.

seriously?

Reality Check · **Posted:** Wed Jun 18, 2008 9:30 pm

lol. I didn't even read any of the replies. I just downloaded the files and ran the source and looked at the source for a little bit. lol...

drij · **Posted:** Sat Oct 25, 2008 2:25 pm

My awesome matrix screen. check it out Wink

Turing:

/* Matrix.t
Matrixified
Adrien Johnson
Oct 22 */
View.Set ("screen:30;80,nobuttonbar,offscreenonly,title:Matrix,")

const minchar : int := 33
const maxchar : int := 255
/* which charaters to use. change if you want */
const newlines : int := 2
/* new lines created per step */
const greenshades : int := 30
/* higher the number, slower the fade */

type singleLetter :
record
justDropped : boolean
symbol : char
shade : int
end record

var greens : array 0 .. greenshades of int
/* Stores colour numbers for shades of green */

var screen : array 1 .. maxrow, 1 .. maxcol of singleLetter
/* Stores the current state of the screen */

for i : 0 .. greenshades
greens (i) := RGB.AddColour (0.0, i * 1 / greenshades, 0.0)
end for
/* initialises greens to the colour numbers of the shades, 0 is blackest, greenshades is greenest */

proc drawScreen
for row : 1 .. maxrow
for col : 1 .. maxcol
locate (row, col)
colour (greens (screen (row, col).shade))
put screen (row, col).symbol ..
end for
end for
end drawScreen

proc initScreen
for row : 1 .. maxrow
for col : 1 .. maxcol
screen (row, col).justDropped := false
screen (row, col).symbol := chr (Rand.Int (minchar, maxchar))
screen (row, col).shade := 0
end for
end for
end initScreen

proc fade
for row : 1 .. maxrow
for col : 1 .. maxcol
if screen (row, col).shade > 0 then
screen (row, col).shade -= 1
end if
end for
end for
end fade

proc drop
for decreasing row : maxrow .. 2
for col : 1 .. maxcol
if screen (row - 1, col).justDropped then
screen (row, col).justDropped := true
screen (row - 1, col).justDropped := false
screen (row, col).shade := greenshades
end if
end for
end for
end drop

proc clearbottom
for col : 1 .. maxcol
screen (maxrow, col).justDropped := false
end for
end clearbottom

proc gentop
for i : 1 .. newlines
screen (1, Rand.Int (1, maxcol)).justDropped := true
screen (1, Rand.Int (1, maxcol)).shade := greenshades
screen (1, Rand.Int (1, maxcol)).symbol := chr (Rand.Int (minchar, maxchar))
end for
end gentop

%%%%%%%%%%%%%%%%
% MAIN PROGRAM %
%%%%%%%%%%%%%%%%

initScreen
colourback (black)

loop
Draw.Cls
drawScreen
View.Update
clearbottom
drop
fade
gentop
delay (100)
end loop

You could probably change the line at the top

Turing:

View.Set ("screen:30;80,nobuttonbar,offscreenonly,title:Matrix,")

to

Turing:

View.Set ("screen:max;max,nobuttonbar,offscreenonly,title:Matrix,")

to get it to be fullscreen but that would really kill your cpu Smile

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