|
共有评论6条
当前显示最后6条评论
|
| 99koo |
2006/8/8 11:24:02 |
| 雷锋级牛人，顶一个~ |
| wqyfavor |
2006/8/8 11:27:36 |
这个程序是在Delphi10下完成的，要想在Delphi7或以下编译，必需这么做
把Unit2中的ProcessView过程中的
gluProject(WorldPos[1], WorldPos[2], WorldPos[3], @modelMatrix, @projMatrix, @viewport, &WndX, &WndY, &WndZ);
三个&去掉 |
| arcan |
2006/8/8 19:34:17 |
| 谢谢，学习中 |
| coolnerd |
2006/8/9 20:31:39 |
首先感谢作者共享自己的成果！
感觉加上鼠标控制旋转更舒服些。。。
...
var
glb_oldX,glb_oldY:Integer; //新加两个全局变量定义
...
//在下面的事件中添加控制
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if BallCtrl.GameOn = False then exit;
BallCtrl.BallAt(X, Y);
BallCtrl.MouseMoveOnABall;
//新加鼠标右键控制旋转
if (Shift=[ssRight]) then begin
BallCtrl.ChangeXDeg(sign(glb_oldY-Y));
BallCtrl.ChangeYDeg(sign(glb_oldX-X));
glb_oldX:=X;
glb_oldY:=Y
end;
end; |
| kinneng |
2006/8/9 23:34:58 |
| 游戏就是好东西，下载 |
| h_1221 |
2007/8/31 14:06:45 |
| 效果做的不错，但是后手永远会赢。如果改成4*4*4应该可以。 |
| 我要发表评论 |
查看全部评论 |
|
