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)
Star Trek versiota? :D
nyt MakeGho suuttuu jos lukee tän :<
Minkäslainen se Star Trek valonnopeus on? Ei oo tullu kattottua.
Heheh. Meikä repes samalla kun katoin tuon ohjelman. Mitään ei tapahtunut, mutta kun painoin välilyöntiä niin heti tuli vipinää. ;)
En mä oikeen osaa kuvailla star trekin hommelia ku se on kaikis aina erilainen :o
upee, varsinkin sillon kun tähtiä on paaaljon
Hyva pizza sulle paistelee. \O/
Kääntäkää joku binääriksi niin voin kokeilla linuxissa.
tejeezin kommentit :D
Aihe on jo aika vanha, joten et voi enää vastata siihen.