OpenGLでテクスチャマッピング (ID:25084)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

質問させてください。
OpenGLでテクスチャマッピングを実現したくunitにGL.pasを追加して
数サイトからのサンプルを参考に作ってみたもののうまくマッピングできません。
どこに問題があるのか皆さんお助けを…。
以下ソース抜粋（少々長いです）

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GL, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private 宣言 }
    DC: HDC;   {デバイスコンテキスト}
    RC: HGLRC; {レンダリングコンテキスト}

public
    { Public 宣言 }

procedure disp;
    procedure InitDraw;

end;

const
  TEXSIZE = 64;

var
  Form1: TForm1;
  texName: string = 'test';
  bits: array[0..TEXSIZE - 1, 0..TEXSIZE - 1, 0..2] of GLubyte;
  pfd : Windows.TPixelFormatDescriptor = (
    nSize:           sizeof(TPixelFormatDescriptor);           {構造体のサイズ}
    nVersion:        1;                       {構造体のバージョン番号、現在は1}
    dwFlags:         PFD_DRAW_TO_WINDOW                            {特性フラグ}
                     or PFD_SUPPORT_OPENGL
                     or PFD_DOUBLEBUFFER;
    iPixelType:      PFD_TYPE_RGBA;                    {ピクセルのカラーデータ}
    cColorBits:      24;                                         {色のビット数}
    cRedBits:        0;                          {RGBAカラーバッファのビット数}
    cRedShift:       0;            {RGBAカラーバッファのビット用シフトカウント}
    cGreenBits:      0;
    cGreenShift:     0;
    cBlueBits:       0;
    cBlueShift:      0;
    cAlphaBits:      0;
    cAlphaShift:     0;
    cAccumBits:      0;    {アキュムレーションバッファのピクセル当りのビット数}
    cAccumRedBits:   0;
    cAccumGreenBits: 0;
    cAccumBlueBits:  0;
    cAccumAlphaBits: 0;
    cDepthBits:      32;           {デプスバッファ    のピクセル当りのビット数}
    cStencilBits:    0;            {ステンシルバッファのピクセル当りのビット数}
    cAuxBuffers:     0;                    {補助バッファ   Win32上は未サポート}
    iLayerType:      PFD_MAIN_PLANE;       {Win32上ではPFD_MAIN_PLANE 以外不可}
    bReserved:       0;                    {必ず 0}
    dwLayerMask:     0;                    {レイヤマスク   Win32上は未サポート}
    dwVisibleMask:   0;                    {ビジブルマスク Win32上は未サポート}
    dwDamageMask:    0;                    {ダメージマスク Win32上は未サポート}
  );

implementation

{$R *.dfm}
procedure TForm1.InitDraw;
var ratio : GLdouble; {画面比率 計算結果格納用}
begin

glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity();

ratio := ClientWidth / ClientHeight;
  if (ClientWidth <= ClientHeight) then
    glOrtho(-1.0, 1.0, -1.0 / ratio, 1.0 / ratio, -1.0, 1.0)
  else
    glOrtho(-1.0 * ratio, 1.0 * ratio, -1.0, 1.0, -1.0, 1.0);

glMatrixMode(GL_MODELVIEW);

glEnable(GL_TEXTURE_2D);

//GL.pasでは glGenTextures: procedure(n: GLsizei; textures: PGLuint); stdcall;
	glGenTextures(1 , @texName[1]);
  //GL.pasでは glBindTexture: procedure(target: GLenum; texture: GLuint); stdcall;
	glBindTexture(GL_TEXTURE_2D , GLuint(@texName[1]));

glTexImage2D(
		GL_TEXTURE_2D , 0 , 3 , TEXSIZE , TEXSIZE ,
		0 , GL_RGB , GL_UNSIGNED_BYTE , @bits[0][0][0]
	);
end;

procedure TForm1.disp;
begin
	glClear(GL_COLOR_BUFFER_BIT);
  //GL.pasでは glBindTexture: procedure(target: GLenum; texture: GLuint); stdcall;
	glBindTexture(GL_TEXTURE_2D , GLuint(@texName[1]));

glBegin(GL_POLYGON);
    //サンプルでは左回りになっていました
		glTexCoord2f(0 , 0); glVertex2f(-0.9 , -0.9);
		glTexCoord2f(0 , 1); glVertex2f(-0.9 , 0.9);
		glTexCoord2f(1 , 1); glVertex2f(0.9 , 0.9);
		glTexCoord2f(1 , 0); glVertex2f(0.9 , -0.9);

{これは右回り
		glTexCoord2f(0 , 0); glVertex2f(-0.9 , -0.9);
		glTexCoord2f(1 , 0); glVertex2f(0.9 , -0.9);
		glTexCoord2f(1 , 1); glVertex2f(0.9 , 0.9);
		glTexCoord2f(0 , 1); glVertex2f(-0.9 , 0.9);
    }
	glEnd();
	glFlush();
  SwapBuffers(DC);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Interval初期設定は100
  wglMakeCurrent(DC, RC);
  glRotatef(1 , 0.5 , 1 , 0.25);
  InitDraw;
  disp;
  wglMakeCurrent(DC, 0);
  Timer1.Interval := 50;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: integer;
  r: real;
  nPixelFormat : integer;
  success : boolean;
begin

//テクスチャ配列生成
	for i := 0 to TEXSIZE - 1 do begin
    for j := 0 to TEXSIZE - 1 do begin
      r := (i * $FF) / TEXSIZE;
			bits[i][j][0] := Trunc(r);
			bits[i][j][1] := Trunc((( j * $FF ) / TEXSIZE));
			bits[i][j][2] := Trunc($100 - r);

end;
  end;

//OpenGL初期化
  DC := GetDC(Handle);
  nPixelFormat := ChoosePixelFormat(DC, @pfd);
  success := SetPixelFormat(DC, nPixelFormat, @pfd);
  RC := wglCreateContext(DC);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  wglDeleteContext(RC);      
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る