''
'' SDL pixel ploting example
''

#Include "SDL\SDL_syswm.bi"
#Include  "SDL\SDL.bi"
Const SCR_WIDTH  = 320*1
Const SCR_HEIGHT = 240*1

Declare Sub doRender (ByVal video As SDL_Surface Ptr)
Declare Sub SDLDRAW(iparam As Any Ptr)

Dim result As Unsigned Integer
Dim Shared video As SDL_Surface Ptr
Dim Shared event As SDL_Event

result = SDL_Init(SDL_INIT_EVERYTHING)
If result <> 0 Then
  End 1
End If

video = SDL_SetVideoMode( SCR_WIDTH, SCR_HEIGHT, 32, SDL_NOFRAME)
If video = 0 Then
  SDL_Quit
  End 1
End If

Dim As SDL_SysWMinfo wmInfo

SDL_GetWMInfo(@wmInfo)

Dim As HWND hwndSDL = wmInfo.window
Dim As hwnd mainhwnd
Dim msg As MSG
Dim As WNDCLASSEX wc
Dim As String NameClass="MyClass"

Function wndproc(hwnd As HWND, msg As UInteger,_
  wparam As WPARAM, lparam As LPARAM) As Integer
  Select Case msg
   Case WM_DESTROY
    PostQuitMessage(0)
   Case WM_COMMAND
    End
  End Select
  Return DefWindowProc(hwnd,msg,wparam,lparam)
End Function

With wc
  .cbSize=SizeOf(WNDCLASSEX)
  .style=CS_HREDRAW Or CS_VREDRAW
  .lpfnWndProc=@wndproc
  .hIcon=LoadIcon(0,IDI_QUESTION)
  .hCursor=LoadCursor(0,IDC_HELP)
  .hbrBackground=Cast(HBRUSH,COLOR_WINDOWFRAME)
  .lpszClassName=StrPtr(NameClass)
  .hIconSm=.hIcon
End With

If RegisterClassEx(@wc)=0 Then
  Print "Register error, press any key"
  Sleep
  End
EndIf

mainhwnd = CreateWindowEx(0,NameClass,"SDLPARENT",_
WS_VISIBLE Or WS_OVERLAPPEDWINDOW,100,100,400,400,0,0,0,0)
Var button = CreateWindowEx(0,"Button","Âûõîä",_
WS_VISIBLE Or WS_CHILD,30,300,80,20,mainhwnd,1,0,0)

SetParent(hwndSDL, mainhwnd)
ThreadCreate(@SDLDRAW)
MoveWindow(hwndSDL, 10, 10, 320, 240, FALSE)

While GetMessage(@msg,0,0,0)
  TranslateMessage(@msg)
  DispatchMessage(@msg)
Wend

Sub SDLDRAW(iparam As Any Ptr)
  Do

   doRender video

   SDL_Flip video

   SDL_PumpEvents
  Loop Until( (SDL_PollEvent( @event ) <> 0) And ((event.type = SDL_KEYDOWN) Or (event.type = SDL_MOUSEBUTTONDOWN)) )
End Sub

Sub doRender( ByVal video As SDL_Surface Ptr )
  Dim buffer As UInteger Ptr
  Dim x As Integer, y As Integer
  Dim c As UInteger
  Dim i As Integer

  SDL_LockSurface( video )

  For i = 1 To 1000
   x = Rnd * (SCR_WIDTH-1)
   y = Rnd * (SCR_HEIGHT-1)
   c = (Rnd * 256) Shl 8 ' 2^24

   buffer = video->pixels + y * video->pitch + x * Len( Integer )

   *buffer = c
  Next i

  SDL_UnlockSurface( video )

End Sub