Wabbel-Effekt

[Quentin]

hab mal versucht, so eine Art Wabbel-Effekt für 2D-Grafiken hinzukommen.

Code (glbasic) Select Expand

// 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

[Kitty Hello]

Super!!!! Genialer Effekt, den man oft braucht. Prima Implementierung.

[trucidare]

mit der Zeile:

Code (glbasic) Select Expand

DRAWSPRITE wabbel[i], 100 + SIN(faktor + i) * 50, 100 + TAN(faktor + i) * igibs auchn coolen effekt