Keskustelu: Koodit: joku QB-efekti 1

joo, täss on taas efektii... (tein vahingossa, testailin jotain)

SCREEN 13
DO

FOR a = 1 TO 320
FOR b = 1 TO 200
 c = POINT(a, b)
 PSET (a, b), (SIN(a / 102) * b) / 8 + c
NEXT
NEXT

FOR a = 1 TO 320
FOR b = 1 TO 200
 c = POINT(a, b)
 PSET (a, 200 - b), (SIN(a / 102) * b) / 8 + c
NEXT
NEXT
LOOP

Melkonen rumilus ;)

juu..

ihan kokeiluks jees :D

Minusta se on ihan hieno

ihan ok noin lyhyeksi...

joo :P

(ihan) hieno. Silmiä vain alkaa särkeä kun katsoo pitkään...

hiano