Posts by jedie

def ascii_mandelbrot(width=79, height=33, x_offset=-50, y_offset=-16, zoom=7, chars='@%#*+=-:. '):

    char_count = len(chars)

    def get_char_number(ca, cb):
        a = ca
        b = cb
        for char_number in range(char_count):
            t = a * a - b * b + ca
            b = 2 * a * b + cb
            a = t
            z = a * a + b * b
            if z > zoom:
                return char_number
        return char_number  # last character

    for y in range(height):
        for x in range(width):
            ca = (x + x_offset) * 0.0458
            cb = (y + y_offset) * 0.08333

            char_number = get_char_number(ca, cb)
            print(chars[char_number], end='')

        print('')  # new line


print('-' * 79)

ascii_mandelbrot()

print('-' * 79)

ascii_mandelbrot(
    chars=r'''$@B%8&WM#*oahkbdpqwmZO0QLCJUYXzcvunxrjft/\|()1{}[]?-_+~<>i!lI;:,"^`'. '''
)

print('-' * 79)

ascii_mandelbrot(chars='\N{Full block}\N{Dark shade}\N{Medium shade}\N{Light shade} ')

print('-' * 79)

-------------------------------------------------------------------------------
@@@@@@@@@@@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%%%%%%#####%%%%%%%%%%%%%@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%%%########**######%%%%%%%%%%@@@@@@@@@@@@@@@
@@@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%#########**= =+**######%%%%%%%%%@@@@@@@@@@@@@
@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%#########***+=: :  +*######%%%%%%%%%@@@@@@@@@@@
@@@@@@@@@@%%%%%%%%%%%%%%%%%%%##########****+=-.  .-+***######%%%%%%%%%@@@@@@@@@
@@@@@@@@%%%%%%%%%%%%%%%%%%%#########****+++-       -++****####%%%%%%%%%@@@@@@@@
@@@@@@@%%%%%%%%%%%%%%%%%#########****+++==-:       :-=++++**###%%%%%%%%%@@@@@@@
@@@@@@%%%%%%%%%%%%%%%########*****++-   :             :--- +*###%%%%%%%%%@@@@@@
@@@@@%%%%%%%%%%%%%#######*******+++=-                      -+*###%%%%%%%%%@@@@@
@@@@%%%%%%%%%%%######********++++==:                      .=+**##%%%%%%%%%%@@@@
@@@@%%%%%%%#######***+ .=========-:                        :-**###%%%%%%%%%@@@@
@@@%%%%%%#######****+=:   :  ..:::                           +*####%%%%%%%%%@@@
@@@%%%%#######*****+==-.                                    -+*####%%%%%%%%%@@@
@@@%%%######****++=:-:                                      =**####%%%%%%%%%%@@
@@%%%%#****++++===-.                                       =+**####%%%%%%%%%%@@
@@%%%%#                                                   -=+**####%%%%%%%%%%@@
@@%%%%#****++++===-.                                       =+**####%%%%%%%%%%@@
@@@%%%######****++=:-:                                      =**####%%%%%%%%%%@@
@@@%%%%#######*****+==-.                                    -+*####%%%%%%%%%@@@
@@@%%%%%%#######****+=:   :  ..:::                           +*####%%%%%%%%%@@@
@@@@%%%%%%%#######***+ .=========-:                        :-**###%%%%%%%%%@@@@
@@@@%%%%%%%%%%%######********++++==:                      .=+**##%%%%%%%%%%@@@@
@@@@@%%%%%%%%%%%%%#######*******+++=-                      -+*###%%%%%%%%%@@@@@
@@@@@@%%%%%%%%%%%%%%%########*****++-   :             :--- +*###%%%%%%%%%@@@@@@
@@@@@@@%%%%%%%%%%%%%%%%%#########****+++==-:       :-=++++**###%%%%%%%%%@@@@@@@
@@@@@@@@%%%%%%%%%%%%%%%%%%%#########****+++-       -++****####%%%%%%%%%@@@@@@@@
@@@@@@@@@@%%%%%%%%%%%%%%%%%%%##########****+=-.  .-+***######%%%%%%%%%@@@@@@@@@
@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%#########***+=: :  +*######%%%%%%%%%@@@@@@@@@@@
@@@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%#########**= =+**######%%%%%%%%%@@@@@@@@@@@@@
@@@@@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%%%########**######%%%%%%%%%%@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%%%%%%#####%%%%%%%%%%%%%@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%@@@@@@@@@@@@@@@@@@@@
-------------------------------------------------------------------------------
$$$$$$$$$$$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@@@@@@BBBBB@@@@@@@@@@@@@$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@@@BBBBBBBB%%BBBBBB@@@@@@@@@@$$$$$$$$$$$$$$$
$$$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@BBBBBBBBB%%&*&8%%BBBBBB@@@@@@@@@$$$$$$$$$$$$$
$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@BBBBBBBBB%%%8&MdMoh8%BBBBBB@@@@@@@@@$$$$$$$$$$$
$$$$$$$$$$@@@@@@@@@@@@@@@@@@@BBBBBBBBBB%%%%8&W#hp#W8%%%BBBBBB@@@@@@@@@$$$$$$$$$
$$$$$$$$@@@@@@@@@@@@@@@@@@@BBBBBBBBB%%%%888Wk(j  mvW88%%%%BBBB@@@@@@@@@$$$$$$$$
$$$$$$$@@@@@@@@@@@@@@@@@BBBBBBBBB%%%%888&&WMk     uMW&8888%%BBB@@@@@@@@@$$$$$$$
$$$$$$@@@@@@@@@@@@@@@BBBBBBBB%%%%%88WYk*M*vakp   Zbp*rMWWWd8%BBB@@@@@@@@@$$$$$$
$$$$$@@@@@@@@@@@@@BBBBBBB%%%%%%%888&W*  1              k UwW8%BBB@@@@@@@@@$$$$$
$$$$@@@@@@@@@@@BBBBBB%%%%%%%%8888&&Mka                   Y#&8%%BB@@@@@@@@@@$$$$
$$$$@@@@@@@BBBBBBB%%%8a#&&&&&&&&&WMo                      oMW%%BBB@@@@@@@@@$$$$
$$$@@@@@@BBBBBBB%%%%8&MaoaMah##MMMo                         a8%BBBB@@@@@@@@@$$$
$$$@@@@BBBBBBB%%%%%8&&W#( 0  ; Coo                         oW8%BBBB@@@@@@@@@$$$
$$$@@@BBBBBB%%%%88&MWMon         p                         *&%%BBBB@@@@@@@@@@$$
$$@@@@B%%%%8888&&&W#f0p                                   a&8%%BBBB@@@@@@@@@@$$
$$@@@@B                                                 q*W&8%%BBBB@@@@@@@@@@$$
$$@@@@B%%%%8888&&&W#f0p                                   a&8%%BBBB@@@@@@@@@@$$
$$$@@@BBBBBB%%%%88&MWMon         p                         *&%%BBBB@@@@@@@@@@$$
$$$@@@@BBBBBBB%%%%%8&&W#( 0  ; Coo                         oW8%BBBB@@@@@@@@@$$$
$$$@@@@@@BBBBBBB%%%%8&MaoaMah##MMMo                         a8%BBBB@@@@@@@@@$$$
$$$$@@@@@@@BBBBBBB%%%8a#&&&&&&&&&WMo                      oMW%%BBB@@@@@@@@@$$$$
$$$$@@@@@@@@@@@BBBBBB%%%%%%%%8888&&Mka                   Y#&8%%BB@@@@@@@@@@$$$$
$$$$$@@@@@@@@@@@@@BBBBBBB%%%%%%%888&W*  1              k UwW8%BBB@@@@@@@@@$$$$$
$$$$$$@@@@@@@@@@@@@@@BBBBBBBB%%%%%88WYk*M*vakp   Zbp*rMWWWd8%BBB@@@@@@@@@$$$$$$
$$$$$$$@@@@@@@@@@@@@@@@@BBBBBBBBB%%%%888&&WMk     uMW&8888%%BBB@@@@@@@@@$$$$$$$
$$$$$$$$@@@@@@@@@@@@@@@@@@@BBBBBBBBB%%%%888Wk(j  mvW88%%%%BBBB@@@@@@@@@$$$$$$$$
$$$$$$$$$$@@@@@@@@@@@@@@@@@@@BBBBBBBBBB%%%%8&W#hp#W8%%%BBBBBB@@@@@@@@@$$$$$$$$$
$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@BBBBBBBBB%%%8&MdMoh8%BBBBBB@@@@@@@@@$$$$$$$$$$$
$$$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@BBBBBBBBB%%&*&8%%BBBBBB@@@@@@@@@$$$$$$$$$$$$$
$$$$$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@@@BBBBBBBB%%BBBBBB@@@@@@@@@@$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@@@@@@BBBBB@@@@@@@@@@@@@$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$$$$$$$$$$$$$$$$$$$$
-------------------------------------------------------------------------------
█████████████████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓████████████████████
██████████████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓█████████████████
███████████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒░░▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓▓███████████████
█████████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒░░    ░░▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓█████████████
███████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒░░░        ░▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓███████████
██████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒▒░░░░         ░░░▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓█████████
████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒░░░░              ░░░░▒▒▒▒▓▓▓▓▓▓▓▓▓████████
███████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒░░░░                     ░░▒▒▒▓▓▓▓▓▓▓▓▓███████
██████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒░░░░░                          ░▒▒▒▓▓▓▓▓▓▓▓▓██████
█████▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒░░░░░░░                             ░▒▒▒▓▓▓▓▓▓▓▓▓█████
████▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒░░░░░░░░                                ░░▒▒▓▓▓▓▓▓▓▓▓▓████
████▓▓▓▓▓▓▓▒▒▒▒▒▒▒░░░                                        ░░▒▒▒▓▓▓▓▓▓▓▓▓████
███▓▓▓▓▓▓▒▒▒▒▒▒▒░░░░                                          ░▒▒▒▒▓▓▓▓▓▓▓▓▓███
███▓▓▓▓▒▒▒▒▒▒▒░░░░░                                           ░▒▒▒▒▓▓▓▓▓▓▓▓▓███
███▓▓▓▒▒▒▒▒▒░░░░                                             ░░▒▒▒▒▓▓▓▓▓▓▓▓▓▓██
██▓▓▓▓▒░░░░                                                  ░░▒▒▒▒▓▓▓▓▓▓▓▓▓▓██
██▓▓▓▓▒                                                      ░░▒▒▒▒▓▓▓▓▓▓▓▓▓▓██
██▓▓▓▓▒░░░░                                                  ░░▒▒▒▒▓▓▓▓▓▓▓▓▓▓██
███▓▓▓▒▒▒▒▒▒░░░░                                             ░░▒▒▒▒▓▓▓▓▓▓▓▓▓▓██
███▓▓▓▓▒▒▒▒▒▒▒░░░░░                                           ░▒▒▒▒▓▓▓▓▓▓▓▓▓███
███▓▓▓▓▓▓▒▒▒▒▒▒▒░░░░                                          ░▒▒▒▒▓▓▓▓▓▓▓▓▓███
████▓▓▓▓▓▓▓▒▒▒▒▒▒▒░░░                                        ░░▒▒▒▓▓▓▓▓▓▓▓▓████
████▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒░░░░░░░░                                ░░▒▒▓▓▓▓▓▓▓▓▓▓████
█████▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒░░░░░░░                             ░▒▒▒▓▓▓▓▓▓▓▓▓█████
██████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒░░░░░                          ░▒▒▒▓▓▓▓▓▓▓▓▓██████
███████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒░░░░                     ░░▒▒▒▓▓▓▓▓▓▓▓▓███████
████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒░░░░              ░░░░▒▒▒▒▓▓▓▓▓▓▓▓▓████████
██████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒▒░░░░         ░░░▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓█████████
███████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒░░░        ░▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓███████████
█████████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒▒░░    ░░▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓█████████████
███████████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▒▒▒░░▒▒▒▒▒▒▓▓▓▓▓▓▓▓▓▓███████████████
██████████████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒▒▒▒▒▓▓▓▓▓▓▓▓▓▓▓▓▓█████████████████
█████████████████████▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓████████████████████
-------------------------------------------------------------------------------

10 GOTO 280
20 FOR Y=-8 TO 8
30 FOR X=-21 TO 10
40 CA=X*.1
50 CB=Y*.15
60 A=CA
70 B=CB
80 FOR I=0 TO 8
90 T=A*A-B*B+CA
100 B=2*A*B+CB
110 A=T
120 IF (A*A+B*B)>4 THEN GOTO 160
130 NEXT I
140 PRINT CHR$(128);
150 GOTO 170
160 PRINT CHR$(PEEK(&H4000+I));
170 NEXT X
180 NEXT Y
190 PRINT("...RESTART...")
200 GOTO 20
210 ' Y=-8 TO 8 -> HEIGHT
220 ' X=-20 TO 10 -> WIDTH
230 ' CA=X*.1 -> ZOOM WIDTH
240 ' CB=Y*.15 -> ZOOM HEIGHT
250 ' I=0 TO 8 -> DEPTH==CHARS COUNT
260 '
270 ' INIT COLOR CHARACTERS:
280 FOR I=0 TO 8
290 READ CHARNO
300 PRINT "WRITE TO:";HEX$(&H4000+I);CHR$(CHARNO);CHARNO
310 POKE &H4000+I,CHARNO
320 NEXT I
330 GOTO 20
340 ' USED CHARACTERS:
350 DATA 128,175,191,143,223,239,159,255,207

10 FOR Y=-8 TO 8
20 FOR X=-20 TO 10
30 CA=X*.1
40 CB=Y*.15
50 A=CA
60 B=CB
70 FOR I=0 TO 10
80 T=A*A-B*B+CA
90 B=2*A*B+CB
100 A=T
110 IF (A*A+B*B)>4 THEN GOTO 150
120 NEXT I
130 PRINT CHR$(128);
140 GOTO 160
150 PRINT CHR$(48+I);
160 NEXT X
170 ' RENDER NEXT LINE:
180 PRINT "!";
190 NEXT Y
200 PRINT("...RESTART...")
210 GOTO 10
220 ' Y=-8 TO 8 -> HEIGHT
230 ' X=-20 TO 10 -> WIDTH
240 ' CA=X*.1 -> ZOOM WIDTH
250 ' CB=Y*.15 -> ZOOM HEIGHT
260 ' I=0 TO 10 -> DEPTH
270 ' CHR + 48 STARTS WITH 0

HERE BE DRAGONS
================
A DRAGON 32 DEMO
FOR NOVA 2022
BY SLIPSTREAM

CODE, GRAPHICS, MUSIC: TôBach
GRAPHICS: RaccoonViolet, Ando
MUSIC: Nico

VDK disk image included but will not have audio!
For best results, copy the wav to tape
and run on a real Dragon 32 :)