psycho wallpaper

Contributions to this software library are always welcome. Please ensure that you post program listings rather than .raw files. They give a reasonable idea of what your program does without having to load them into a DM42 and you can also include comments in your code. Check out the following link for a decoder/encoder: http://www.swissmicros.com/dm42/decoder/

You can then copy/paste the listing and post it in "code" tags.
Post Reply
mcc
Posts: 199
Joined: Fri Jun 23, 2017 3:10 am

psycho wallpaper

Post by mcc » Mon Apr 15, 2019 6:29 pm

Hi,

(if my memory serves me right...)
A long time ago (it was the ATARI800/C64 time) this or a similiar program was printed in one of the home computer
magazines and it was called "Psycho Tapete" (german for "psycho wallpaper)....I think (read: dont know for sure) it
was printed in the "c't", a german computer magazine, which is still available.
I implemented this from my memory...so it may be totally different, but the result looks very similar to the program
"Psycho Tapete"... :)

What does it? It creates screens like these:
20190415-19111366.bmp
20190415-19111366.bmp (12.31 KiB) Viewed 164 times
20190415-12000306.bmp
20190415-12000306.bmp (12.31 KiB) Viewed 164 times
The raw file is in the attachment.
The code is here:

Code: Select all

00 { 135-Byte Prgm }
01▸LBL "psyplt"
02 MVAR "GrMod"
03 MVAR "mod"
04 MVAR "fac"
05 VARMENU "plot"
06 STOP
07 EXITALL
08 RCL "mod"
09 STO 02
10 RCL "fac"
11 STO 03
12 RCL "ResY"
13 STO 01
14 SF 25
15▸LBL 00
16 CLV "pltp"
17 RCL "ResX"
18 STO 00
19 1
20 1
21 DIM "pltp"
22 GROW
23 INDEX "pltp"
24 COMPLEX
25 STO× "pltp"
26▸LBL 01
27 RCL 00
28 SIN
29 RCL 01
30 COS
31 ×
32 RCL× 03
33 IP
34 RCL 02
35 MOD
36 X≠0?
37 GTO 02
38 RCL 00
39 RCL 01
40 COMPLEX
41 →
42▸LBL 02
43 DSE 00
44 GTO 01
45 RCL "pltp"
46 PIXEL
47 DSE 01
48 GTO 00
49 END
I am still unsure, what the fastest way is to handle the contents of the complex matrix:
Each row will have a different number of points to plot.
1.) With each row delete the previous matrix create a new 1x1 matrix, complexify it, set grow mode, add points, plot the matrix and so on.
2.) Create a full sized matrix (a complete row), add points and count them, redim the matrix before each PIXEL commmand, reset counter and so on.
3.) Pixel each point
4.) Any other more speedy version anyone?

But in any case: Have fun!

Cheers!
mcc
Attachments
psychtapestry002.raw.zip
(705 Bytes) Downloaded 1 time
DM 42 - SN: 00373, Firmware v.:3.13. / 3.13. as compiled by SwissMicros

mcc
Posts: 199
Joined: Fri Jun 23, 2017 3:10 am

Re: psycho wallpaper

Post by mcc » Tue Apr 16, 2019 6:45 am

Hi,

there is a new version. This has one advantage over the previous one: It does not abort with the error of the previous one. ;)

Code: Select all

00 { 154-Byte Prgm }
01▸LBL "psyplt"
02 MVAR "GrMod"
03 MVAR "mod"
04 MVAR "fac"
05 VARMENU "psyplt"
06 STOP
07 EXITALL
08 RCL "mod"
09 STO 02
10 RCL "fac"
11 STO 03
12 RCL "ResY"
13 STO 01
14 0
15 STO 04
16 SF 25
17▸LBL 00
18 CLV "pltp"
19 RCL "ResX"
20 STO 00
21 1
22 DIM "pltp"
23 INDEX "pltp"
24 1
25 COMPLEX
26 STO× "pltp"
27▸LBL 01
28 RCL 00
29 SIN
30 RCL 01
31 COS
32 ×
33 RCL× 03
34 IP
35 RCL 02
36 MOD
37 X≠0?
38 GTO 02
39 RCL 00
40 RCL 01
41 COMPLEX
42 →
43 1
44 STO+ 04
45▸LBL 02
46 DSE 00
47 GTO 01
48 RCL 04
49 1
50 DIM "pltp"
51 RCL "pltp"
52 PIXEL
53 0
54 STO 04
55 DSE 01
56 GTO 00
57 END
An image I made with the program:
20190416-08362390.bmp
20190416-08362390.bmp (12.31 KiB) Viewed 114 times
The parameters for this image:
mod:2
fac:2000

The program is also attached as a *.raw.zip file.

Have fun!
Cheers!
mcc
Attachments
psywallpaper003.raw.zip
(312 Bytes) Downloaded 7 times
DM 42 - SN: 00373, Firmware v.:3.13. / 3.13. as compiled by SwissMicros

Post Reply