我是用BCB的OPENGL所寫出來的程式
但是很奇怪~~我跑是可以跑~~但是卻不能變成網格
只能是一個曲面而已
所以想請各位幫我看一下應該怎麼改

void __fastcall TForm1::GLPanel1Setup(TObject *Sender)
{
glShadeModel(GL_SMOOTH);
glClearColor(0.0f, 0.0f, 0.0f, 0.5f);
glClearDepth(1.0f);
glEnable(GL_DEPTH_TEST);
glDepthFunc(GL_LEQUAL);
glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GLPanel1Resize(TObject *Sender)
{
int height=GLPanel1->Height, width=GLPanel1->Width;
glViewport(0, 0, width, height);
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
gluPerspective(45.0f,(GLfloat)width/(GLfloat)height,0.1f,500.0f);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GLPanel1Render(TObject *Sender)
{
glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
glLoadIdentity();
glTranslatef(0.0f,0.0f,13.0f);
glColor4f(1.0,0.0,0.0,0.5);
glBegin(GL_POLYGON);
glVertex3f(-1.7f,-1.6f,-19.0f);
glVertex3f(-1.9f,-1.2f,-21.0f);
glVertex3f(-3.3f,-1.3f,-35.0f);
glVertex3f(-2.6f,-0.9f,-38.0f);
glVertex3f(-1.2f,-1.1f,-25.0f);
glVertex3f(-0.9f,-1.6f,-19.0f);
glVertex3f(-1.1f,-1.3f,-17.0f);
glEnd();
//=====================
if(ok)
{
switch(draw_mode)
{
case dFill: glPolygonMode(GL_BACK,GL_FILL); glBegin( GL_QUADS ); break;
case dGird: glPolygonMode(GL_BACK,GL_LINE); glBegin( GL_QUADS ); break;
default: glPolygonMode(GL_BACK,GL_FILL); glBegin( GL_QUADS ); break;
}
}
//=====================
GLPanel1->SwapBuffers();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
switch(RadioGroup1->ItemIndex)
{
case 0: draw_mode=dFill; break;
case 1: draw_mode=dGird; break;
default: draw_mode=dFill; break;
}
GLPanel1->Repaint();
}

編輯記錄