Plasma

Schnipsel, Ideen und Lösungsvorschläge

Plasma

Beitragvon cybermonkey342 » So 5. Okt 2008, 21:32

Hallo,

ich habe mal ein altes Yabasic Programm auf GAMBAS konvertiert. Bitte einfach ein leeres SDL-Projekt anlegen und den Code reinkopieren und starten ...
Viel Spaß damit ...

Code: Alles auswählen
PUBLIC screen AS NEW Window
PUBLIC bild AS Image

PUBLIC SUB Main()
DIM cols[3, 256] AS Float
DIM i, x, y, r, g, b AS Integer
DIM c AS Float
WITH screen
.Width = 640
.Height = 480
.framerate = 100
.Show()
END WITH

FOR i = 0 TO 255
cols[0, i] = Abs(Int(128 - 127 * Sin(i * Pi / 32)))
cols[1, i] = Abs(Int(128 - 127 * Sin(i * Pi / 64)))
cols[2, i] = Abs(Int(128 - 127 * Sin(i * Pi / 128)))
NEXT
screen.Clear
Draw.Begin(screen)
FOR y = 0 TO 480
   FOR x = 0 TO 639
      c = (Sin(x / 35) * 128 + Sin(y / 28) * 32 + Sin((x + y) / 16) * 64)
      IF c > 255 THEN c = c - 256
      IF c < 0 THEN c = 256 + c
      r = cols[0, c]
      IF r > 255 THEN r = r - 256
      IF r < 0 THEN r = 256 + c
      g = cols[1, c]
      IF g > 255 THEN g = g - 256
      IF g < 0 THEN g = 256 + c
      b = cols[2, c]
      IF b > 255 THEN b = b - 256
      IF b < 0 THEN b = 256 + c
Draw.ForeColor = Color.RGB(r, g, b)
Draw.Point(x, y)
NEXT
NEXT
Draw.End
screen.Refresh
END
Mit den besten Grüßen,
Cybermonkey342
Benutzeravatar
cybermonkey342
Foriker
 
Beiträge: 28
Registriert: So 9. Mär 2008, 13:07
Wohnort: Ba-Wü

Zurück zu Schnipsel / HOWTO's

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast