Kirjautuminen

Haku

Tehtävät

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

Sivun loppuun

hunajavohveli [29.08.2003 14:17:58]

#

Jos olet katsonut Star Warsia, niin tiedät miltä näyttää, kun alukset siirtyvät hyperajoon ja matkustavat yli valonnopeudella ja tähdet venyvät viivoiksi. Tässä sitä esittävä ohjelma.

Edit: Sisensin vähän.

Edit 2019 by mod: Hidastukseen vaihdettu TIMER. Toimii FreeBASICilla asetuksella -lang qb.

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)

Gwaur [03.09.2003 09:41:32]

#

Star Trek versiota? :D
nyt MakeGho suuttuu jos lukee tän :<

hunajavohveli [04.09.2003 15:56:29]

#

Minkäslainen se Star Trek valonnopeus on? Ei oo tullu kattottua.

polestar [04.09.2003 18:00:07]

#

Heheh. Meikä repes samalla kun katoin tuon ohjelman. Mitään ei tapahtunut, mutta kun painoin välilyöntiä niin heti tuli vipinää. ;)

Gwaur [17.11.2003 18:43:16]

#

En mä oikeen osaa kuvailla star trekin hommelia ku se on kaikis aina erilainen :o

Puhveli [13.03.2004 17:42:30]

#

upee, varsinkin sillon kun tähtiä on paaaljon

tejeez [22.06.2004 17:13:46]

#

Hyva pizza sulle paistelee. \O/

BlueByte [22.06.2004 18:42:40]

#

Kääntäkää joku binääriksi niin voin kokeilla linuxissa.

moptim [26.03.2007 17:41:15]

#

tejeezin kommentit :D


Sivun alkuun

Vastaus

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

Tietoa sivustosta