SuperStrict

Rem
*************************

 Ram-Füller-Code

-------------------------

 Was bei mir geschieht:
 Dieser Code generiert eine Art Memory-Leak.
 Und zwar erhöht sich mit jedem Frame, das neu
 gezeichnet wird (zum ersten mal auf den Bild-
 schirm kommt), die Speicherauslastung des
 Programms (beobachtbar im Taskmanager).
   
 Und das ziemlich deutlich:
 Bei 20 Frames à 400x300 px betragen die RAM-
 Sprünge >2MB.
 Schlussendlich geht die Speicherauslastung bis
 auf über 55MB rauf - ich finde, für ein so
 simples Programm ist das nicht wirklich akzept-
 abel.

 Falls das bei euch auch so ist, wär__COMMENT1__
 scheinlich nicht schlecht, dem mal auf den
 Grund zu gehen...

 Achja:
	400x300 px	=  120000 px
	x 4 Byte/px	=  480000 Byte
	x 20 (Frames)	= 9600000 Byte
				=    9375 KiB
				=       9.2 MiB

 Also laut meiner Rechnung, würden 10MiB für dieses
 Programm reichen...

*************************
End Rem

' Anzahl Frames, die erstellt werden, und wie lange es dauert,
'	bis der Spuk ein Ende hat.
Const Frames:Int = 20

' Jeden Frame mit einer Farbe füllen
Local Image:TImage = CreateImage(400,300,Frames,DYNAMICIMAGE)
For Local frame:Int = 0 To Frames -1
	Local Pixmap:TPixmap = LockImage( Image, frame )
	ClearPixels( Pixmap, $FF880000 | frame *$FF99 )
	UnlockImage( Image, frame )
Next

' Ganz normales Grafikfenster, oder liegt hier etwa der Fehler?
Graphics 400,300,0,60

' Zeitsteuerung
Local MSec:Int = MilliSecs(), Frame:Int = 0, FrameTime:Int = MSec +1000

' Hauptschleife
While Not (KeyDown(KEY_ESCAPE ) Or AppTerminate())
	MSec = MilliSecs()

	' Im Sekundentakt Frame wechseln
	If MSec => FrameTime
		FrameTime:+ 1000
		Frame = (Frame +1) Mod Frames
	EndIf
	
	' Grafikausgabe
	Cls
	
	DrawImage Image, 0, 0, Frame

	Flip
Wend
End

Framework BRL.GlMax2D

Framework BRL.D3D7Max2D