The Matrix

Catalyst · **Posted:** Wed May 14, 2003 10:22 pm

i remade it...

not the effect you guys were talking about, but an effect nonetheless

code:

%% New Matrix

View.Set ("position:300;300,graphics:640;640,offscreenonly,nobuttonbar,noecho,nocursor")
for i : 1 .. 255
RGB.SetColor (i, 0, i / 255, 0)
end for
type Letter :
record
row, col : int
life : real
end record
type HiddenText :
record
Elements : array 1 .. 100, 1 .. 100 of int
c : array 1 .. 100, 1 .. 100 of char
C : array 1 .. 100, 1 .. 100 of int
lives : array 1 .. 100, 1 .. 100 of real
end record
drawfillbox (0, 0, maxx, maxy, 7)
const maxLett :=40
const maxLife := 20
var text : string := "The Matrix"
var text2 : string := "Reloaded"
var bigFont : int := Font.New ("verdana:75:bold")
Font.Draw (text, 15, 300, bigFont, 0)
var hText : HiddenText
for i : 1 .. maxrow
for k : 1 .. maxcol
hText.Elements (i, k) := 0
end for
end for
var holdR, holdC : int
for decreasing i : maxy .. 12 by 12
for k : 8 .. maxx by 8
holdR := round (i / 12)
holdR += round ((maxrow div 2 - holdR) * 2) + 4
holdC := round (k / 8)
if holdR > 0 and holdR < maxrow then
if whatdotcolor (k, i) = 0 then
hText.Elements (holdR, holdC) := 1
hText.lives (holdR, holdC) := 1
else
hText.Elements (holdR, holdC) := 0
hText.lives (holdR, holdC) := 0
end if
hText.c (holdR, holdC) := chr (Rand.Int (60, 90))
hText.C (holdR, holdC) := Rand.Int (250, 255)
end if
end for
end for
drawfillbox (0, 0, maxx, maxy, 7)
var LettList : array 1 .. maxLett of Letter
for i : 1 .. maxLett
LettList (i).row := Rand.Int (-maxrow, 1)
LettList (i).col := Rand.Int (1, maxcol)
end for
var trailLength : int := 15
var multc : real := 255 / trailLength
loop
for i : 1 .. maxrow
for k : 1 .. maxcol
if hText.Elements (i, k) = 1 then
locate (i, k)
if hText.lives (i, k) > 255 then
color (255)
else
color (round ((hText.lives (i, k) / 255) * 255))
end if
colorback (7)
put hText.c (i, k) ..
end if
end for
end for
for i : 1 .. maxLett
LettList (i).row += 1
if LettList (i).row > 1 then
for k : 1 .. trailLength
if LettList (i).row - k > 1 and LettList (i).row - k < maxrow then
locate (LettList (i).row - k, LettList (i).col)
color (round (((256 - k * multc) / 255) * 255))
colorback (7)
put chr (Rand.Int (1, 100)) ..
end if
end for
if LettList (i).row < maxrow then
if hText.Elements (LettList (i).row, LettList (i).col) = 1 then
hText.lives (LettList (i).row, LettList (i).col) += Rand.Int (20,50)
end if
elsif LettList (i).row > maxrow + trailLength then
LettList (i).row := Rand.Int (-maxrow, 1)
LettList (i).col := Rand.Int (1, maxcol)
else
end if
end if
end for
View.Update
drawfillbox (0, 0, maxx, maxy, 7)
end loop

Homer_simpson · **Posted:** Wed May 14, 2003 10:27 pm

bwahahahaaarrrr... nice work catalyst...

Blade · **Posted:** Wed May 14, 2003 10:30 pm

it looks very nice.. although i dont think its running right on this machine..

Homer_simpson · **Posted:** Wed May 14, 2003 11:34 pm

wow... i looked at the code... i would have never though of doing it that way(using what dot color to create the coords of the letters)...good thinkin man... 8)

Catalyst · **Posted:** Wed May 14, 2003 11:38 pm

just got a good idea based on this concept...

Catalyst · **Posted:** Wed May 14, 2003 11:49 pm

Get ur own pic in there (works better if its big)

code:

var screen : array 1 .. maxrow, 1 .. maxcol of int
var pic : int := Pic.FileNew ("pic.jpg")
Pic.Draw (pic, 0, 0, picCopy)
var holdR, holdC : int
for decreasing i : maxy .. 12 by 12
for k : 8 .. maxx by 8
holdR := round (i / 12)
holdR += round ((maxrow div 2 - holdR) * 2) + 4
holdC := round (k / 8)
if holdR > 0 and holdR < maxrow then
screen (holdR, holdC) := whatdotcolor (k, i)
end if
end for
end for
cls
for i : 1 .. maxrow - 1
for k : 1 .. maxcol - 1
locate (i, k)
if i > 0 and i < maxrow then
color (screen (i, k))
colorback (7)
else
color (7)
colorback (7)
end if
put chr (Rand.Int (60, 90)) ..
end for
end for

Catalyst · **Posted:** Wed May 14, 2003 11:52 pm

for other effects try..

put "@"..%chr (Rand.Int (60, 90)) ..
put "/"..%chr (Rand.Int (60, 90)) ..
put intstr(Rand.Int(0,1))..%chr (Rand.Int (60, 90)) ..
put chr (Rand.Int (100,120)).. %chr (Rand.Int (60, 90)) ..

Homer_simpson · **Posted:** Thu May 15, 2003 12:58 am

bwahahahaaaaaaaarrrrr.... nice...
this is the best effect =Ãž

code:

for i : 1 .. maxrow - 1
for k : 1 .. maxcol - 1
locate (i, k)
if i > 0 and i < maxrow then
colorback (screen (i, k))
color (7)
else
color (7)
colorback (7)
end if
put " "..
end for
end for

void · **Posted:** Thu May 15, 2003 3:02 pm

OH MY GOD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! SICKEST MOVIES EVER....SORRY ASOK...BUT THIS DESERVES AN ALL CAPS REPORT...HOLY FUCKING SHIT....THIS MOVIE....ITS TOOK THE FIRST MATRIX TO SCHOOL AND TAUGHT IT HOW TO ACT AND TO DO AMAZING SPECIAL EFFECTS.....AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA....I SAT THROUGH A WHOLE DAY AFTER SEEING IT TODAY....AND NOW I WATCHED IT AGAIN...AND GUESS WHAT?....ITS PLAYING AGAIN AND AGAIN IN MY HEAD.....AAAAAAAAAAA...PERCEPHONE, KEYMAKER, TWINS, ORACLE, ARCHITECT, NEO, MATRIX, MORPHIUS, TRINITY, ASS-WHOOPING!!!!!.....MHUHUHUHUAHAHAHAHA...WATCH IT EVERYONE...OR ELSE.....FACE THE CONSEQUENCES
fine print: consequences are yet to be decided and still undergoing creation

Prince · **Posted:** Sun May 18, 2003 11:37 am

yes that movie was siiiiiiiick!!!! the battle with the like 100 smiths vs neo was in my opinion the best one in the movie (as well as the longest)... jada pinkett smiths parts sucked cus she didnt do anythin (not that i expected her to do much neway).... for all who havnt seen it yet SEE IT!!! SEE IT NOW!!!!!!!!

Tony · **Posted:** Sun May 18, 2003 12:48 pm

yeah, smiths vs. neo was awesome, though at some points you could tell that it was computer generated. Well I know that they were filming it 1 smith, 1 neo then added other 99 smiths using a computer. But as sertain points it really looking like the video game graphics (including neo)..

makes you wonder why not just make the whole film animated Confused

Like final flight of the osiris (is that how you spell it?) MOD EDIT: Nope. Fixed it. -Asok

Dan · **Posted:** Sun May 18, 2003 2:42 pm

tony wrote:

yeah, smiths vs. neo was awesome, though at some points you could tell that it was computer generated. Well I know that they were filming it 1 smith, 1 neo then added other 99 smiths using a computer. But as sertain points it really looking like the video game graphics (including neo)..

achoutaly it was filmed with 12 smiths and one neo Wink

Tony · **Posted:** Sun May 18, 2003 4:37 pm

was it really? I've heard it was 1, but w/e.

I wonder if matrix (the game) uses the same models... though Xbox might not be able to handle that many polys to play real time Confused

Prince · **Posted:** Mon May 19, 2003 10:42 pm

Quote:

But as sertain points it really looking like the video game graphics (including neo)..

yea i noticed that too tony but it actually looked pretty cool... the worst part was the loooooooooooooooooooooooooooooooooooooooooooooong ass speech the creator of the matrix decided to giv neo... after they started talkin bout choices and 6th version of the matrix i was jus like, f--- this and gave up trying to understand it.... and, thnx to the ending, now november seems like too far away for the release of Revolution Mad

Catalyst · **Posted:** Mon May 19, 2003 11:21 pm

great movie Very Happy

Starts off slow, but kicks into gear and doesnt stop

cant wait till november...

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