hab mal versucht, so eine Art Wabbel-Effekt für 2D-Grafiken hinzukommen.
// Beispielsprite erstellen
FOR i = 0 TO 19
DRAWRECT i * 5, i * 5, 200 - i * 10, 200 - i * 10, RGB(RND(255), RND(255), RND(255))
NEXT
// Bild in Zeilen aufteilen
DIM wabbel[100]
FOR i = 0 TO 99
GRABSPRITE i, 0, 2 * i, 200, 2
wabbel[i] = i
NEXT
// Hauptprogramm
WHILE TRUE
INC faktor, 1
FOR i = 0 TO 99
DRAWSPRITE wabbel[i], 100 + SIN(faktor + i) * 50, 100 + 2 * i
NEXT
SHOWSCREEN
WENDWenn man die SIN-Funktion durch TAN-Funktion ersetzt, ergibt sich ein weiterer ganz netter Effekt.
okok ist ziemlich hirnlos, hat mich aber mal interessiert ;)
Super!!!! Genialer Effekt, den man oft braucht. Prima Implementierung.
mit der Zeile:
DRAWSPRITE wabbel[i], 100 + SIN(faktor + i) * 50, 100 + TAN(faktor + i) * igibs auchn coolen effekt