program ogl_p3;

uses gl,glut,glu;

const
  AppWidth = 640;
  AppHeight = 480;
  n = 4;

type
  rectIndexArr = array[1..n] of Glfloat;
var
  player_rect: rectIndexArr;
  posx1, posx2: Real;
  stepx: Real;
  keySpecialStates: array[0..256] of Boolean;

procedure keyOperations;
begin
     if (keySpecialStates[GLUT_KEY_LEFT]) then
     begin
          stepx := -0.025;
     end;
     if (keySpecialStates[GLUT_KEY_RIGHT]) then
     begin
          stepx := 0.025;
     end;
end;

procedure ReshapeCallback(width, height: Integer); cdecl;
begin

end;

procedure DisplayCallback; cdecl;
begin
     stepx := 0.0;
     // Проверка нажата ли клавиша влево или вправо
     keyOperations;
     // Рисуем игровое поле
     glClearColor(1/255.0, 11/255.0, 25/255.0, 1.0);
     glClear(GL_COLOR_BUFFER_BIT);
     glBegin( GL_QUADS );
              glColor3f( 3/255.0, 33/255.0, 74/255.0 );
              glVertex2f( -1, 1 );
              glVertex2f( 1, 1 );
              glVertex2f( 1, -1 );
              glVertex2f( -1, -1 );

              glColor3f(5/255.0, 55/255.0, 123/255.0);
              glVertex2f( -0.95, 0.95 );
              glVertex2f( 0.95, 0.95 );
              glVertex2f( 0.95, -0.95 );
              glVertex2f( -0.95, -0.95 );
     glEnd;
     // Смещение игрока на stepx относительно текущей позиции при перемещение влево или вправо
     posx1 := posx1+stepx;
     posx2 := posx2+stepx;
     // Проверка пересечения игрока со стеной, если пересечение происходит, то позиционируем игрока на краю стены
     if posx1>0.95 then
     begin
          posx1:=0.95;
          posx2:=0.90;
     end;
     if posx2<-0.95 then
     begin
          posx1:=-0.90;
          posx2:=-0.95;
     end;
     // Рисуем игрока
     glColor3f( 183/255.0, 183/255.0, 183/255.0 );
     glRectf(posx1, player_rect[2], posx2, player_rect[4]);

     glutSwapBuffers();
end;

procedure PressKey(key: Integer; x,y: Integer); cdecl;
begin
     keySpecialStates[key] := true;
end;

procedure ReleaseKey(key: Integer; x,y: Integer); cdecl;
begin
     keySpecialStates[key] := false;
end;

procedure IdleCallback(); cdecl;
begin
     glutPostRedisplay();
end;

procedure Init;
var
  i: Integer;
begin
     stepx := 0.0;
     player_rect[1] := -0.025;
     player_rect[2] := -0.85;
     player_rect[3] := 0.025;
     player_rect[4] := -0.9;

     posx1 := player_rect[1];
     posx2 := player_rect[3];

     for i:=0 to 256 do
     begin
       keySpecialStates[i] := false;
     end;
end;

procedure main();
begin
     glutInit(@argc, argv);
     glutInitWindowSize(AppWidth, AppHeight);
     glutInitWindowPosition(10,10);
     glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);

     glutCreateWindow('TestApp');
     Init;

     glutReshapeFunc(@ReshapeCallback);
     glutDisplayFunc(@DisplayCallback);

     glutSpecialFunc(@PressKey);
     glutSpecialUpFunc(@ReleaseKey);
     glutIdleFunc(@IdleCallback);

     glutMainLoop();
end;

begin
     main();
end.

program ogl_p2;

uses gl,glut,glu;

const
  AppWidth = 640;
  AppHeight = 480;
  n = 4;

type
  rectIndexArr = array[1..n] of Glfloat;
var
  player_rect: rectIndexArr;
  posx1, posx2: Real;
  stepx: Real;

procedure ReshapeCallback(width, height: Integer); cdecl;
begin

end;

procedure DisplayCallback; cdecl;
begin
     glClearColor(1/255.0, 11/255.0, 25/255.0, 1.0);
     glClear(GL_COLOR_BUFFER_BIT);
     glBegin( GL_QUADS );
              glColor3f( 3/255.0, 33/255.0, 74/255.0 );
              glVertex2f( -1, 1 );
              glVertex2f( 1, 1 );
              glVertex2f( 1, -1 );
              glVertex2f( -1, -1 );

              glColor3f(5/255.0, 55/255.0, 123/255.0);
              glVertex2f( -0.95, 0.95 );
              glVertex2f( 0.95, 0.95 );
              glVertex2f( 0.95, -0.95 );
              glVertex2f( -0.95, -0.95 );
     glEnd;

     posx1 := posx1+stepx;
     posx2 := posx2+stepx;

     if posx1>0.95 then
     begin
          posx1:=0.95;
          posx2:=0.90;
     end;
     if posx2<-0.95 then
     begin
          posx1:=-0.90;
          posx2:=-0.95;
     end;

     glColor3f( 183/255.0, 183/255.0, 183/255.0 );
     glRectf(posx1, player_rect[2], posx2, player_rect[4]);

     glutSwapBuffers();
end;

procedure SpecialKeyboardCallback(key: Integer; x,y: Integer); cdecl;
begin
     case key of
          GLUT_KEY_F1: Halt(0);
          GLUT_KEY_LEFT:
          begin
               stepx := -0.025;
          end;
          GLUT_KEY_RIGHT:
          begin
               stepx := 0.025;
          end;
     end;
     glutPostRedisplay();
end;

procedure SpecialKeyboardUpCallback(key: Integer; x,y: Integer); cdecl;
begin
     stepx := 0.0;

     glutPostRedisplay();

end;

procedure IdleCallback(); cdecl;
begin
     glutPostRedisplay();
end;

procedure Init;
begin
     stepx := 0.0;
     player_rect[1] := -0.025;
     player_rect[2] := -0.85;
     player_rect[3] := 0.025;
     player_rect[4] := -0.9;

     posx1 := player_rect[1];
     posx2 := player_rect[3];
end;

procedure main();
begin
     glutInit(@argc, argv);
     glutInitWindowSize(AppWidth, AppHeight);
     glutInitWindowPosition(10,10);
     glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);

     glutCreateWindow('TestApp');
     Init;

     glutReshapeFunc(@ReshapeCallback);
     glutDisplayFunc(@DisplayCallback);

     glutSpecialFunc(@SpecialKeyboardCallback);
     glutSpecialUpFunc(@SpecialKeyboardUpCallback);
     glutIdleFunc(@IdleCallback);

     glutMainLoop();
end;

begin
     main();
end.

program ogl_p1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, gl, glut;

var ScreenWidth, ScreenHeight: Integer;
const
  AppWidth = 640;
  AppHeight = 480;

procedure resize(width, height: LongInt); cdecl;
var
  ar: Real;
begin
     ar := width div height;

     glViewport(0, 0, width, height);
     glMatrixMode(GL_PROJECTION);
     glLoadIdentity;
     glFrustum(-ar,ar,-1.0,1.0,2.0,100.0);

     glMatrixMode(GL_MODELVIEW);
     glLoadIdentity;
end;

procedure display; cdecl;
begin
     glutSwapBuffers();
end;

procedure key(key: Byte; x,y: Integer); cdecl;
var
   mode: Integer;
begin
     WriteLn('Key = ', key);
     case key of
          ord('q'), 27:
            begin
                 Halt(0);
                 Exit;
            end;
          ord('r'):
            begin
                 mode:=glutGetModifiers();
                 if (mode <> 0) then
                 begin
                      case mode of
                           1:
                             begin
                    WriteLn('SHIFT key ', mode);
                    Exit;
                             end;
                           2:
                             begin
                    WriteLn('CTRL key ', mode);
                    Exit;
                             end;
                           4:
                             begin
                    WriteLn('ALT key ', mode);
                    Exit;
                             end;
                      end;
                      mode:=0;
                 end;
                 Exit;
            end;
     end;
     glutPostRedisplay();
end;

procedure skey(key: Integer; x,y: Integer); cdecl;
begin
     case key of
          GLUT_KEY_F1: Halt(0);
          GLUT_KEY_LEFT: WriteLn('GLUT_KEY_LEFT ', key);
          GLUT_KEY_RIGHT: WriteLn('GLUT_KEY_RIGHT ', key);
          GLUT_KEY_UP: WriteLn('GLUT_KEY_UP ', key);
          GLUT_KEY_DOWN: WriteLn('GLUT_KEY_DOWN ', key);
     end;
     glutPostRedisplay();
end;

procedure idle(); cdecl;
begin
     glutPostRedisplay();
end;

procedure main();
begin
     glutInit(@argc, argv);
     glutInitWindowSize(AppWidth, AppHeight);
     glutInitWindowPosition(10,10);
     glutInitDisplayMode(GLUT_RGB or GLUT_DOUBLE or GLUT_DEPTH);

     glutCreateWindow('TestApp');

     glutReshapeFunc(@resize);
     glutDisplayFunc(@display);

     glutKeyboardFunc(@key);
     glutSpecialFunc(@skey);

     glutMainLoop();
end;

begin
     main();
end.

program sdl_p4;

{$mode objfpc}{$H+}

uses sdl, sdl_ttf, gl, glu;

var
  screen :pSDL_SURFACE;
  loopstop: boolean = FALSE;
  event: pSDL_EVENT;

  font : pointer;
  sFont: pSDL_SURFACE;
  color: pSDL_COLOR;

  text: array[0..3] of String = ('aaaaaaaaaaaa',
                    'bbbbbbbbbbbb',
                    'cccccccccccc',
                    'dddddddddddd');
  b: integer;
  cur: integer;
  all: String;
  i,i1: Integer;

procedure addchar;
begin
  if cur = 4 then Exit;
  if length(all)=length(text[cur]) then
  begin
       //writeln(length(all));
       //writeln(length(text[cur]));
       inc(cur);
       all:='';
       Exit;
  end;

  if cur<4 then
  begin
    all := all + text[cur][length(all)+1];
    //writeln(all);
  end;
end;

procedure RenderText(const message : PChar; r : GLubyte; g : GLubyte; b : GLubyte; x : Integer; y : Integer; size : Integer);
var
  texture: GLuint;
begin
    glGenTextures(1, @texture);
    glBindTexture(GL_TEXTURE_2D, texture);

    font := TTF_OpenFont('cour.ttf', size);

    new(color);

    color^.r:=r;
    color^.g:=g;
    color^.b:=b;

    sFont := TTF_RenderText_Blended(font, message, color^);

    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
    glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, sFont^.w, sFont^.h, 0, GL_RGBA, GL_UNSIGNED_BYTE, sFont^.pixels);

    glBegin(GL_QUADS);
     glTexCoord2f(0,1-0); glVertex2f(x, y);
     glTexCoord2f(1,1-0); glVertex2f(x + sFont^.w, y);
     glTexCoord2f(1,1-1); glVertex2f(x + sFont^.w, y + sFont^.h);
     glTexCoord2f(0,1-1); glVertex2f(x, y + sFont^.h);
    glEnd();

    glDeleteTextures(1, @texture);
    Dispose(color);

    TTF_CloseFont(font);
    SDL_FreeSurface(sFont);
end;

procedure DrawGLScene();
  var
    i: integer;
  begin

    glClear(GL_COLOR_BUFFER_BIT);

    glDisable(GL_DEPTH_TEST);
    glEnable(GL_TEXTURE_2D);
    glEnable(GL_BLEND);
    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

    inc(B);
    if b=20 then addchar;
    if b>20 then b:=0;

    //addchar;

    for i := 0 to cur - 1 do
    begin
         if cur = 4 then Exit;
         RenderText(PChar(text[i]), 255, 255, 255, 0, 448 - i*32, 32);
    end;

    if Length(all) <> 0 then RenderText(PChar(all), 255, 255, 255, 0, 448 - cur*32, 32);

    glDisable(GL_BLEND);
    glDisable(GL_TEXTURE_2D);
    glEnable(GL_DEPTH_TEST);
  end;
var
   m_Width, m_height: Integer;
   frame_rate: Integer = 30;
   frame_ms: Integer;
   start_ms: Integer;
   end_ms: Integer;
   delay_ms: Integer;

begin
     SDL_Init(SDL_INIT_VIDEO);

     screen := SDL_SetVideoMode(640, 480, 0, SDL_OPENGL);
     if screen = NIL then Halt;

     if Ttf_Init = -1 then Halt;

    glMatrixMode(GL_MODELVIEW);
    glPushMatrix();
    glLoadIdentity();

    m_Width := screen^.w;
    m_Height := screen^.h;

    gluOrtho2D(0, m_Width, 0, m_Height);
    glMatrixMode(GL_PROJECTION);
    glPushMatrix();
    glLoadIdentity();

     b:=0;
     cur:=0;
     all:='';

     new(event);

     frame_ms := 1000 div frame_rate;

     while loopstop = FALSE do
     begin

          if SDL_PollEvent(event) = 1 then
          begin
               case event^.type_ of
                    SDL_KEYDOWN:
                    begin
                         if event^.key.keysym.sym = 27 then loopstop := TRUE;
                    end;
                    SDL_QUITEV:
                    begin
                         loopstop := TRUE;
                    end;
               end;
          end;
          start_ms := sdl_getticks();
          DrawGLScene;
          end_ms := sdl_getticks();

          delay_ms := (end_ms - start_ms);

          writeln(delay_ms);

          SDL_GL_SWAPBUFFERS;

     end;

     Dispose(event);
     SDL_FreeSurface(screen);
     TTF_QUIT;
     SDL_QUIT;
end.