Keskustelu: Koodit: QB: Sinikäyrät

Eli yhdistetään kaksi sinikäyrää ja interpoloidaan lineaarisesti reunoille valkoisesta mustaan.

DEFINT A-Z

DIM c AS SINGLE, ca AS SINGLE
DIM p AS LONG

SCREEN 13

DEF SEG = &HA000

OUT &H3C8, 0
FOR i = 0 TO 255
 OUT &H3C9, i / 255 * 63
 OUT &H3C9, i / 255 * 63
 OUT &H3C9, i / 255 * 63
NEXT i

DO
t = t + 1
FOR x = 0 TO 320
 y = SIN(3.1415 * 2 * (x + t) / 80) * 50 + 100
 y = y + SIN(3.1415 * 2 * (x + t * 2) / 70) * 20

 p = x

 c = 0
 ca = 255 / y
 FOR y1 = 1 TO y
  POKE p, c
  p = p + 320
  c = c + ca
 NEXT y1

 ca = -255 / (200 - y)
 FOR y1 = y TO 200
  POKE p, c
  p = p + 320
  c = c + ca
 NEXT y1
NEXT x

LOOP

Todella hieno koodi uskomattoman pienellä rivimäärällä! Ei uskoisi QBasicilla tehdyksi ellei näkisi.

ei helvetti, jätkä on kone!

Hieno!

Hipon kunnia hipoo taivasta

Pistäkää rivit:
y = SIN(3.1415 * 2 * (x + t) / 80) * 50 + 100
y = y + SIN(3.1415 * 2 * (x + t * 2) / 70) * 20

muotoon:
y = SIN(3.1415 + 2 * (x + t) / 80) * 50 + 100
y = y + SIN(3.1415 ^ 2 * (x + t * 2) / 70) * 20

, niin sinikäyrät liikkuu sinikäyrän mukana.

Ei voi muuta sanoo kun, että ON HIENO!

ääh. Joutu ctrl+alt+delin kautta sammuttaa... >:(