Page 1 of 4
Help! My QL has entered the Matrix !!!
Posted: Tue Aug 02, 2011 4:49 pm
by thorsinclair
Re: Help! My QL has entered the Matrix !!!
Posted: Tue Aug 02, 2011 10:37 pm
by vanpeebles
Hey that's pretty cool. Runs smooth too
Re: Help! My QL has entered the Matrix !!!
Posted: Wed Aug 03, 2011 12:46 pm
by dilwyn
Re: Help! My QL has entered the Matrix !!!
Posted: Wed Aug 10, 2011 10:49 am
by thorsinclair
Hi,
I have been asked on youtube to publish the code, so here it is. For sure it can be improved, so please share your thoughts here - I'm far away from being an experienced coder ... just playing a bit around with SuperBasic ...
Code: Select all
10 CLS #0
20 OPEN #6, scr_20x202a276x0
30 PAPER #6,0:CLS #6
40 OPEN #7, scr_20x202a296x0
50 PAPER#7,0:CLS #7
60 OPEN #5, scr_20x202a256x0
70 PAPER #5,0:CLS #5
80 OPEN #8, scr_20x202a316x0
90 PAPER #8,0: CLS #8
100 OPEN #9, scr_20x202a336x0
110 PAPER #9,0: CLS #9
120 OPEN #10, scr_20x202a356x0
130 PAPER #10,0: CLS #10
140 OPEN #11, scr_20x202a376x0
150 PAPER #11,0: CLS #11
160 OPEN #12, scr_20x202a396x0
170 PAPER #12,0:CLS #12
180 OPEN #13, scr_20x202a416x0
190 PAPER #13,0: CLS #13
200 OPEN #14, scr_20x202a436x0
210 PAPER #14,0:CLS #14
220 OPEN #15, scr_20x202a456x0
230 PAPER #15,0:CLS #15
240 OPEN #16, scr_36x202a476x0:PAPER #16,0:CLS #16
250 DEFine PROCedure buchstabenausgabe (kanal, color, pixel)
260 INK#kanal,color
270 AT #kanal,RND(15),1
280 PRINT #kanal, CHR$(RND(60 TO 110))
290 SCROLL #kanal,pixel
300 END DEFine
310 buchstabenausgabe 5, 5, 2
320 buchstabenausgabe 6, 5, -3
330 buchstabenausgabe 7,5,1
340 buchstabenausgabe 8,5,2
350 buchstabenausgabe 9,7,-1
360 buchstabenausgabe 10,5,1
370 buchstabenausgabe 11,5,2
380 buchstabenausgabe 12,7,1
390 buchstabenausgabe 13,5,-2
400 buchstabenausgabe 14,5,5
410 buchstabenausgabe 15,5,1
420 GO TO 310
Re: Help! My QL has entered the Matrix !!!
Posted: Wed Aug 10, 2011 1:48 pm
by Mr_Navigator
Thanks thornsinclair, cool piece of coding that with a bit of fiddly poky, could be entered in the 20 line challenge
For those who are intrigued, Google translates "buchstabenausgabe" as "letter issue" or letter output and as Google also annoyingly state 'did you mean buchstabeneingabe' which translates to "letter input".
Re: Help! My QL has entered the Matrix !!!
Posted: Tue Dec 21, 2021 7:44 am
by QLvsJAGUAR
Tomorrow the 4th Matrix movie "The Matrix Resurrections" premieres the cinemas in Europe.
This reminded me of thorsinclair's implementation of "The Matrix". I even did a short video yesterday:
https://youtu.be/SNN7TMb1FN0
It may be the right time to dig out my versions of "The Matrix" which I wrote in the early 2000s. IIRC I made one to demo SMSQ/E multitasking (multiple JOBS and SCR channels) and one with nice SCROLL.
Re: Help! My QL has entered the Matrix !!!
Posted: Tue Dec 21, 2021 4:14 pm
by thorsinclair
Fantastic. Thanks Urs!
Re: Help! My QL has entered the Matrix !!!
Posted: Tue Dec 21, 2021 9:52 pm
by Derek_Stewart
QLvsJAGUAR wrote:Tomorrow the 4th Matrix movie "The Matrix Resurrections" premieres the cinemas in Europe.
This reminded me of thorsinclair's implementation of "The Matrix". I even did a short video yesterday:
https://youtu.be/SNN7TMb1FN0
It may be the right time to dig out my versions of "The Matrix" which I wrote in the early 2000s. IIRC I made one to demo SMSQ/E multitasking (multiple JOBS and SCR channels) and one with nice SCROLL.
Nice video, can you make the Matrix demo do full screen
Re: Help! My QL has entered the Matrix !!!
Posted: Tue Dec 21, 2021 10:17 pm
by pjw
I too did a Matrixy type of screensaver thingy a while ago. Some details
here, or skip the waffle and get it
here
PS SMSQ/E and High colour only!
Re: Help! My QL has entered the Matrix !!!
Posted: Wed Dec 22, 2021 10:39 am
by qbits
Never one for over sophistication this was my quicky Matrix Screen saver back in the day.
100 REMark Matrix Screen Saver
101 MODE 4:gx=30:gy=30:WINDOW#1,512,256,gx,gy:BORDER#1,1,3
102 PAPER#1,0:CSIZE#1,0,0:INK#1,4:CLS#1
103 REPeat lp
104 FOR i=0 TO 13:CURSOR 16+36*i,2:PRINT CHR$(RND(48 TO 126))
105 FOR i=0 TO 13:CURSOR 16+36*i,2:IF RND(1 TO 3)=3:PRINT ' '
106 PAUSE 10:SCROLL 10
107 END REPeat
QBITS