Keskustelu: Koodit: QB: Fraktaalikuvio

Yksinkertainen ja hauska fraktaalikuvio, jolla saa elävöitettyä kankeaa demoa tai pleikkarimaista latausikkunaa.

DEFINT A-Z
SCREEN 13
DIM x, y, L AS INTEGER

DO
    ' kuvion koko 320x200
    FOR x = 0 TO 319
        FOR y = 0 TO 199
            ' itse kuvio. Suosittelen välioperaattorin vaihtelemista
            PSET (x, y), ((x - L) AND (y + L)) * 4
    NEXT y, x
    'Liike, suunta ja nopeus.
    'Mitä suuremman arvon L-muuttujalle antaa, sen suurempi nopeus on. (negatiivinen arvo vaihtaa suuntaa)
    L = (L + 1) AND 255
LOOP UNTIL INKEY$ = CHR$(27)

Kommentteja kiitos.

Hassu yksinkertainen fraktaalikuvio!

Leikin vähän tuolla, ja tein tälläisellä kaavalla hienon kuvion:
PSET (x, y), ((x - (L + y)) AND (y + L + x))

Hieno. Mistä tuo "Exeä ei saa!" tulee?

Meikällä ei oo enää sitä exeä jaossa. Ton tekstin tilalla oli joskus aikaisemmin linkki kyseiseen tiedostoon, mutta jos joku suostuu kääntämään ja hostimaan exen, niin kelpaa kyllä.