waveform line demo by SupremoZanne

Code: (Select All)
' QB64 - A tech demo where one can move the mouse to alter the _SNDRAW waveform (self.QBprograms)

' https://www.reddit.com/r/QBprograms/comments/t9477v/a_tech_demo_where_one_can_move_the_mouse_to_alter/



' submitted 4 months ago by SupremoZanne

' https://www.reddit.com/user/SupremoZanne



_Title "waveform line demo" ' made for QB64

Dim xx(1100)

Screen _NewImage(1100, 300, 13)

Do

    If InKey$ <> "" Then

        For vv = 1 To 100

            PSet (Rnd * 1100, Rnd * 300) 'press any key to splatter pixels

        Next

    End If

    While _MouseInput 'move mouse to form soundwave

        x = _MouseX

        y = _MouseY

    Wend

    x2 = x

    y2 = y

    For xz = x1 To x2

        xx(x) = y

        Line (xz, 0)-(xz, 300), 0

    Next

    Line (x1, y1)-(x2, y2)

    For z = 1 To 1100

        For y3 = 1 To 300

            If Point(z, y3) = 15 Then

                zzt = y3

                GoTo 1

            End If

        Next

        1

        _SndRaw y3 / 350

    Next

    While _SndRawLen

    Wend

    y1 = y2

    x1 = x2

Loop