New function: Single Surface Drawing.

BlitzMax Forums/BlitzMax Programming/New function: Single Surface Drawing.

tonyg
 #1
Should have added some code...
Graphics 640,480,0,NOSYNC
SeedRnd MilliSecs()
Local blob:TAnimImage = TAnimImage.Load("animstrip5.png",32,32,0,5,FILTEREDIMAGE)
Local blob1:TAnimImage = TAnimImage.Load("animstrip4.png",32,32,0,4,FILTEREDIMAGE)
'Local blob:TImage = LoadAnimImage("animstrip.png",32,64,0,10,FILTEREDIMAGE)
While Not KeyHit(key_escape)
	Cls
	blob.Draw(0,0,32,32,Rand(0,4))
	blob1.draw(0,50,32,32,Rand(0,3))
'	DrawImage blob,0,0,Rand(0,9)
	DrawText MouseX() + " " + MouseY(),0,100

	Flip
	FlushMem
	Delay 500
Wend

animstrip5.png is 32*32*5
animstrip4.png is 32*32*4