perl-opengl基本图形操作-缩放,二维旋转,二维平移
2013-11-18 17:13
435 查看
#!/usr/bin/perl -w use strict; use warnings; use OpenGL qw/ :all /; use OpenGL::Config; glutInit(); glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE); glutInitWindowPosition(100,100); glutInitWindowSize(400,400); glutCreateWindow("平移"); glClearColor(0,0,0,255); glClear(GL_COLOR_BUFFER_BIT); glMatrixMode(GL_PROJECTION); gluOrtho2D(-100,100,-100,100); glutDisplayFunc(\&mydis); glutMainLoop(); return 0; sub mydis() { glColor3f(0,255,0); glBegin(GL_LINES); glVertex2f(-100,0); glVertex2f(100,0); glEnd(); glBegin(GL_LINES); glVertex2f(0,-100); glVertex2f(0,100); glEnd(); glPolygonMode(GL_FRONT_AND_BACK, GL_LINE); # 画矩形 glColor3f(0.5,0.5,0); glRecti(-50,-50,50,50); glFlush(); #向x方向移动5个单位,y方向移动10个单位 glColor3f(0.2,0.2,0.9); glRecti(-50+5,-50+10,50+5,50+10); glFlush(); #直线的二维旋转,以(5,10)为基准点旋转 glColor3f(0.1,0.8,0.5); my ($x1,$y1,$x2,$y2)=(15,15,15,50); for (my $theta=10;$theta<360;$theta+=10) { glBegin(GL_LINES); glVertex2f(5+($x1-5)*cos($theta)-($y1-10)*sin($theta),10+($x1-5)*sin($theta)+($y1-10)*cos($theta)); glVertex2f(5+($x2-5)*cos($theta)-($y2-10)*sin($theta),10+($x2-5)*sin($theta)+($y2-10)*cos($theta)); glEnd(); glFlush(); } #缩放 #缩小成原来大小的0.8 glColor3f(0.6,0.1,0.1); glRecti((-50+5)*0.8,(-50+10)*0.8,(50+5)*0.8,(50+10)*0.8); glFlush(); #放大成原来大小的1.5 glColor3f(0.1,0.9,0.1); glRecti((-50+5)*1.5,(-50+10)*1.5,(50+5)*1.5,(50+10)*1.5); glFlush(); }
相关文章推荐
- WIN32 opengl缩放、旋转、移动图形
- OpenGL键盘 WSADQE进行旋转缩放平移简单操作
- OpenGL图像平移、旋转基本操作总结
- iOS 图形上下文的矩阵操作(平移、旋转、缩放)
- VS2008集成QT的OpenGL开发(实现二维图形的旋转)
- 利用Turbo C进行平面二维图形的平移,旋转,缩放,对称
- 七 iOS之 矩阵操作(图形上下文的平移、缩放、旋转)
- 二维图形学的变换-平移、旋转、缩放 OpenGL
- Qt5.9对图片的基本操作(Pixmap类)(基本操作:打开图片,缩放图片,旋转图片,扭曲图片)
- Qt可显示基本的图像类型,利用QImage、QPxmap类可以实现图像的显示,并且利用类中的方法可以实现图像的基本操作(缩放、旋转)。
- openGL 旋转的图形 矩阵操作
- openGL 旋转的图形 矩阵操作
- Android图形处理基本api(缩放,旋转,平移)
- OpenGL入门示例8——图形平移、旋转、缩放
- OpenGL关于纹理和基本图形的混合问题
- unity移动端操作方式(旋转、缩放手势)总结
- Android单点触控技术,对图片进行平移,缩放,旋转操作
- Android Bitmap 缩放 旋转 水印 裁剪操作
- cocos2D-X源码分析之从cocos2D-X学习OpenGL(5)---绘制基本图形
- Html5 canvas学习5-图形变形:缩放 旋转 平移 变形