PureBoard

Code: Alles auswählen

InitSprite()

     OpenWindow(0,0,0,800,600,"sprites!",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
     OpenWindowedScreen(WindowID(0),10,10,400,400,0,0,0)
  
      himg=CreateSprite(1,64,64, #PB_Sprite_Texture)
      
      StartDrawing(SpriteOutput(1)) 
        Circle(10,10,10 ,RGB(255,255,0))
      StopDrawing()
      
      DisplaySprite(1,10,10)
      
      *buffer = AllocateMemory(64*64*4)
      *ptr = *buffer
      bmi.BITMAPINFO
      bmi\bmiHeader\biSize   = SizeOf(BITMAPINFOHEADER)
      bmi\bmiHeader\biWidth  = 64
      bmi\bmiHeader\biHeight = 64
      bmi\bmiHeader\biPlanes = 1
      bmi\bmiHeader\biBitCount = 24
      bmi\bmiHeader\biCompression = #BI_RGB
      
      hDC = StartDrawing(SpriteOutput(1))
      GetDIBits_(hDC,hImg,0,64,*buffer,bmi,#DIB_RGB_COLORS)
         For a = 0 To 32
          For b = 0 To 32
              PokeL(*ptr, $ff0000)        
              *ptr + 4
          Next b
        Next a
      SetDIBits_(hDC,hImg,0,64,*buffer,bmi,#DIB_RGB_COLORS)
      StopDrawing()
      
      DisplaySprite(1,110,10)
      
      Repeat
      If WaitWindowEvent() = #PB_Event_CloseWindow
        End
      EndIf
      ForEver