Graphics Demo 2025-AUG-07

LET sw = 1200
LET sh = 1000
LET xc = sw / 2
LET yc = sh / 2
LET rad = sh / 48
SCREEN _NewImage(sw, sh, 256)
FOR j = 1 TO 9999
    RANDOMIZE TIMER
    LET a = RND
    IF a > 0.86 THEN LET a = 0.86
    IF a < 0.1 THEN LET a = 0.1
    IF a = 0.5 THEN LET a = 0.4999
    LET b = 0.9998
    PRINT a
    LET p = 15000
    LET c = 2 - 2 * a
    LET x = 0
    LET y = 12.17
    LET w = a * x + c * x * x / (1 + x * x)
    FOR h = 0 TO p
        IF h > 100 THEN
            LET ct = 1.1 * SQR(x * x + y * y) / rad
            LET cr = 83 * ct
            LET cg = 177 * ct
            LET cb = 186 * ct
            PSET (x * rad + xc, y * rad + yc), _RGB(cr, cg, cb)
            LET z = x
            LET x = b * y + w
            LET u = x * x
            LET w = a * x + c * u / (1 + u)
            LET y = w - z
        END IF
    NEXT h
    SLEEP
    CLS
NEXT j