Koodit: QB: Spiraali

Kirjoittaja: Spuntte

Kirjoitettu: 10.07.2004 – 10.07.2004

Tagit: grafiikka, koodi näytille, vinkki

Ohjelma piirtää sinin ja kosinin avullapyörivän, vuorotelen laajenevan ja kutistuvan spiraalin.

SCREEN 9, , 0, 1'kaksoispuskuroinnin avulla piirtää spiraalin vasta kun se on kokonaan muistissa
kpii = 8 * ATN(1)'2 * pii

DO
 FOR j = kpii TO 0 STEP -.1
  CLS
  FOR i = 0 TO 36 STEP .01
   x = 320 + SIN(i + j) * i * j * 5
   y = 175 + COS(i + j) * i * j * 5
   PSET (x, y), 1'piirtää nykyisen spiraalin pisteen
  NEXT i
PCOPY 0, 1'piirtää valmiin spiraalin
NEXT j

 FOR j = 0 TO kpii STEP .1
  CLS
  FOR i = 0 TO 36 STEP .01
   x = 320 + SIN(i + j) * i * j * 5
   y = 175 + COS(i + j) * i * j * 5
   PSET (x, y), 4
  NEXT i
PCOPY 0, 1'piirtää valmiin spiraalin
NEXT j

LOOP UNTIL INKEY$ = CHR$(27)
SLEEP