Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Hyytelöefekti

HtH [20.02.2002 14:13:03]

#

Hyytelöefekti on aika outo nimi, mutta en keksinyt tälle parempaakaan. Se siis "vapisuttaa" kuvaa, oudolla tavalla... Kokeile itse, niin näät!

RANDOMIZE TIMER
SCREEN 13
FOR k = 1 TO 100
CIRCLE (160, 100), k, k
NEXT
'Minkä kokoinen palikka siirretään kerrallaan
xkoko = 100
ykoko = 100
pituus = 1
DIM a(xkoko * ykoko)
DO
g:
xx = INT(RND * 319 - xkoko - 1) + 1
yx = INT(RND * 199 - ykoko - 1) + 1
'Varmuudeksi, että jos randomi menee kuitenkin reunan yli.
IF xx < pituus OR yx < pituus OR xx > 319 - pituus OR yx > 199 - pituus THEN GOTO g
k = INT(RND * 12.56)
GET (xx, yx)-(xx + xkoko, yx + ykoko), a
PUT (xx + SIN(k) * pituus, yx + COS(k) * pituus), a, PSET
LOOP UNTIL INKEY$ <> ""
END

Antti Laaksonen [21.02.2002 22:49:31]

#

Hauska efekti. Ja koodiakaan ei ole liian kanssa.

nomic [24.05.2003 17:53:24]

#

aika raivo :D
tosta sais väännettyy johonkin peliin "myrkytys efektin"
eli kun hahmo on myrkyttynyt toi pätkä sieppaisi reaali ajassa näytön ja alkaisi tärisyttää sitä....
en osaa selittää mutta mukava on
ja opin itsekin jotain uutta...

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta