You will do as I say....

Screen _NewImage(640, 480, 32)

Dim As Integer x, y, r, g, b

Dim As Single t

Do

    t = t + 0.2

    For y = -240 To 240

        For x = -320 To 320

            r = Plasma(x, y, t) ' Red channel

            g = Bubbles(x, y, t) ' Green channel

            b = Plasma(x, y, t + 2) ' Blue channel

            PSet (x + 320, y + 240), _RGB32(r, g, b)

        Next x

    Next y

    _Display

    _Limit 60 ' Limit to 60 frames per second

Loop Until InKey$ <> ""

System



Function Bubbles% (x As Single, y As Single, t As Single) ' Function to create bubble effect

    Bubbles = 127 + 127 * Sin(Sqr((x - 320 * Sin(t / 5)) ^ 2 + (y - 240 * Cos(t / 7)) ^ 2) / 8 - t)

End Function



Function Plasma% (x As Single, y As Single, t As Single) ' Function to calculate plasma effect

    Plasma = 127 + 127 * Sin(Sqr(x * x + y * y) / 8 - t)

End Function

For i = 21 To 30

    Locate i, 1

    Print i;

    Sleep

Next 

Some of you might've noticed, some might not care, but I did some minor organization on the forums today. 

Prolific Programmers (the forums where people who write a bunch of junk and want to keep it all organized in their own personal subforums) got splintered into adding a new forum called "Retired Programmers".

The main reason for this simple change?

To make it so all sub-forums are easy visible without that "and more" hiding them.  9 sub-forums can be displayed in the main forums, and anything beyond that is just "and more".  This makes certain that everyone is easily visible.

Nothing is lost.  No posts disappeared.  The only change is that the guys who haven't posted for a while have basically just been archived to make it easier to find and keep up with the guys who are still active and adding to their Prolific Programmers sub-forums.  No biggy; just something I wanted to take a moment to bring to everyone's attention and explain what happened and where those came from. 

_Title "Sierpinski Triangle in QB64PE"

Screen _NewImage(800, 800, 32)

For d = 0 To 7

    SierpinskiTriangle 50, 50, 700, d

    _Display

    _Delay 2

Next

System



Sub SierpinskiTriangle (x As Integer, y As Integer, size As Integer, depth As Integer)

    If depth = 0 Then

        Line (x, y)-(x + size, y)

        Line (x + size, y)-(x + size / 2, y + Int(size * Sin(_Pi / 3)))

        Line (x + size / 2, y + Int(size * Sin(_Pi / 3)))-(x, y)

    Else

        Color _RGB32(255 * Rnd, 255 * Rnd, 255 * Rnd)

        SierpinskiTriangle x, y, size / 2, depth - 1

        SierpinskiTriangle x + size / 2, y, size / 2, depth - 1

        SierpinskiTriangle x + size / 4, y + Int((size / 2) * Sin(_Pi / 3)), size / 2, depth - 1

    End If

End Sub

_Title "Mandelbrot Set in QB64PE"

Screen 12

Dim Shared xCenter As Double, yCenter As Double, scale As Double, maxIter As Long

xCenter = -0.5: yCenter = 0: scale = 2: maxIter = 100



Do

    Cls

    DrawMandelbrot xCenter, yCenter, scale, maxIter

    _Limit 120

    Select Case _KeyHit

        Case 18432: yCenter = yCenter - 0.1 * scale

        Case 20480: yCenter = yCenter + 0.1 * scale

        Case 19200: xCenter = xCenter - 0.1 * scale

        Case 19712: xCenter = xCenter + 0.1 * scale

        Case 61, 43: scale = scale / 1.1 '= or +

        Case 45, 95: scale = scale * 1.1 '- or _

        Case 113, 81: maxIter = maxIter + 10 'q      or Q

        Case 69, 101: maxIter = maxIter - 10 'e or E

        Case 27: System 'ESC

    End Select

    _Display

Loop



Sub DrawMandelbrot (xCenter As Double, yCenter As Double, scale As Double, maxIter As Long)

    Dim As Long x, y

    Dim As Double zx, zy, zx2, zy2, cx, cy

    Dim As Long iter

    For y = 0 To 479

        For x = 0 To 639

            cx = (x / 320 - 1.5) * scale + xCenter

            cy = (y / 240 - 1.0) * scale + yCenter

            zx = 0: zy = 0: zx2 = 0: zy2 = 0: iter = 0

            Do While (zx2 + zy2 <= 4) And (iter < maxIter)

                zy = 2 * zx * zy + cy

                zx = zx2 - zy2 + cx

                zx2 = zx * zx

                zy2 = zy * zy

                iter = iter + 1

            Loop

            If iter = maxIter Then

                PSet (x, y), 0

            Else

                PSet (x, y), iter * 255 / maxIter

            End If

        Next x

    Next y

End Sub

i was bored so i messed about with the "pseudo-fractal" program (the last one listed in the post) shown in this topic:

https://qb64phoenix.com/forum/showthread...07#pid1907

please read the instructions further below.

I was talking to someone on Discord earlier today, and they were looking for a simple little routine to add directional movement and pew-pews to a game, using a mouse.  They had a routine, but it was rather laggy and didn't work quite right for me, so I wrote this little demo for them and thought I'd share it here in case anyone else might need something really simple like this:

Dim Shared As Long MB1, MB2, MMX, MMY

Const Drift = 5 'change the drift value for how lenient you want to be for your directional wandering of the mouse movement



_MouseHide

Do

    quickmouse

    If MMX < -Drift Then Print "LEFT"

    If MMX > Drift Then Print "RIGHT"

    If MMY < -Drift Then Print "UP"

    If MMY > Drift Then Print "DOWN"

    If MB1 Then Print "PEW PEW"

    If MB2 Then Print "BYE BYE": System

    _Limit 15

Loop



Sub quickmouse

    Static omb1, omb2 'old mouse buttons

    MB1 = _FALSE: MB2 = _FALSE 'mouse buttons

    MMX = 0: MMY = 0

    While _MouseInput

        MMX = MMX + _MouseMovementX

        MMY = MMY + _MouseMovementY

    Wend

    If _MouseButton(1) And Not omb1 Then MB1 = _TRUE

    If _MouseButton(2) And Not omb2 Then MB2 = _TRUE

    omb1 = _MouseButton(1): omb2 = _MouseButton(2)

End Sub

Back in the olden days before digital audio, when sound was recorded using analog formats like records and tapes, the pitch of the audio was affected by playback speed (e.g., 33 1/4 vs 45 vs 78 rpm for records, 3.75 vs 7.5 vs 15 vs 30 ips for audio tape). Or you could record at a very high speed, and playing back the recording at normal speed would result in a very slow and low sound. Playing back audio recorded at a very low speed would sound like chipmunks. Professional and even consumer tape machines often included a knob to vary the speed of the tape or turntable motor and thus the pitch & speed, where adjusting it a small amount allowed fine-tuning. DJs can accomplish this when playing records by lightly pressing their finger down on the record as it plays (the harder they press, the more it slows down).

I'm wondering how we might use modern QB64PE with its extensive audio capability to replicate this function? Perhaps the playback speed (or speed while recording) could be manipulated using a mouse or other analog or continuous type input device like an analog joystick, or a little at a time by pressing +/- keys.

Any ideas how this might be done?

I have installed QB64PE extension in VSCode, but I see nothing in the language list. If I create a new bas file, VSCode does automatically Liberty BASIC. Maybe, I forgot something?

Hi all,

New user here, thanks for providing this forum & please bear with me...

I am trying to learn how to build my own external library of functions and/or subroutines.

Here is what I have right now:

'$Include: 'mylib.bas'



AddNumbers

' mylib.bas



' Add two numbers. Or don't.

Sub AddNumbers (a, b)

  'AddNumbersResult = a + b

  'Print "Adding: "; _ToStr$(a); " + "; _ToStr$(b); " = "; _ToStr$(AddNumbersResult)

  Print "Hello world."

End Sub

1. Adding, removing parens to/from the call to AddNumbers
   
2. Adding, removing parameters to/from the call to AddNumbers - AddNumbers(2,3)
   
3. Adding, removing "as Integer" to/from Sub/function parameters
   
4. Using variables to call the sub/function, rather than literal integers
   
5. Removing spaces between sub/function name and parens
   
6. Converting the sub to function and back again
   
7. Moving the include directive from top to bottom
   
8. Adding a declaration of the sub to the library file
   
9. Changing all function/sub logic to simply "Hello world." just in case
   
10. Browsing the wiki entries for sub, function, include, etc.