Proggies

[Dav]

Here's a small DRAW screen saver, @bplus.  Haven't come up with a good color changing method yet, but it makes nice spinning patterns.  Press ENTER to change patterns.  ESC to quit.  You may mod and/or share this elsewhere if you wish.

- Dav

Code: (Select All)

'DRAWSPIN.BAS

'Spinning patterns using DRAW.

'Press ENTER to change pattern, ESC to quit.

'Coded by Dav, OCT/2023



SCREEN _NEWIMAGE(800, 600, 32)



seed = 123 + (RND * 123): px = 3 + RND * 3



DO

    CLS

    DO

        p = p + px: ang = ang + seed

        DRAW "D" + STR$(p) + "TA" + STR$(ang + a)

    LOOP UNTIL POINT(0) < 0 AND POINT(1) < 0

    p = 0: a = a + .01: IF ang >= (a * seed) THEN ang = 0

    seed = seed + .03: IF seed > 245 THEN seed = 123

    IF INKEY$ = CHR$(13) THEN seed = 123 + (RND * 123): px = 3 + RND * 3

    _LIMIT 30

    _DISPLAY

LOOP UNTIL INP(&H60) = 1