Doodle

[johnno56]

This is a QB64 converted graphics demo by "Dav". It had no name... figured doodle is better than nothing... lol

Code:

' Open a window and enable double buffering.
set window "Doodle", 640, 640, false
set redraw off

visible i, t, x, y, w, h, pi

pi = 3.141592654
w = 640
h = 640

do
    t = t + 0.01
    set color 0, 0, 0, 25

    draw rect 0, 0, w, h, true
    for i = 1 to 8
        set color i * 32, i * 32 * 0.7, 0, i * 32
        for x = 0 to w
            y = 100 * sin(pi * x / w) * sin(1 * pi * x / w + t + i * t * pi * 0.1)
            draw ellipse x, h / 2 + y, i, i
            draw ellipse w / 2 + y, x, i, i
        next
    next

    redraw
    fwait 30
until keydown(KEY_ESCAPE, true)