QL on the Raspberry Pi...?

Discussion and advice about emulating the QL on other machines.
User avatar
XorA
Aurora
Posts: 789
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: QL on the Raspberry Pi...?

Postby XorA » Mon May 03, 2021 7:03 pm

XorA wrote:
Derek_Stewart wrote:A better solution would be sQLux, but no SMSQ/E ...


Maybe I should look into that :-D


Althoigh the uQlx license is troublesome from a code integration point of view!


User avatar
Peter
QL Wafer Drive
Posts: 1295
Joined: Sat Jan 22, 2011 8:47 am

Re: QL on the Raspberry Pi...?

Postby Peter » Thu May 06, 2021 2:03 pm

XorA wrote:Althoigh the uQlx license is troublesome from a code integration point of view!

Does it still contain that "maximum commercial copying fee must not exceed DM 10" clause? :?

Anyway, I don't think SMSQ/E for UQLX would have to be part of the UQLX code covered by that license. Minerva and QDOS also don't.


User avatar
XorA
Aurora
Posts: 789
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: QL on the Raspberry Pi...?

Postby XorA » Thu May 06, 2021 2:58 pm

Peter wrote:
XorA wrote:Althoigh the uQlx license is troublesome from a code integration point of view!

Does it still contain that "maximum commercial copying fee must not exceed DM 10" clause? :?

Anyway, I don't think SMSQ/E for UQLX would have to be part of the UQLX code covered by that license. Minerva and QDOS also don't.


It wasnt the SMSq/e license that's the issue, its just with it being a slightly odd license I am loath to put in time for major new features especially if I was to cheat and use libraries to supply some/all of them!

It does and or doesnt contain that clause depending how you read subsequent item!

Anyway, Pi5 will be basically indistinguishable from a PC for running JAVA so SMSQmulator is the sensible choice!


User avatar
mk79
Aurora
Posts: 983
Joined: Sun Feb 02, 2014 10:54 am
Location: Esslingen/Germany
Contact:

Re: QL on the Raspberry Pi...?

Postby mk79 » Thu May 06, 2021 4:00 pm

XorA wrote:It wasnt the SMSq/e license that's the issue, its just with it being a slightly odd license I am loath to put in time for major new features especially if I was to cheat and use libraries to supply some/all of them!
What's odd about the BSD licence?

Edit: OK, I now think this is about the uQLx license. It wasn't really clear there.


User avatar
XorA
Aurora
Posts: 789
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: QL on the Raspberry Pi...?

Postby XorA » Thu May 06, 2021 5:08 pm

mk79 wrote:
XorA wrote:It wasnt the SMSq/e license that's the issue, its just with it being a slightly odd license I am loath to put in time for major new features especially if I was to cheat and use libraries to supply some/all of them!
What's odd about the BSD licence?

Edit: OK, I now think this is about the uQLx license. It wasn't really clear there.


Nothing wrong with BSD license, I do a lot of work under that with my paying job.

Yes was about uQlx license.


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

Re: QL on the Raspberry Pi...?

Postby Derek_Stewart » Fri May 07, 2021 9:55 am

XorA wrote:Anyway, Pi5 will be basically indistinguishable from a PC for running JAVA so SMSQmulator is the sensible choice!

Pi5 ?

Funny, I thought the latest Rapsberry Pi was the Pi4B...


Regards,

Derek
User avatar
NormanDunbar
Forum Moderator
Posts: 1604
Joined: Tue Dec 14, 2010 9:04 am
Location: Leeds, West Yorkshire, UK
Contact:

Re: QL on the Raspberry Pi...?

Postby NormanDunbar » Fri May 07, 2021 12:18 pm

Hi Derek,

the Pi5 is coming, Eben Upton said so recently. He's not giving much else away though.


Cheers,
Norm.


Why do they put lightning conductors on churches?
Author of Arduino Software Internals - https://www.amazon.co.uk/Arduino-Softwa ... 1484257898, https://www.apress.com/gb/book/9781484257890
User avatar
XorA
Aurora
Posts: 789
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: QL on the Raspberry Pi...?

Postby XorA » Fri May 07, 2021 12:47 pm

NormanDunbar wrote:the Pi5 is coming, Eben Upton said so recently. He's not giving much else away though.


The major complaint about Pi4 is even though it has PCIe it doesn't support NVMe storage, so that is my prediction. Plus faster 64bit cores.

The Rockchip devices I have which use NVMe as storage are really useful for software development.


User avatar
polka
Trump Card
Posts: 168
Joined: Mon Mar 07, 2011 11:43 am

Re: QL on the Raspberry Pi...?

Postby polka » Thu Jul 08, 2021 10:51 am

Derek_Stewart wrote:Hi,

I compiled sQLux on a Raspberry PI Zero v1.2, which was slow, but worked okay.

The emulator runs better on faster RPIs

tofro wrote:uqlx actually runs quite well on the original RPI. For the intended application, however, there's a significant flaw: uqlx doesn't really emulate MODE 8 on the emulated QL.

Tobias


Can you write the commands in the UQLX C source to give Mode 8 graphics?


I have a uQLx on a Pi0-W (which, I measured, runs 20 times faster than my BBQL) and I tested today the 8 colors mode which obviously works OK.

Here a screen copy of my 8 colors TARTAN48 test (supperFORTH version) :

2021-07-06-225705_1920x1080_scrot.png
8 colors TARTAN test

for trying it yourself, here is the corresponding source code :

Code: Select all

( COLOR CONSTANTS )

0 CONSTANT BLACK
1 CONSTANT BLUE
2 CONSTANT RED
3 CONSTANT MAGENTA
4 CONSTANT GREEN
5 CONSTANT CYAN
6 CONSTANT YELLOW
7 CONSTANT WHITE

HEX

( 4COLORS TABLE )

CREATE 4COLORS
7F7F , BFBF , DFDF , EFEF , F7F7 , FBFB , FDFD , FEFE ,
0080 , 0040 , 0020 , 0010 , 0008 , 0004 , 0002 , 0001 ,
8000 , 4000 , 2000 , 1000 , 0800 , 0400 , 0200 , 0100 ,
8080 , 4040 , 2020 , 1010 , 0808 , 0404 , 0202 , 0101 ,

( 8COLORS TABLE )

CREATE 8COLORS
3F3F , CFCF , F3F3 , FCFC , 0040 , 0010 , 0004 , 0001 ,
0080 , 0020 , 0008 , 0002 , 00C0 , 0030 , 000C , 0003 ,
8000 , 2000 , 0800 , 0200 , 8040 , 2010 , 0804 , 0201 ,
8080 , 2020 , 0808 , 0202 , 80C0 , 2030 , 080C , 0203 ,

DECIMAL

( DOT for MODE 4 )

: 4DOT ( c,x,y --- )
  128 * SWAP 8 /MOD 2* ROT + 0 131072. D+
  2DUP A@ 3 PICK 2* 4COLORS + @ AND 4 PICK 0>
  IF 4 ROLL 2/ 16 * 4 ROLL 2* + 4COLORS + @ OR
  ELSE >R 2SWAP 2DROP R>
  THEN ROT ROT A! ;

( DOT for MODE 8 )

: 8DOT ( c,x,y --- )
  128 * SWAP 4 /MOD 2* ROT + 0 131072. D+
  2DUP A@ 3 PICK 2* 8COLORS + @ AND 4 PICK 0>
  IF 4 ROLL 8 * 4 ROLL 2* + 8COLORS + @ OR
  ELSE >R 2SWAP 2DROP R>
  THEN ROT ROT A! ;

VARIABLE COLOR

( TEST FOR 4DOT - syntax : black, red, green or white 4TDOT )

: 4TDOT ( color --- ) TIME ROT
  COLOR ! 256 0 DO 512 0 DO COLOR @ I J 4DOT LOOP LOOP
  TIME 2SWAP D- KEY 2DROP . ;

( TEST FOR 8DOT - syntax : any of the eight colors 8TDOT )

: 8TDOT ( color --- ) TIME ROT
  COLOR ! 256 0 DO 256 0 DO COLOR @ I J 8DOT LOOP LOOP
  TIME 2SWAP D- KEY 2DROP . ;


( ============================================================ )


( Creating a TARTAN with up to 4 or 8 colors, depending on MODE )

VARIABLE L

: WARP HERE 1 ALLOT 0 L ! ;

: WEFT
  CREATE DUP C@ DUP C, HERE SWAP DUP * ALLOT
  OVER C@ 0 2DUP
  DO 2DUP
     DO I J + 4 MOD 2/
        IF I ELSE J THEN
        4 PICK 1+ + C@
        4 + PICK
        4 PICK C@ I * J +
        4 PICK + C!
     LOOP
  LOOP
  2DROP 2DROP ;

: TARTAN CREATE WARP DOES> WEFT ;

: | SWAP 0 DO DUP C, 1 L +! LOOP DROP ;

: END_TARTAN L @ SWAP C! ;

( WEAVEing it on full 512x256 4 colors screen )

: 4WEAVE
  DUP C@ L ! 1+ 256 0
  DO I L @ MOD L @ * 512 0
     DO 2DUP I L @ MOD + + C@
        I J 4DOT
     LOOP DROP
  LOOP KEY 2DROP ;

( WEAVEing it on full 256x128 8 colors screen )

: 8WEAVE
  DUP C@ L ! 1+ 128 0
  DO I L @ MOD L @ * 256 0
     DO 2DUP I L @ MOD + + C@
        I J 2* >R 2DUP R@ 8DOT R> 1+ 8DOT
     LOOP DROP
  LOOP KEY 2DROP ;

CR CR .( Some tests ! ) CR

TARTAN 4TWARP
   8 0 | 8 1 | 8 2 | 8 3 |
END_TARTAN

BLACK RED GREEN WHITE 4TWARP 4TWEFT

.( in MODE 4, type : "4TWEFT 4WEAVE" ) CR

TARTAN 8TWARP
   8 0 | 8 1 | 8 2 | 8 3 | 8 4 | 8 5 | 8 6 | 8 7 |
END_TARTAN

BLACK BLUE RED MAGENTA GREEN CYAN YELLOW WHITE 8TWARP 8TWEFT

.( in MODE 8, type : "8TWEFT 8WEAVE" ) CR

.( ... and create your own TARTANs ) CR CR

TARTAN DOG'S 4 0 | 4 1 | END_TARTAN BLACK WHITE DOG'S TOOTH

END_FILE


BYE POLKA


May the FORTH be with you !
POLKa
User avatar
polka
Trump Card
Posts: 168
Joined: Mon Mar 07, 2011 11:43 am

Re: QL on the Raspberry Pi...?

Postby polka » Thu Jul 08, 2021 11:01 am

Two other Screen shots in 8 colors mode, of a FORTH program that I wrote for 8 years old kids (my daughter's class) to show them how to code (in FORTH, indeed).

2021-07-07-174109_1920x1080_scrot.png
a square
2021-07-07-175627_1920x1080_scrot.png
stairs
As it runs on ComputerOne FORTH and in french, give me some time to convert it for SupperFORTH and in english (for you to play with it too)

BYE, POLKa


May the FORTH be with you !
POLKa

Who is online

Users browsing this forum: No registered users and 3 guests