Keskustelu: Koodit: QB: Tähtien venytys "valonnopeuteen"

SCREEN 12

RANDOMIZE TIMER

DIM stars(7999, 1)  'alustetaan

DO
  INPUT "Montako tähteä (1 - 8000)?", star
LOOP UNTIL star >= 1 AND star <= 8000 AND star = INT(star)
CLS

star = star - 1

FOR a = 0 TO star
  stars(a, 0) = INT(RND * 640)  'arvotaan x
  stars(a, 1) = INT(RND * 480)  'ja y
  PSET (stars(a, 0), stars(a, 1)), 15   'piirretään
NEXT a

PRINT "PAINA ENTER"
INPUT$(1)

t# = TIMER
FOR frame = 1 TO 45
  t# = t# + 0.05
  WHILE TIMER < t#: WAIT &h3da, &h8: WEND
  speed = speed + .1  'lisätään nopeutta
  IF speed > 2 THEN speed = speed ^ 1.1  'jos nopeus yli 2, monikertaistetaan
  FOR a = 0 TO star
    x0 = stars(a, 0)
    y0 = stars(a, 1)
    IF x0 >= 0 AND x0 < 640 AND y0 >= 0 AND y0 < 480 THEN
      x1 = x0 + (x0 - 320) / 320 * speed 'liikutetaan tähtiä
      y1 = y0 + (y0 - 240) / 320 * speed
      stars(a, 0) = x1
      stars(a, 1) = y1
      LINE (x0, y0)-(x1, y1), 15  'vedetään viiva edellisestä pisteestä uuteen
    END IF
  NEXT a
  IF INKEY$ <> "" THEN EXIT FOR  'jos painetaan jotain, poistu silmukasta
NEXT frame

PRINT "LOPPU"
INPUT$(1)