QL on the Raspberry Pi...?

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

Re: QL on the Raspberry Pi...?

Post by XorA »

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: 1953
Joined: Sat Jan 22, 2011 8:47 am

Re: QL on the Raspberry Pi...?

Post by Peter »

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
Site Admin
Posts: 1358
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: QL on the Raspberry Pi...?

Post by XorA »

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
QL Wafer Drive
Posts: 1349
Joined: Sun Feb 02, 2014 10:54 am
Location: Esslingen/Germany
Contact:

Re: QL on the Raspberry Pi...?

Post by mk79 »

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
Site Admin
Posts: 1358
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: QL on the Raspberry Pi...?

Post by XorA »

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: 3929
Joined: Mon Dec 20, 2010 11:40 am
Location: Sunny Runcorn, Cheshire, UK

Re: QL on the Raspberry Pi...?

Post by Derek_Stewart »

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: 2251
Joined: Tue Dec 14, 2010 9:04 am
Location: Leeds, West Yorkshire, UK
Contact:

Re: QL on the Raspberry Pi...?

Post by NormanDunbar »

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
Author of Arduino Interrupts

No longer on Twitter, find me on https://mastodon.scot/@NormanDunbar.
User avatar
XorA
Site Admin
Posts: 1358
Joined: Thu Jun 02, 2011 11:31 am
Location: Shotts, North Lanarkshire, Scotland, UK

Re: QL on the Raspberry Pi...?

Post by XorA »

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: 196
Joined: Mon Mar 07, 2011 11:43 am

Re: QL on the Raspberry Pi...?

Post by polka »

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) :
8 colors TARTAN test
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: 196
Joined: Mon Mar 07, 2011 11:43 am

Re: QL on the Raspberry Pi...?

Post by polka »

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).
a square
a square
stairs
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
Post Reply