MATRIX THEME Screensaver
Blitz3D Forums/Blitz3D Programming/MATRIX THEME Screensaver
| ||
 http://perso.wanadoo.fr/blitz3dfr/mesprojets/matrixsaver.zip Put the SCR in Windows/System or System32 and activate it with control pannel |
| ||
| It's the Matrix running on a Japanese OS |
| ||
| The glyph in the movie are japanese Kanji :) |
| ||
| mmm, I get a nice "Unable to set graphics mode". Renaming it to Matrix.exe make it work, but only shows a message saying to press 'esc'...which exits the app. |
| ||
| the screen refer the desktop size and depth ... may be the pb ? I have test with three different pc (PII 600, PIII 600, P4) and whith some different GFX Card (Matrox G400, GEForce II, ATI Rage etc ...) there is no pb ! |
| ||
| Them be yer katakana, not yer kanji ;o) I guess that the Matrix DOES run on a japanese OS then. Must make it harder for poor old neo-geo to get his head round... |
| ||
| if you want ;) |
| ||
| Get an error, First with an Scr Extention i get the cannot set gfx mode. And when i rename to Exe still get n error... |
| ||
For those of you can't run it - try this instead
Graphics 640,480
Dim fo(3)
Dim xp(200)
Dim col(3)
Dim occupied(200)
SeedRnd MilliSecs()
For f = 0 To 3
sz = 10 + (f*2)
fo(f) = LoadFont("Arial", sz, True, False, False)
SetFont fo(f)
Text 10,f*10, "M"
Next
col(0) = 8
col(1) = 6
col(2) = 4
col(3) = 2
t = Rand(100,400)
gGH = GraphicsHeight()
gGW = GraphicsWidth()
pid = 0
colcount = gGW / 10
For p = 0 To colcount
occupied(p) = 0
Next
For p = 0 To colcount
Repeat
pid = Rand(0, colcount)
xp(p) = pid * 12
Until (occupied(pid) = 0)
occupied(pid) = 1
Next
startMS = MilliSecs()
SetBuffer BackBuffer()
While Not KeyHit(1)
Cls
t = t + 1
xi = 0
For fi = 0 To 3
x = 65 * fi
Gmax = 127 + 128 * (fi / 3.0)
SetFont fo(fi)
stp = 8 + (fi * 2)
For i = 0 To col(fi)
ti = t / (1+i)
x = xp(xi)
b0 = ((t / (i+40)) ) + x
b1 = ((t / (i+57)) ) + x*3
G = GMax + (-(8 * t / ((xi Mod 3) + 1)) Mod Gmax)
For c = 0 To (gGH / stp)
G = (G + 7) Mod GMax
If (G > (GMax - 8)) Then
R = G / 2
B = G / 2
Else
R = G / 4
B = R
End If
Color R,G,B
y = (c * stp) - (ti Mod stp)
c0 = 33 + (b0 + (c * (1 + fi))) Mod (90-c)
c1 = 33 + (b1 + (c * (1 + fi))) Mod (33)
Text x, y, Chr(c0)
Text x, y, Chr(c1)
Next
xi = xi + 1
Next
Next
Flip()
Wend
|
| ||
| I have modify some stuff ... if you want to retry ? |
| ||
| Hey, that's pretty damn cool. Although it is weird the way the lines of text keep jumping around. |
| ||
| thx :) |
| ||
| dl'ing now. Hope there's no spoilers :) |
| ||
| It works now. Pretty cool. |
| ||
| the bug is the : Global DesktopWidth = User32_GetSystemMetrics(0) Global DesktopHeight = User32_GetSystemMetrics(1) Global DesktopDepth = User32_GetSystemMetrics(3) ????? not correct ! return random value ! not the screendepth value anybody have an idea for check the desktop bit depth ? |
| ||
| "thx :)" Heh, I meant yinch's code. I can't get yours to work. |
| ||
| anybody have an idea for check the desktop bit depth ? How about this? ; My desktop is set at 32-bit depth. ; This program displays 32, 16, 32. d1 = GraphicsDepth() Graphics 640, 480, 16, 1 d2 = GraphicsDepth() EndGraphics d3 = GraphicsDepth() Print d1 + ", " + d2 + ", " + d3 WaitKey : End |
| ||
| Cool :) i like it ! it work :) Thx :) |
| ||
| Hey, there is a Matrix font available with the 40 characters used in the first movie... But you need to hunt for it... www.sourceforge.net Search for 'ZMatrix' - at the time of writing it appears in the 'most active' list on the left hand side... Just in case anyone would like to see it/them... I'd upload just the font to a webspace somewhere but my webserver is bolloxed atm <grumbles> |
| ||
| i don't find ? can you post un link ? |
| ||
| Filax it works now and it looks great! |
| ||
| Thanks :) |
| ||
| It's still not working for me. Note that the problem isn't bit depth; when I try to run it I get a Memory Access Violation. |
| ||
| strange .... :( i don't know why ! what is your configuration please ? |
| ||
| any chance you can make one where the text that is in the top left of the screen fades out, a big bit of static text in the corner kinda defeats the object of a screen saver! |
| ||
| Oh and by the way, the Werchonskcherly brothers have said that if you don't install the screensaver, you won't get the full plot of the movies, so get into it! |
| ||
| They've said the same thing about Animatrix and Enter the Matrix, too ;] filax, the font link (my homespace is working again, lucky you:) : http://homepages.ihug.com.au/~tzuyd/Matrix Code Font.ttf and words from the author of said font : *snip======================================================= e-RBi (e-rbi.com) contact@... ------------------------------------------------------------ Product Name: Matrix Code Font Licence Type: Freeware Platform O/S: Windows/Mac ------------------------------------------------------------ Additional Product Information: This is a true type font which works mainly for windows but I believe can also work on Mac. These Matrix Code Symbols are a direct code of the one from the film The Matrix, there are not enough symbols to fill every charactor like a normal font, and so the operational ones are as follows: 1234567890ABCDEFGHIJKLMNOPQRSUTVWXYZabcd ------------------------------------------------------------ This product is freeware, feel free to distribute. ------------------------------------------------------------ *snip======================================================= Hope you find it useful. =] |
| ||
| lol :) |
   |