displaying and animating UDG's on the spectrum

[1024MAK]

Listing as it looks when first entering and before running the program

The remaining part of the listing

.
Then the output screen when run

The output screen

.

What the listing looks like after running the program

The remaining part of the listing

.
Mark

[1024MAK]

Try this one…

Don’t worry about entering the REM lines.

Mark

[XavSnap]

Hi,
I like to code on the Spectrum 48k...
For me, it's the ZX81+1k is the Spectrum 16k and the ZX81+16k is the Spectum 48k !

The Spectum 48k add 3 more UDG characters !

And i like the display specificity on the Spectum...
The screen is not refresh all the time, and you can tag UDG characters on the screen with the same UDG character.

You can draw a picture with only one graphic character just by printing the same UDG on the screen !

On the ZX81, if you change the UDG by character, it refresh all printed characters...
It able to define blocks to tag a background on the screen, and use the same UDG for another stuff.

[XavSnap]

Example:

UDGspectrum.jpg (9.7 KiB) Viewed 19581 times

Code: Select all

1 CLS
10 RESTORE 200
20 PRINT AT 1,1;
40 FOR B=1 TO 6
50 FOR A=USR "a" TO USR "a"+7
55 READ C
58 POKE A,C
60 NEXT A
70 PRINT "\a";":";
80 NEXT B
100 RESTORE 200
140 FOR B=1 TO 6
145 FOR A=USR "a" TO USR "a"+7
150 READ C
155 POKE A,C
160 NEXT A
170 PRINT AT 10,10;"\a"
180 NEXT B
190 GOTO 100
200 DATA 48,48,32,112,160,32,80,136,48,48,32,48,96,32,80,144,24,24,16,24,52,16,24,40,24,24,16,28,16,16,40,72
210 DATA 12,12,8,28,10,24,24,40,6,6,4,14,20,4,6,5

Break= Shifted space.

UDG2.tzx

(808 Bytes) Downloaded 650 times

UDG2.zip

(81.38 KiB) Downloaded 625 times

[Crayon21]

what about making them bigger?

[Lardo Boffin]

Use multiple characters.

[Crayon21]

Example:


UDGspectrum.jpg

Code: Select all

1 CLS
10 RESTORE 200
20 PRINT AT 1,1;
40 FOR B=1 TO 6
50 FOR A=USR "a" TO USR "a"+7
55 READ C
58 POKE A,C
60 NEXT A
70 PRINT "\a";":";
80 NEXT B
100 RESTORE 200
140 FOR B=1 TO 6
145 FOR A=USR "a" TO USR "a"+7
150 READ C
155 POKE A,C
160 NEXT A
170 PRINT AT 10,10;"\a"
180 NEXT B
190 GOTO 100
200 DATA 48,48,32,112,160,32,80,136,48,48,32,48,96,32,80,144,24,24,16,24,52,16,24,40,24,24,16,28,16,16,40,72
210 DATA 12,12,8,28,10,24,24,40,6,6,4,14,20,4,6,5

Break= Shifted space.
UDG2.tzx



UDG2.zip


udgsp.JPG

do you have a version for the spectrum, the UDG factory? I only see versions for the CPC

[XavSnap]

Hi Crayon,

Just click on the Spectrum logo in "UDG's Factory".

[Crayon21]

um...link please?

[XavSnap]

Heu , Samuel, putain tu déconnes.

Tu me demandes un lien alors qu'il suffit de cliquer dans la fenêtre du programme !
Ca fait 10ans que je pense que tu es une IA à la con, mais là, fait une grèffe de cerveau et passe à Chat GPT...

Sorry, it mean :

Just click on the Spectrum logo in "UDG's Factory".

http://dskcenter.free.fr/udgs/