PROCEDURE [ccall] GetKeyState (VAR numKeys: Sdl.Integer): Sdl.PUInt8;

SDL_OPENGLBLIT* = {1, 3}; (* Create an OpenGL rendering context *)
RESIZABLE* = {4}; (* This video mode may be resized *)
NOFRAME* = {5}; (* No window caption or edge frame *)

procedure Loop;
var
  Quit : boolean;
  Event: TSDL_Event;
begin
  Quit := false;
 
  Draw.Rect(Screen, 0, 0, 800, 600, 212, 208, 200);
 
  while (Quit <> true) do
  begin

    while (SDL_PollEvent(@Event) <> 0) do
    begin

      if (Event.Type_ = SDL_QUITEV) then
      begin
        Quit := true;
      end;

      if (Event.Type_ = SDL_MOUSEMOTION) then
      begin
        Button.Handler(Screen, Event);
      end;
     
    end;
    SDL_Delay(1);
  end;
 

  if (Quit = true) then
  begin
    SDL_Quit;
  end;

end;

procedure Loop;
var
  Quit : boolean;
  Event: TSDL_Event;
begin
  Quit := false;
 
  Draw.Rect(Screen, 0, 0, 800, 600, 212, 208, 200);
 
  while (Quit <> true) do
  begin
    SDL_WaitEvent(@Event);

    if (Event.Type_ = SDL_QUITEV) then
    begin
      Quit := true;
    end;

    if (Event.Type_ = SDL_MOUSEMOTION) then
    begin
      Button.Handler(Screen, Event);
    end;
     
  end;
 
  if (Quit = true) then
  begin
    SDL_Quit;
  end;

end;

MODULE Sdl2Win;

TYPE
PPoint* = POINTER [untagged] TO Point;
Point* = RECORD [untagged]
   x*, y*: int
END;

PROCEDURE [ccall] RenderDrawLines* ["SDL_RenderDrawLines"] (renderer: Renderer; points: PPoint; count: INTEGER): INTEGER;

Point* = RECORD
   x*, y*: INTEGER
END;
Points* = POINTER TO ARRAY OF Point;

PROCEDURE RenderDrawLines* (renderer: Renderer; points: Points; count: INTEGER): INTEGER;
BEGIN
   Sdl2Win.RenderDrawLines(renderer(Renderer).r, SYSTEM.VAL(Sdl2Win.PPoint, points), count)
END RenderDrawLines;