Tags:    delphi
Denne funktion kan vi erstatte med vores tidligere glTexImage2D(). Yderligere skal vi ændre vores gl_Nearest parametere i vores to glTexParameteri() til MipMap parametere: gl_Linear_Mipmap_Nearest eller gl_Linear_Mipmap_Linear. I stedet for at slette vores gamle kode kan vi udvide vores LoadTexture funktion med en Boolean. Hvis Boolean er True, vil der blive generet MipMaps ellers vil der blive anvendt vores standard projektering.

function LoadTexture(FileName : string; MipMap : Boolean) : Integer;
var
  Bitmap : TBitmap;
  X, Y, I : Integer;
  A : array of TRGB;
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile(FileName);

  SetLength(A,0);
  for Y := Bitmap.Height-1 downto 0 do
  for X := 0 to Bitmap.Width-1 do
  begin
    SetLength(A,High(A)+2);
    I := ColorToRGB(Bitmap.Canvas.Pixels[X,Y]);
    A[High(A)].Red   := GetRValue(I);
    A[High(A)].Green := GetGValue(I);
    A[High(A)].Blue  := GetBValue(I);
  end;

  glGenTextures(1, I);
  glBindTexture(gl_Texture_2D, I);

  glTexEnvi(gl_Texture_Env, gl_Texture_Env_Mode, gl_Modulate);
  glTexParameteri(gl_Texture_2D, GL_Texture_Wrap_S, gl_Repeat);
  glTexParameteri(gl_Texture_2D, GL_Texture_Wrap_T, gl_Repeat);

  if MipMap then
  begin
    //MipMapping
    glTexParameteri(gl_Texture_2D, gl_Texture_Mag_Filter, gl_Linear_MipMap_Nearest);
    glTexParameteri(gl_Texture_2D, gl_Texture_Min_Filter, gl_Linear_Mipmap_Linear);
    gluBuild2DMipmaps(gl_Texture_2D, 3, Bitmap.Width, Bitmap.Height, gl_RGB, gl_Unsigned_Byte, A);
  end
  else
    begin
      //Standard
      glTexParameteri(gl_Texture_2D, gl_Texture_Mag_Filter, gl_Nearest);
      glTexParameteri(gl_Texture_2D, gl_Texture_Min_Filter, gl_Nearest);
      glTexImage2D(gl_Texture_2D, 0, 3, Bitmap.Width, Bitmap.Height, 0, gl_RGB, gl_Unsigned_Byte, A);
    end;

  glEnable(gl_Texture_2D);

  Bitmap.Free;

  //Retunere ID
  Result := I;
end;

I vores FormCreate procedure kan vi spørge efter hvilken form for mapping der skal anvendes ved at bruge MessageDlg().

procedure TForm1.FormCreate(Sender: TObject);
var
  B : Boolean;
begin
  Context := SetupContext(Form1);

  if MessageDlg('Anvend MipMapping?',mtCustom,[mbYes,mbNo],0) = mrYes then
  B := True
  else
    B := False;

  Gulv_ID := LoadTexture('C:\\Gulv.Bmp',B);
  Vaeg_ID := LoadTexture('C:\\Væg.Bmp',B);
  Loft_ID := LoadTexture('C:\\Loft.Bmp',B);

  //Skjuler cursoren
  ShowCursor(False);

  //ShowMessage(glGetString(gl_Vendor));
  Application.OnIdle := Idle;
end;

Prøv at kompile og se selv forskellen.


Standard


MipMap

OpenGL er også i stand til at shade vores geometri, så det ser ud som om der findes lyskilder i vores 3D verden. OpenGL kan beregne op til 8 lyskilder ad gangen. Umiddelbart lyder det ikke af alverden. Men hvis du ser på nogle af de mange spil der findes på markedet, er det faktisk sjældent at du kan se mere end 8 lyskilder ad gangen på din skærm. Når vi snakker om lyskilder, i en kunstigt skabt 3D verden, er det meget naturligt at vi også snakker om Normals. De to er tæt knyttet til hinanden. Normals er en vektor der bliver defineret med OpenGL funktionen: glNormal3f(). Denne funktion forventer tre koordinater (X,Y,Z) ligesom vores glVertex3f(). OpenGL bruger vores normal til at beregne en korrekt shading af en overflade i forhold til lyskilden. Det er derfor vigtigt at fokusere på vinklen mellem vores normal og dens flade. Som standard tager OpenGL ikke højde for, hvor lange vores normals er. Vi kan derfor gøre vores normals så lange som vi har lyst til. Men vi kan gøre OpenGL hurtigere til at beregne shadingen, hvis vores normals er kun 1 unit lang. Alt vi skal gøre er at fortælle OpenGL at vi vores normals skal normaliseres med glEnable(gl_Normalze), og selvfølig gøre vore normals 1 unit lang. Lad os derfor implementere vores normals til vores geometri.

procedure TForm1.FormPaint(Sender: TObject);
begin
  glClearColor(0,0,0,0);

  glClear(gl_Color_Buffer_Bit or gl_Depth_Buffer_Bit);

  glEnable(gl_Depth_Test);

  //Normalisere vores normals
  glEnable(gl_Normalize);

  glPushMatrix;

  with Rotation do
  begin
    glRotatef(X,1,0,0);
    glRotatef(Y,0,1,0);
    glRotatef(Z,0,0,1);
  end;

  with Translation do
  glTranslatef(X,Y,Z);

  //Aktivere mit gulv texture
  glBindTexture(gl_Texture_2D, Gulv_ID);

  //Tegner mit gulv
  glBegin(gl_Quads);

  //Definere en normal for gulvet, der peger lodret op ad!
  glNormal3f(0, 1, 0);

  glTexCoord2f(0,4);
  glVertex3f(-50, -3, -50);
  glTexCoord2f(0,0);
  glVertex3f(-50, -3, +50);
  glTexCoord2f(4,0);
  glVertex3f(+50, -3, +50);
  glTexCoord2f(4,4);
  glVertex3f(+50 ,-3 ,-50);
  glEnd;

  //Aktivere mit væg texture
  glBindTexture(gl_Texture_2D, Vaeg_ID);

  //Tegner min væg
  glBegin(gl_Quads);

  //DFefinere en normal for væggen, der peger imod os (ud fra væggen) 
  glNormal3f(0, 0, 1);

  glTexCoord2f(0,1);
  glVertex3f(-50, -3, -50);
  glTexCoord2f(0,0);
  glVertex3f(-50, +22, -50);
  glTexCoord2f(4,0);
  glVertex3f(+50, +22, -50);
  glTexCoord2f(4,1);
  glVertex3f(+50, -3, -50);
  glEnd;

  //Aktivere mit loft texture
  glBindTexture(gl_Texture_2D, Loft_ID);

  //Tegner mit loft
  glBegin(gl_Quads);

  //Definere en normal for loftet, der peger ned mod gulvet
  glNormal3f(0,-1, 0);

  glTexCoord2f(0,4);
  glVertex3f(-50, +22, -50);
  glTexCoord2f(0,0);
  glVertex3f(-50, +22, +50);
  glTexCoord2f(4,0);
  glVertex3f(+50, +22, +50);
  glTexCoord2f(4,4);
  glVertex3f(+50 ,+22 ,-50);
  glEnd;

  glPopMatrix;


  SwapBuffers(Context.DeviceContext);
end;

Hvad synes du om denne artikel? Giv din mening til kende ved at stemme via pilene til venstre og/eller lægge en kommentar herunder.

Del også gerne artiklen med dine Facebook venner:  

Karma barometer (30 dage)

IT jobs | Kontakt | Om Udvikleren.dk | Om karma | IT nyheds arkiv | Annoncering

X