Help! My QL has entered the Matrix !!!

A place to discuss general QL issues.
thorsinclair
Trump Card
Posts: 198
Joined: Mon Jan 10, 2011 5:08 pm

Help! My QL has entered the Matrix !!!

Post by thorsinclair »



User avatar
vanpeebles
Commissario Pebbli
Posts: 2816
Joined: Sat Nov 20, 2010 7:13 pm
Location: North East UK

Re: Help! My QL has entered the Matrix !!!

Post by vanpeebles »

Hey that's pretty cool. Runs smooth too 8-)


User avatar
dilwyn
Mr QL
Posts: 2753
Joined: Wed Dec 01, 2010 10:39 pm

Re: Help! My QL has entered the Matrix !!!

Post by dilwyn »

thorsinclair wrote:Look what happened :geek:
http://www.youtube.com/watch?v=lRxG1HvzfQU
He he, very good indeed.


thorsinclair
Trump Card
Posts: 198
Joined: Mon Jan 10, 2011 5:08 pm

Re: Help! My QL has entered the Matrix !!!

Post 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


User avatar
Mr_Navigator
QL Fanatic
Posts: 782
Joined: Mon Dec 13, 2010 11:17 pm
Location: UK, Essex
Contact:

Re: Help! My QL has entered the Matrix !!!

Post 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".


-----------------------------------------------------------------------------------
QLick here for the Back 2 the QL Blog http://backtotheql.blogspot.co.uk/
User avatar
QLvsJAGUAR
Gold Card
Posts: 455
Joined: Tue Feb 15, 2011 8:42 am
Location: Lucerne, Switzerland
Contact:

Re: Help! My QL has entered the Matrix !!!

Post 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.


QL forever!
https://www.sinclairql.net/ - Go and get THE DISTRIBUTION & QL/E!
https://www.youtube.com/QLvsJAGUAR/community - Blog
https://www.youtube.com/QLvsJAGUAR - Dedicated QL videos
Sinclair, QL, ATARI, JAGUAR, NUON, APPLE, NeXT, MiST & much more...
Videos, pictures & information
thorsinclair
Trump Card
Posts: 198
Joined: Mon Jan 10, 2011 5:08 pm

Re: Help! My QL has entered the Matrix !!!

Post by thorsinclair »

Fantastic. Thanks Urs! 8-)


Derek_Stewart
Font of All Knowledge
Posts: 3929
Joined: Mon Dec 20, 2010 11:40 am
Location: Sunny Runcorn, Cheshire, UK

Re: Help! My QL has entered the Matrix !!!

Post 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


Regards,

Derek
User avatar
pjw
QL Wafer Drive
Posts: 1286
Joined: Fri Jul 11, 2014 8:44 am
Location: Norway
Contact:

Re: Help! My QL has entered the Matrix !!!

Post 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!


Per
dont be happy. worry
- ?
qbits
Trump Card
Posts: 171
Joined: Sun Dec 11, 2016 3:32 pm

Re: Help! My QL has entered the Matrix !!!

Post 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
Attachments
Matrix.jpg


Post Reply