Board logo

标题: [技术讨论] Perl 重写 OpenGL RedBook 绘制位图示例 - drawf.c [打印本页]
作者: 523066680    时间: 2017-7-22 11:33     标题: Perl 重写 OpenGL RedBook 绘制位图示例 - drawf.c

本帖最后由 523066680 于 2017-7-22 11:41 编辑

我只是看 Perl 区太空荡荡了，随便发点什么

原代码：
  1. #include <GL/gl.h>

  2. #include <GL/glu.h>

  3. #include "aux.h"

  4. 

  5. GLubyte rasters[24] = {

  6.     0xc0, 0x00, 0xc0, 0x00, 0xc0, 0x00, 0xc0, 0x00, 

  7.     0xc0, 0x00, 0xff, 0x00, 0xff, 0x00, 0xc0, 0x00, 

  8.     0xc0, 0x00, 0xc0, 0x00, 0xff, 0xc0, 0xff, 0xc0};

  9. 

  10. void myinit(void)

  11. {

  12.     glPixelStorei(GL_UNPACK_ALIGNMENT, 1);

  13.     glClearColor(0.0, 0.0, 0.0, 0.0);

  14. }

  15. 

  16. void display(void)

  17. {

  18.     glClear(GL_COLOR_BUFFER_BIT);

  19.     glColor3f(1.0, 1.0, 1.0);

  20.     glRasterPos2i (20.5, 20.5);

  21.     glBitmap(10, 12, 0.0, 0.0, 12.0, 0.0, rasters);

  22.     glBitmap(10, 12, 0.0, 0.0, 12.0, 0.0, rasters);

  23.     glBitmap(10, 12, 0.0, 0.0, 12.0, 0.0, rasters);

  24.     glFlush();

  25. }

  26. 

  27. void myReshape(GLsizei w, GLsizei h)

  28. {

  29.     glViewport(0, 0, w, h);

  30.     glMatrixMode(GL_PROJECTION);

  31.     glLoadIdentity();

  32.     glOrtho(0, w, 0, h, -1.0, 1.0);

  33.     glMatrixMode(GL_MODELVIEW);

  34. }

  35. 

  36. 

  37. int main(int argc, char** argv)

  38. {

  39.     auxInitDisplayMode(AUX_SINGLE | AUX_RGBA);

  40.     auxInitPosition(0, 0, 500, 500);

  41.     auxInitWindow(argv[0]);

  42.     myinit();

  43.     auxReshapeFunc(myReshape);

  44.     auxMainLoop(display);

  45. }
复制代码
Perl 代码
  1. =info

  2.     Auth: 523066680

  3.     Date: 2017-07

  4. =cut

  5. 

  6. use Encode;

  7. use Time::HiRes qw/time sleep/;

  8. use OpenGL qw/ :all /;

  9. use OpenGL::Config;

  10. 

  11. our $SIZE_X = 500;

  12. our $SIZE_Y = 500;

  13. our $WinID;

  14. 

  15. &Main();

  16. 

  17. sub display

  18. {

  19.     glClear(GL_COLOR_BUFFER_BIT);

  20.     my @rasters = 

  21.         (

  22.             0xc0, 0x00, 0xc0, 0x00, 0xc0, 0x00, 0xc0, 0x00, 

  23.             0xc0, 0x00, 0xff, 0x00, 0xff, 0x00, 0xc0, 0x00, 

  24.             0xc0, 0x00, 0xc0, 0x00, 0xff, 0xc0, 0xff, 0xc0

  25.         );

  26. 

  27.     my $array = OpenGL::Array->new( scalar( @rasters ), GL_UNSIGNED_BYTE ); 

  28.     $array->assign(0, @rasters);

  29. 

  30.     glRasterPos2i(0.0, 0.0);

  31.     glBitmap_c( 10, 12, 0.0, 0.0, 12.0, 0.0, $array->ptr() );

  32.     glBitmap_c( 10, 12, 0.0, 0.0, 12.0, 0.0, $array->ptr() );

  33.     glBitmap_c( 10, 12, 0.0, 0.0, 12.0, 0.0, $array->ptr() );

  34.     glutSwapBuffers();

  35. }

  36. 

  37. sub init 

  38. {

  39.     glClearColor(0.0, 0.0, 0.0, 1.0);

  40.     glPixelStorei(GL_UNPACK_ALIGNMENT, 1);

  41. }

  42. 

  43. sub idle 

  44. {

  45.     sleep 0.1;

  46.     glutPostRedisplay();

  47. }

  48. 

  49. sub hitkey 

  50. {

  51.     my $key = shift;

  52.     glutDestroyWindow($WinID) if ( lc(chr($key)) eq 'q' );

  53. }

  54. 

  55. sub Main 

  56. {

  57.     glutInit();

  58.     glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE );

  59.     glutInitWindowSize($SIZE_X, $SIZE_Y);

  60.     glutInitWindowPosition(1,1);

  61.     our $WinID = glutCreateWindow("glBitmap");

  62.     &init();

  63.     glutDisplayFunc(\&display);

  64.     glutKeyboardFunc(\&hitkey);

  65.     glutIdleFunc(\&idle);

  66.     glutMainLoop();

  67. }
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2