PureBoard

Code: Alles auswählen

Global zaehler.l, x.l,y.l,xypos.l

InitSprite()

OpenWindow(0,0,0,800,600,"sprite",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),10,10,300,300,0,0,0)

CreateSprite(1,256,256,#PB_Sprite_PixelCollision)

StartDrawing(SpriteOutput(1))
  Box(0,0,256,256,RGB(255,255,255))
StopDrawing()
  
 StartDrawing(SpriteOutput(1))
   Buffer      = DrawingBuffer()             
   Pitch       = DrawingBufferPitch()        
   PixelFormat = DrawingBufferPixelFormat()  
 StopDrawing()

Repeat
  
  Event.l = WindowEvent()
  
  StartDrawing(SpriteOutput(1)) 
    xypos=buffer+x*4+y*1024
    PokeL(xypos,$ff0000)
  StopDrawing() 
  
  DisplaySprite(1,10,10)
  FlipBuffers()
  
Until Event = #PB_Event_CloseWindow

End

Code: Alles auswählen

Global zaehler.l, x.l,y.l,xypos.l

InitSprite()

OpenWindow(0,0,0,800,600,"sprite",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),10,10,300,300,0,0,0)

CreateSprite(1,256,256,#PB_Sprite_PixelCollision)

StartDrawing(SpriteOutput(1))
  Box(0,0,256,256,RGB(255,255,255))
StopDrawing()
 
Repeat
 
  Event.l = WindowEvent()
  
  If Event = #PB_Event_LeftClick
    StartDrawing(SpriteOutput(1))
      x = WindowMouseX(0) - 10 - 10; SpritePosition "X" und ScreenPosition "X" abziehen!
      y = WindowMouseY(0) - 10 - 10; SpritePosition "Y" und ScreenPosition "Y" abziehen!
      Circle(x,y,2,RGB(255,0,0))
    StopDrawing()
  EndIf
  
  DisplaySprite(1,10,10)
  FlipBuffers()
 
Until Event = #PB_Event_CloseWindow

End