PureBoard

Code: Alles auswählen

UseJPEGImageDecoder()

InitSprite()
InitMouse()
InitKeyboard()

bild=LoadImage(1,"Test.JPG")  ;- <=== HIER ANPASSEN !!!

OpenWindow(0,0,0,488,800,"",#PB_Window_ScreenCentered)
 CreateGadgetList(WindowID(0))
 OpenWindowedScreen(WindowID(0),0,0,488,800,1,1,1)
 
 CreateSprite(1,488,976)
  StartDrawing(SpriteOutput(1))
   DrawImage(bild,0,0)
  StopDrawing()
 
  DisplaySprite(1,0,0)
  FlipBuffers()
   
 Repeat
  ExamineMouse()
  ExamineKeyboard()
  Delay(1)
  
  If MouseButton(1)=1
   DisplaySprite(1,0,MouseY())
   FlipBuffers()
  EndIf
  
  Until KeyboardPushed(#PB_Key_Escape) 

Code: Alles auswählen

EnableExplicit

Structure Rect
	top.i
	left.i
	width.i
	height.i
EndStructure

Structure Vector2D
	x.d
	y.d
EndStructure

Structure Point2D
	x.d
	y.d
EndStructure

Enumeration ;freedom
	#AXIS_X = 1
	#AXIS_Y = 2
EndEnumeration

Structure GlidePanel
	;müssen gesetzt werden
	panel.Rect			;äußerer Rahmen, in dem alles angezeigt werden soll
	hSprite.i			;Sprite, das als Inhalt dient
	position.Point2D	;Position des Sprites
	content.Rect		;Bereich, in dem gescrollt werden kann, relativ zu panel
	damping.d			;aktuelle Dämpfung für die Geschwindigkeit
	freedom.i			;Flags für die Benutzung von x- und y-Achse
	
	;werden intern gesetzt
	speed.Point2D		;aktuelle Geschwindigkeit des Sprites
	oldMouseRel.Point2D
	mouseDown.i
	acquired.i
	List mouseRelPos.Point2D()
EndStructure

Procedure GlidePanel_Init(*panel.GlidePanel)
	With *panel
		\speed\x = 0
		\speed\y = 0
		\acquired = #False
		\mouseDown = #False
		ClearList(\mouseRelPos())
	EndWith
	
	ProcedureReturn #True
EndProcedure

Procedure GlidePanel_Update(*panel.GlidePanel)
	Protected mouseRel.Point2D
	With *panel
		If \freedom & #AXIS_X
			mouseRel\x = MouseX() - \panel\left
		EndIf
		If \freedom & #AXIS_Y
			mouseRel\y = MouseY() - \panel\top
		EndIf
		
		If MouseButton(1)
			If (mouseRel\x < 0 Or mouseRel\x >= \panel\width Or mouseRel\y < 0 Or mouseRel\y >= \panel\height Or \mouseDown) And Not \acquired
				\mouseDown = #True
			Else
				If Not \acquired ;MouseDown
					\oldMouseRel = mouseRel
					\speed\x = 0
					\speed\y = 0
					\acquired = #True
				Else ;MouseMoveClicked
					LastElement(\mouseRelPos())
					If AddElement(\mouseRelPos())
						\mouseRelPos()\x = mouseRel\x - \oldMouseRel\x
						\mouseRelPos()\y = mouseRel\y - \oldMouseRel\y
						\position\x + \mouseRelPos()\x
						\position\y + \mouseRelPos()\y
						\oldMouseRel = mouseRel
					EndIf
					If ListSize(\mouseRelPos()) > 10
						FirstElement(\mouseRelPos())
						DeleteElement(\mouseRelPos())
					EndIf
				EndIf
			EndIf
			
		Else
			\mouseDown = #False
			If \acquired ;MouseUp
				mouseRel\x = 0
				mouseRel\y = 0
				ForEach \mouseRelPos()
					mouseRel\x + \mouseRelPos()\x
					mouseRel\y + \mouseRelPos()\y
				Next
				mouseRel\x / ListSize(\mouseRelPos())
				mouseRel\y / ListSize(\mouseRelPos())
				\speed\x = mouseRel\x
				\speed\y = mouseRel\y
				\acquired = #False
			EndIf
		EndIf
		
		\position\x + \speed\x
		\position\y + \speed\y
		\speed\x * (1. - \damping)
		\speed\y * (1. - \damping)
		
		If \position\y < \content\top
			\position\y = \content\top
		EndIf
		If \position\y > \content\top + \content\height
			\position\y = \content\top + \content\height
		EndIf
		If \position\x < \content\left
			\position\x = \content\left
		EndIf
		If \position\x > \content\left + \content\width
			\position\x = \content\left + \content\width
		EndIf
	EndWith
EndProcedure

Procedure GlidePanel_Display(*panel.GlidePanel)
	With *panel
		ClipSprite(\hSprite, -\position\x, -\position\y, \panel\width, \panel\height)
		DisplaySprite(*panel\hSprite, *panel\panel\left, *panel\panel\top)
		ClipSprite(\hSprite, #PB_Default, #PB_Default, #PB_Default, #PB_Default)
	EndWith
EndProcedure

UseJPEGImageDecoder()

InitSprite()
InitMouse()
InitKeyboard()

If Not OpenWindow(0, 0, 0, 488, 800, "", #PB_Window_ScreenCentered) : End : EndIf
If Not OpenWindowedScreen(WindowID(0), 0, 0, 488, 800, 0, 0, 0) : End : EndIf

Define image.i, sprite.i, mouse.i

image = LoadImage(#PB_Any, "/home/nicolas/Bilder/gf1029019.jpg")
If Not image : End : EndIf

sprite = CreateSprite(#PB_Any, 488, 976)
If Not sprite : End : EndIf
If StartDrawing(SpriteOutput(sprite))
	Box(0, 0, 488, 976, $ff0000)
	DrawImage(ImageID(image), 0, 0)
	StopDrawing()
EndIf

mouse = CreateSprite(#PB_Any, 10, 10)
If Not mouse : End : EndIf
If StartDrawing(SpriteOutput(mouse))
	Circle(5, 5, 5, RGB(255, 255, 255))
	StopDrawing()
EndIf

Define glider.GlidePanel

With glider\panel					;Die Ausmaße des Panels und seine Position auf dem Bildschirm
	\top = 100
	\left = 50
	\width = 388
	\height = 600
EndWith
glider\hSprite = sprite
glider\position\x = 0				;die anfängliche Position des Sprites im Panel
glider\position\y = 0
With glider\content					;Der Scrollbereich
	\left = -SpriteWidth(sprite) + 20
	\top = -SpriteHeight(sprite) + 20
	\width = 388 + SpriteWidth(sprite) - 40
	\height = 600 + SpriteHeight(sprite) - 40
EndWith
glider\damping = 0.01				;je höher dieser Wert, desto schneller bleibt der Glider stehen
glider\freedom = #AXIS_X | #AXIS_Y	;durch setzen dieser Flags wird auf beiden achsen gescrollt

If Not GlidePanel_Init(glider) : End : EndIf

Repeat
	ClearScreen(0)
	ExamineMouse()
	ExamineKeyboard()
	
	GlidePanel_Update(glider)
	
	GlidePanel_Display(glider)
	
	DisplaySprite(mouse, MouseX() - 5, MouseY() - 5)
	
	FlipBuffers()
	
Until KeyboardPushed(#PB_Key_Escape)