PLAY music grid wiki example code review

[grymmjack]

In this video I walk through the simple PLAY music grid wiki example by JP, to learn and understand the way it works. 

Check out the QB64PE Wiki Example here:
https://qb64phoenix.com/qb64wiki/index.php/PLAY

The commented source is here:
https://gist.github.com/grymmjack/d7fdcd...5a7da9b765

Experimentation and dissection as usual!

I'm still uploading the video - it should be up in an hour.

Thanks for watching!


https://youtu.be/8vCHnr1MAU4

This is an awesome example!

Code: (Select All)

DIM SHARED grid(16, 16), grid2(16, 16), cur

CONST maxx = 512

CONST maxy = 512

SCREEN _NEWIMAGE(maxx, maxy, 32)

_TITLE "MusicGrid"

cleargrid

DO

    IF TIMER - t# > 1 / 8 THEN cur = (cur + 1) AND 15: t# = TIMER

    IF cur <> oldcur THEN

        figuregrid

        drawgrid

        playgrid

        oldcur = cur

    END IF

    domousestuff

    in$ = INKEY$

    IF in$ = "C" OR in$ = "c" THEN cleargrid

LOOP UNTIL in$ = CHR$(27)



SUB drawgrid

scale! = maxx / 16

scale2 = maxx \ 16 - 2

FOR y = 0 TO 15

    y1 = y * scale!

    FOR x = 0 TO 15

        x1 = x * scale!

        c& = _RGB32(grid2(x, y) * 64 + 64, 0, 0)

        LINE (x1, y1)-(x1 + scale2, y1 + scale2), c&, BF

    NEXT x

NEXT y

END SUB



SUB figuregrid

FOR y = 0 TO 15

    FOR x = 0 TO 15

        grid2(x, y) = grid(x, y)

    NEXT x

NEXT y

FOR y = 1 TO 14

    FOR x = 1 TO 14

        IF grid(x, y) = 1 AND cur = x THEN

            grid2(x, y) = 2

            IF grid(x - 1, y) = 0 THEN grid2(x - 1, y) = 1

            IF grid(x + 1, y) = 0 THEN grid2(x + 1, y) = 1

            IF grid(x, y - 1) = 0 THEN grid2(x, y - 1) = 1

            IF grid(x, y + 1) = 0 THEN grid2(x, y + 1) = 1

        END IF

    NEXT x

NEXT y

END SUB



SUB domousestuff

DO WHILE _MOUSEINPUT

    IF _MOUSEBUTTON(1) THEN

        x = _MOUSEX \ (maxx \ 16)

        y = _MOUSEY \ (maxy \ 16)

        grid(x, y) = 1 - grid(x, y)

    END IF

LOOP

END SUB



SUB playgrid

n$ = "L16 "

'scale$ = "O1CO1DO1EO1FO1GO1AO1BO2CO2DO2EO2FO2GO2AO2BO3CO3D"

scale$ = "o1fo1go1ao2co2do2fo2go2ao3co3do3fo3go3ao4co4do4fo"

FOR y = 15 TO 0 STEP -1

    IF grid(cur, y) = 1 THEN

        note$ = MID$(scale$, 1 + (15 - y) * 3, 3)

        n$ = n$ + note$ + ","  'comma plays 2 or more column notes simultaneously

    END IF

NEXT y

n$ = LEFT$(n$, LEN(n$) - 1)

PLAY n$

END SUB



SUB cleargrid

FOR y = 0 TO 15

    FOR x = 0 TO 15

        grid(x, y) = 0

    NEXT x

NEXT y

END SUB

[Kernelpanic]

Funny program! 

[bplus]

What a great way to do the Word for the Day!

Play is like Draw in that they both are mini PL's.