`
deepfuture
  • 浏览: 4321168 次
  • 性别: Icon_minigender_1
  • 来自: 湛江
博客专栏
073ec2a9-85b7-3ebf-a3bb-c6361e6c6f64
SQLite源码剖析
浏览量:79301
1591c4b8-62f1-3d3e-9551-25c77465da96
WIN32汇编语言学习应用...
浏览量:68099
F5390db6-59dd-338f-ba18-4e93943ff06a
神奇的perl
浏览量:101182
Dac44363-8a80-3836-99aa-f7b7780fa6e2
lucene等搜索引擎解析...
浏览量:280241
Ec49a563-4109-3c69-9c83-8f6d068ba113
深入lucene3.5源码...
浏览量:14534
9b99bfc2-19c2-3346-9100-7f8879c731ce
VB.NET并行与分布式编...
浏览量:65149
B1db2af3-06b3-35bb-ac08-59ff2d1324b4
silverlight 5...
浏览量:31183
4a56b548-ab3d-35af-a984-e0781d142c23
算法下午茶系列
浏览量:45067
社区版块
存档分类
最新评论

perl-opengl-鼠标事件与球体视角

阅读更多
#!/usr/bin/perl -w
use strict;
use warnings;
use OpenGL qw/ :all /;
use OpenGL::Config;   

#!/usr/bin/perl -w
use strict;
use warnings;
use OpenGL qw/ :all /;
use OpenGL::Config;   


my $a=rand(1);
my $b=rand(1);
my $c=rand(1);
my $look=0.1;
my $lookx=0.1;
my $looky=0.1;

glutInit();
glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE);
glutInitWindowPosition(100,100);
glutInitWindowSize(400,400);
glutCreateWindow("my  OpenGL program");
glClearColor(0,0,0,255);
glClear(GL_COLOR_BUFFER_BIT);  
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
glOrtho(-2,2,-2,2,-2,2);
gluLookAt($look,$look,$look,0.0,0.0,0.0,0.0,$look,0.0); 
glMatrixMode(GL_MODELVIEW);
glutDisplayFunc(\&mydis);
glutMouseFunc(\&mymouse);
glutMainLoop();

 sub mydis()
{
  glPolygonMode(GL_FRONT_AND_BACK, GL_LINE);
  glClearColor(0,0,0,255);
  glClear(GL_COLOR_BUFFER_BIT); 
  &qiu();
}

sub mymouse()
{
	my ($button,$state,$myx,$myy)=@_;
	if ($button==GLUT_LEFT_BUTTON  and $state==GLUT_DOWN)
	{
		   $look=($myx+$myy)/2/400;	
 		   $lookx=($myx-200)/400;
		   $looky=(200-$myy)/400;	        		        		
	}
	print "mouse x:$myx-y:$myy-look:$look\n";
}

sub qiu()
{
  my $x;
  my $y;
  my $z;
  my $c=3.1415926/180;
  glLoadIdentity();
  gluLookAt($lookx,$looky,$look,0.0,0.0,0.0,0.0,$look,0.0);
  for (my $phi=-80.00;$phi<=80.00;$phi+=20.00)
  {

      my $phir=$c*$phi;
      my $phir20=$c*($phi+20);     
      glBegin(GL_QUAD_STRIP); 
	  glColor3f($a,$b,$c);
      for (my $theta=-180.00;$theta<=180.00;$theta+=20.00)
      {
          my $thetar=$c*$theta;
          $x=sin($thetar)*cos($phir);
          $y=cos($thetar)*cos($phir);
          $z=sin($phir);
          glVertex3d($x,$y,$z);	
          $x=sin($thetar)*cos($phir20);
          $y=cos($thetar)*cos($phir20);
          $z=sin($phir20);          
          glVertex3d($x,$y,$z);				  
	  }  
      glEnd();	
	  glFlush();
  }
}




 



 



 

 

  • 大小: 49.2 KB
  • 大小: 54.9 KB
分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics