### psycho wallpaper

Posted:

**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: The raw file is in the attachment.

The code is here:
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

(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: 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
```

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