PureBoard

Code: Alles auswählen

EnableExplicit
Define n, StartTime, StopTime, Key$, Event

Procedure FlipSprite(SpriteNr, Direction=0)   ; Direction = 0 -> Flip horizontal, Direction <> 0 -> Flip vertical
	Protected Point1.l, Point2.l
	Protected x,y
	If IsSprite(SpriteNr) And StartDrawing(SpriteOutput(SpriteNr))
		Protected Width  = SpriteWidth(SpriteNr)-1
		Protected Height = SpriteHeight(SpriteNr)-1
		If Direction	; vertical Flip
			For x = 0 To Width
				For y = 0 To Int((Height-1)/2)
					Point1 = Point(x,y)
					Point2 = Point(x,Height-y)
					If Point1 <> Point2
						Plot(x,y,Point2)
						Plot(x,Height-y,Point1)
					EndIf
				Next y
			Next x
		Else				; horizontal Flip
			For y = 0 To Height
				For x = 0 To Int((Width-1)/2)
					Point1 = Point(x,y)
					Point2 = Point(Width-x,y)
					If Point1 <> Point2
						Plot(x,y,Point2)
						Plot(Width-x,y,Point1)
					EndIf
				Next x
			Next y
		EndIf
		StopDrawing()
	EndIf
EndProcedure

If InitSprite() And InitKeyboard() And OpenWindow(0,0,0,640,480,"FlipSprite()",#PB_Window_ScreenCentered | #PB_Window_SystemMenu)
	If OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0)
		CreateSprite(1,100,100)
		If StartDrawing(SpriteOutput(1))
			For n = 1 To 50 : Circle(Random(100), Random(100), Random(20), Random($ffffff)) : Next n
			Debug "OK"
			StopDrawing()
		EndIf
		Key$ = "h"
		Repeat
			Event = WaitWindowEvent(10)
			If Key$ = "h" Or Key$ = "v"
				StartTime = ElapsedMilliseconds()
				If Key$ = "h"
					FlipSprite(1)
				Else
					FlipSprite(1,1)
				EndIf	
				StopTime = ElapsedMilliseconds()
				ClearScreen(0)
				DisplaySprite(1,270,170)
				If StartDrawing(ScreenOutput())
					DrawText(235,190+SpriteHeight(1),"Sprite flipped within "+Str(StopTime - StartTime)+"ms",$ffffff,0)
					StopDrawing()
				EndIf
				FlipBuffers()
			EndIf
			ExamineKeyboard()
			Key$ = KeyboardInkey()
		Until Key$ = #ESC$ Or Event = #PB_Event_CloseWindow
	EndIf
EndIf