Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

10.4: PUT mit Aktionswort CUSTOM

Uploader:Redakteurnemored
Datum/Zeit:24.08.2013 16:15:16
Hinweis: Dieser Quelltext ist Bestandteil des Projekts OpenBook: 2D-Spieleprogrammierung, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

' *** CODE 10.4: PUT mit Aktionswort CUSTOM

FUNCTION rauschen(quellpixel AS UINTEGER, zielpixel AS UINTEGER, _
                  parameter AS ANY PTR) AS UINTEGER
  IF quellpixel = RGB(255, 0, 255) THEN RETURN zielpixel
  IF RND < *CAST(SINGLE PTR, parameter) THEN RETURN quellpixel
  RETURN zielpixel
END FUNCTION

SCREENRES 300, 200, 32
RANDOMIZE
DIM AS ANY PTR hintergrund = IMAGECREATE(300, 200)
BLOAD "hintergrund.bmp", hintergrund
DIM AS ANY PTR vordergrund = IMAGECREATE(100, 100)
BLOAD "vordergrund.bmp", vordergrund
DIM AS SINGLE rauschwert = 0

DO
  PUT (0, 0), hintergrund, PSET
  PUT (100, 50), vordergrund, CUSTOM, @rauschen, @rauschwert
  rauschwert += .01
  sleep 50
LOOP UNTIL LEN(INKEY) OR rauschwert >= 1
IMAGEDESTROY vordergrund
IMAGEDESTROY hintergrund
GETKEY