freepascal.compiler/packages/libndsfpc/examples/graphics/3D/nehe/lesson04/lesson04.pp

(****************************************
 *    NDS NeHe Lesson 04          *
 *    Author: Dovoto          *
 ****************************************)

program Lesson04;

{$mode objfpc}

uses
  ctypes, nds9;

var
  rtri: cfloat = 0.0;     // Angle For The Triangle ( NEW )
  rquad: cfloat = 0.0;    // Angle For The Quad ( NEW )


function DrawGLScene(): boolean;
begin
  glLoadIdentity();                 // Reset The Current Modelview Matrix
  glTranslatef(-1.5,0.0,-6.0);            // Move Left 1.5 Units And Into The Screen 6.0
  glRotatef(rtri,0.0,1.0,0.0);            // Rotate The Triangle On The Y axis ( NEW )
  glColor3f(1, 1, 1);                 // set the vertex color
  glBegin(GL_TRIANGLES);                // Drawing Using Triangles
    glColor3f(1.0,0.0,0.0);           // Set The Color To Red
    glVertex3f( 0.0, 1.0, 0.0);         // Top
    glColor3f(0.0,1.0,0.0);           // Set The Color To Green
    glVertex3f(-1.0,-1.0, 0.0);         // Bottom Left
    glColor3f(0.0,0.0,1.0);           // Set The Color To Blue
    glVertex3f( 1.0,-1.0, 0.0);         // Bottom Right
  glEnd();                      // Finished Drawing The Triangle
  glLoadIdentity();                 // Reset The Current Modelview Matrix
  glTranslatef(1.5,0.0,-6.0);           // Move Right 3 Units
  glRotatef(rquad,1.0,0.0,0.0);         // Rotate The Quad On The X axis ( NEW )
  glColor3f(0.5,0.5,1.0);             // Set The Color To Blue One Time Only
  glBegin(GL_QUADS);                  // Draw A Quad
    glVertex3f(-1.0, 1.0, 0.0);         // Top Left
    glVertex3f( 1.0, 1.0, 0.0);         // Top Right
    glVertex3f( 1.0,-1.0, 0.0);         // Bottom Right
    glVertex3f(-1.0,-1.0, 0.0);         // Bottom Left
  glEnd();                      // Done Drawing The Quad
  rtri := rtri + 0.9;                     // Increase The Rotation Variable For The Triangle ( NEW )
  rquad := rquad - 0.75;                    // Decrease The Rotation Variable For The Quad ( NEW )
  result := true;                   // Keep Going
end;

var
  keys: integer;

begin
  // Setup the Main screen for 3D 
  videoSetMode(MODE_0_3D);
  
  // initialize the geometry engine
  glInit();
  
  // enable antialiasing
  glEnable(GL_ANTIALIAS);

  // setup the rear plane
  glClearColor(0,0,0,31); // BG must be opaque for AA to work
  glClearPolyID(63); // BG must have a unique polygon ID for AA to work
  glClearDepth($7FFF);

  // Set our viewport to be the same size as the screen
  glViewPort(0,0,255,191);

  

  glMatrixMode(GL_PROJECTION);
  glLoadIdentity();
  gluPerspective(70, 256.0 / 192.0, 0.1, 100);


  //ds specific, several attributes can be set here 
  glPolyFmt(POLY_ALPHA(31) or POLY_CULL_NONE);
  
  // Set the current matrix to be the model matrix
  glMatrixMode(GL_MODELVIEW); 
  
  while true do
  begin
    // draw the scene
    DrawGLScene();
    
    // flush to screen  
    glFlush(0);
    
    // wait for the screen to refresh
    swiWaitForVBlank();
    scanKeys();
    keys := keysDown();
    if (keys and KEY_START) <> 0 then break;
  end;
end.