社区
C++ Builder
帖子详情
谁用bcb搞过三维表面模拟,在线等待!
zhuxiaozhong
2003-09-15 10:38:53
谁用bcb搞过三维表面模拟,说说过程或原理吧!
有没有用TSCENE控件实现?
...全文
77
2
打赏
收藏
谁用bcb搞过三维表面模拟,在线等待!
谁用bcb搞过三维表面模拟,说说过程或原理吧! 有没有用TSCENE控件实现?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zhuxiaozhong
2003-09-19
打赏
举报
回复
描述原理和功能啊
xizhouhawk
2003-09-17
打赏
举报
回复
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
HDC ghDC;
ghDC=GetDC(Handle);
//if(ghDC=NULL)
// return false;
int PixelFormatIndex;
PIXELFORMATDESCRIPTOR PixelFormat={
sizeof(PIXELFORMATDESCRIPTOR),
1,
PFD_DRAW_TO_WINDOW |
PFD_SUPPORT_OPENGL,
PFD_TYPE_RGBA,
8,
0,0,0,0,0,0,0,0,0,0,0,0,0,
16,
0,0,
PFD_MAIN_PLANE,
0,0,0,0,
};
if((PixelFormatIndex=ChoosePixelFormat(ghDC,&PixelFormat))==0)
{ShowMessage("choose fali");
}
if((SetPixelFormat(ghDC,PixelFormatIndex,&PixelFormat))==0)
{ShowMessage("set pixel failed");
}
HGLRC ghRC;
ghRC=wglCreateContext(ghDC);
wglMakeCurrent(ghDC,ghRC);
glClearColor(0.0,0.0,0.0,0.0);
glClear(GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT);
glEnable(GL_DEPTH_TEST);
glMatrixMode(GL_PROJECTION);
float w,h,Aspect;
w=Width;
h=Height;
if(h==0)
h=1;
gluPerspective(45.0,(GLfloat)w/(GLfloat)h,1.0,7.0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
GLfloat aspect;
glViewport(0,0,Width,Height);
aspect = (GLfloat)Width/Height;
//设置投影矩阵为当前矩阵
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
//设置投影方式为透视投影
gluPerspective(45.0,aspect,1.0,7.0);
//设置模型视矩阵为当前矩阵
glMatrixMode(GL_MODELVIEW);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{ PAINTSTRUCT ps;
BeginPaint(Handle,&ps);
GLUquadricObj *obj;
//设置模型视矩阵为当前矩阵
glMatrixMode(GL_MODELVIEW);
//初始化模型视矩阵
glLoadIdentity();
//设置视点
glTranslated(0,0,-5.0);
//设置当前颜色为灰色
glColor3f(1.0,0.0,1.0);
obj = gluNewQuadric();
//画一个线状的球体
gluQuadricDrawStyle(obj,GLU_LINE);
gluSphere(obj,1.5,50,20);
//设置当前颜色为蓝色
glColor3f(1.0,1.0,0.0);
obj = gluNewQuadric();
//绕X轴旋转30度
glRotatef(30.0,1.0,0.0,0.0);
//画一个空心圆柱体
gluQuadricDrawStyle(obj,GLU_LINE);
gluCylinder(obj,0.1,0.3,0.6,12,12);
glFlush(); //OpenGL图形绘制
EndPaint(Handle,&ps);
iphlpapi.h和iphlpapi.lib下载)
在编译程序时出现找不到iphlpapi.h文件, 找了好久才找到,提供给大家!
最强悍的 VC VB反编译工具 Hex-Rays
最强悍的反编译工具 Hex-Rays。可以反编译 VB VC
BCB
Delphi 等等一切 x86/x64 代码为 C 代码。密码参见内附说明文件。我写了个简单的介绍 http://blog.caozhongyan.com/article.asp?id=19
BCB
6中使用sqlite
自从网友推荐我用SQLite以后,我就从网上学习
BCB
6使用SQLite的用法。网上找到的方法总结为两个:一个利用
BCB
自带的implib软件,将SQLite网站提供的DLL生成lib文件,将lib、h、dll三个文件应用到自编的软件上;另一...
BCB
6.0,Ehlib等组件安装
主要是写给初用
BCB
的人,不知道第三方控件怎么安装,举一个Ehlib的例子,红字直接步骤。 其实如果大家可以翻墙,就可以看到
BCB
的更多资料,如果可以读一下英文文档,猜猜意思大概也能安装了,欢迎下方留言。 1.在...
用
BCB
5的打包程序打包
BCB
6
用
BCB
5的打包程序打包
BCB
6(本文仅供CSDN与CCRUN使用,其他使用者请作者联系)当我们用
BCB
做好了一个程序后,下一步要做的就的打包程序,发布给用户了。单从打包程序的角度来讲,我们的选择会有很多,就
BCB
来说,每...
C++ Builder
13,822
社区成员
102,680
社区内容
发帖
与我相关
我的任务
C++ Builder
C++ Builder相关内容讨论区
复制链接
扫一扫
分享
社区描述
C++ Builder相关内容讨论区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章