{"id":646,"date":"2009-09-22T12:44:00","date_gmt":"2009-09-22T04:44:00","guid":{"rendered":""},"modified":"2013-11-17T17:06:41","modified_gmt":"2013-11-17T09:06:41","slug":"opengl%e6%95%99%e7%a8%8bdelphi%e7%89%889-%e6%98%9f%e6%98%9f","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/646.html","title":{"rendered":"openGL\u6559\u7a0bdelphi\u7248(9)&#8212;-\u661f\u661f"},"content":{"rendered":"<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n{\r\n\u6b22\u8fce\u8fdb\u5165\u7b2c\u4e5d\u8bfe\u3002\u5230\u73b0\u5728\u4e3a\u6b62\uff0c\u60a8\u5e94\u8be5\u5f88\u597d\u7684\u7406\u89e3OpenGL\u4e86\u3002\r\n\u300eCKER\uff1a\u5982\u679c\u6ca1\u6709\u7684\u8bdd\uff0c\u4e00\u5b9a\u662f\u6211\u7ffb\u8bd1\u7684\u7f6a\u8fc7......\u300f\u3002\r\n( myling\u8865\u5145\u9053\uff1a\u6211\u7684\u7f6a\u8fc7\u66f4\u5927\uff0c\u5475\u5475)\r\n\u60a8\u5df2\u7ecf\u5b66\u4f1a\u4e86\u8bbe\u7f6e\u4e00\u4e2aOpenGL\u7a97\u53e3\u7684\u6bcf\u4e2a\u7ec6\u8282\u3002\r\n\u5b66\u4f1a\u5728\u65cb\u8f6c\u7684\u7269\u4f53\u4e0a\u8d34\u56fe\u5e76\u6253\u4e0a\u5149\u7ebf\u4ee5\u53ca\u6df7\u8272(\u900f\u660e)\u5904\u7406\u3002\r\n\u8fd9\u4e00\u8bfe\u5e94\u8be5\u7b97\u662f\u4e00\u8bfe\u4e2d\u7ea7\u6559\u7a0b\u3002\r\n\u60a8\u5c06\u5b66\u5230\u5982\u4e0b\u7684\u77e5\u8bc6\uff1a\u57283D\u573a\u666f\u4e2d\u79fb\u52a8\u4f4d\u56fe\uff0c\u5e76\u53bb\u9664\u4f4d\u56fe\u4e0a\u7684\u9ed1\u8272\u8c61\u7d20(\u4f7f\u7528\u6df7\u8272)\u3002\r\n\u63a5\u7740\u4e3a\u9ed1\u767d\u7eb9\u7406\u4e0a\u8272\uff0c\u6700\u540e\u60a8\u5c06\u5b66\u4f1a\u521b\u5efa\u4e30\u5bcc\u7684\u8272\u5f69\uff0c\r\n\u5e76\u628a\u4e0a\u8fc7\u4e0d\u540c\u8272\u5f69\u7684\u7eb9\u7406\u76f8\u4e92\u6df7\u5408\uff0c\u5f97\u5230\u7b80\u5355\u7684\u52a8\u753b\u6548\u679c\u3002\r\n\u6211\u4eec\u5728\u7b2c\u4e00\u8bfe\u7684\u4ee3\u7801\u57fa\u7840\u4e0a\u8fdb\u884c\u4fee\u6539\u3002\u5148\u5728\u7a0b\u5e8f\u6e90\u7801\u7684\u5f00\u59cb\u5904\u589e\u52a0\u51e0\u4e2a\u53d8\u91cf\u3002\r\n\u51fa\u4e8e\u6e05\u6670\u8d77\u89c1\uff0c\u6211\u91cd\u5199\u4e86\u6574\u6bb5\u4ee3\u7801\u3002\r\n}\r\n\r\nVar\r\n   h_RC             : HGLRC;            \/\/ Rendering Context(\u7740\u8272\u63cf\u8ff0\u8868)\u3002\r\n   h_DC             : HDC;              \/\/ Device Context(\u8bbe\u5907\u63cf\u8ff0\u8868)\r\n   h_Wnd            : HWND;             \/\/ \u7a97\u53e3\u53e5\u67c4\r\n   h_Instance       : HINST;            \/\/ \u7a0b\u5e8fInstance(\u5b9e\u4f8b)\u3002\r\n   keys             : Array&#x5B;0..255] Of Boolean; \/\/ \u7528\u4e8e\u952e\u76d8\u4f8b\u7a0b\u7684\u6570\u7ec4\r\n\r\n   {\u4e0b\u5217\u8fd9\u51e0\u884c\u65b0\u52a0\u7684\u3002\r\n   twinkle\u548c tp\u662f\u5e03\u5c14\u53d8\u91cf, \u8868\u793a\u5b83\u4eec\u53ea\u80fd\u8bbe\u4e3a TRUE \u6216 FALSE\u3002\r\n   twinkle\u7528\u6765\u8ddf\u8e2a \u95ea\u70c1 \u6548\u679c\u662f\u5426\u542f\u7528\u3002\r\n   tp\u7528\u6765\u68c0\u67e5 'T'\u952e\u6709\u6ca1\u6709\u88ab\u6309\u4e0b\u6216\u677e\u5f00.\r\n   (\u6309\u4e0b\u65f6 tp=TRUE, \u677e\u5f00\u65f6 tp=FALSE).}\r\n   twinkle          : Boolean;          \/\/ \u95ea\u70c1\u7684\u661f\u661f     (\u65b0\u589e)\r\n   tp               : Boolean;          \/\/ 'T' \u6309\u4e0b\u4e86\u4e48?  (\u65b0\u589e)\r\n   {\u73b0\u5728\u6211\u4eec\u6765\u521b\u5efa\u4e00\u4e2a\u7ed3\u6784\u3002\r\n    \u7ed3\u6784\u8fd9\u8bcd\u542c\u8d77\u6765\u6709\u70b9\u53ef\u6015\uff0c\u4f46\u5b9e\u9645\u4e0a\u5e76\u975e\u5982\u6b64\u3002(\u5c31\u662fdelphi\u7684\u7eaa\u5f55\u7c7b\u578b)\r\n    \u4e00\u4e2a\u7ed3\u6784\u4f7f\u7528\u4e00\u7ec4\u7b80\u5355\u7c7b\u578b\u7684\u6570\u636e (\u4ee5\u53ca\u53d8\u91cf\u7b49)\u6765\u8868\u8fbe\u8f83\u5927\u7684\u5177\u6709\u76f8\u4f3c\u6027\u7684\u6570\u636e\u7ec4\u5408\u3002\r\n    \u6211\u4eec\u77e5\u9053\u6211\u4eec\u5728\u4fdd\u6301\u5bf9\u661f\u661f\u7684\u8ddf\u8e2a\u3002\r\n    \u60a8\u53ef\u4ee5\u770b\u5230\u4e0b\u9762\u7684\u5c31\u662f stars\uff1b\r\n    \u6bcf\u4e2a\u661f\u661f\u6709\u4e09\u4e2a\u6574\u578b\u7684\u8272\u5f69\u503c\u3002\u4e00\u4e2a\u7ea2\u8272 (r), \u4e00\u4e2a\u7eff\u8272 (g), \u4ee5\u53ca\u4e00\u4e2a\u84dd\u8272 (b).\r\n    \u6b64\u5916\uff0c\u6bcf\u4e2a\u661f\u661f\u79bb\u5c4f\u5e55\u4e2d\u5fc3\u7684\u8ddd\u79bb\u4e0d\u540c,\r\n    \u800c\u4e14\u53ef\u4ee5\u662f\u4ee5\u5c4f\u5e55\u4e2d\u5fc3\u4e3a\u539f\u70b9\u7684\u4efb\u610f360\u5ea6\u4e2d\u7684\u4e00\u4e2a\u89d2\u5ea6\u3002\r\n    dist\u7684\u6d6e\u70b9\u6570\u6765\u4fdd\u6301\u5bf9\u8ddd\u79bb \u7684\u8ddf\u8e2a.\r\n    angle\u7684\u6d6e\u70b9\u6570\u4fdd\u6301\u5bf9\u661f\u661f\u89d2\u5ea6\u503c\u7684\u8ddf\u8e2a\u3002\r\n    \u56e0\u6b64\u6211\u4eec\u4f7f\u7528\u4e86\u4e00\u7ec4\u6570\u636e\u6765\u63cf\u8ff0\u5c4f\u5e55\u4e0a\u661f\u661f\u7684\u8272\u5f69, \u8ddd\u79bb, \u548c\u89d2\u5ea6\u3002\r\n    \u4e0d\u5e78\u7684\u662f\u6211\u4eec\u4e0d\u6b62\u5bf9\u4e00\u4e2a\u661f\u661f\u8fdb\u884c\u8ddf\u8e2a\u3002\r\n    \u4f46\u662f\u65e0\u9700\u521b\u5efa 50 \u4e2a\u7ea2\u8272\u503c\u3001 50 \u4e2a\u7eff\u8272\u503c\u3001 50 \u4e2a\u84dd\u8272\u503c\u3001 50 \u4e2a\u8ddd\u79bb\u503c\r\n    \u4ee5\u53ca 50 \u4e2a\u89d2\u5ea6\u503c\uff0c\u800c\u53ea\u9700\u521b\u5efa\u4e00\u4e2a\u6570\u7ec4star\u3002}\r\nType\r\n   stars = Record                       \/\/ \u4e3a\u661f\u661f\u521b\u5efa\u4e00\u4e2a\u7ed3\u6784,\u7ed3\u6784\u547d\u540d\u4e3astars\r\n      r, g, b: integer;                 \/\/ \u661f\u661f\u7684\u989c\u8272\r\n      dist: GLfloat;                    \/\/ \u661f\u661f\u8ddd\u79bb\u4e2d\u5fc3\u7684\u8ddd\u79bb\r\n      angle: GLfloat;                   \/\/ \u5f53\u524d\u661f\u661f\u6240\u5904\u7684\u89d2\u5ea6\r\n   End;\r\nVar\r\n   star             : Array&#x5B;0..49] Of stars;  \/\/ \u4f7f\u7528 'stars' \u7ed3\u6784\u751f\u6210\u4e00\u4e2a\u5305\u542b 50\u4e2a\u5143\u7d20\u7684 'star'\u6570\u7ec4\r\n\r\n   {\u63a5\u4e0b\u6765\u6211\u4eec\u8bbe\u7f6e\u51e0\u4e2a\u8ddf\u8e2a\u53d8\u91cf\uff1a\r\n   \u661f\u661f\u79bb\u89c2\u5bdf\u8005\u7684\u8ddd\u79bb\u53d8\u91cf(zoom)\uff0c\r\n   \u6211\u4eec\u6240\u89c1\u5230\u7684\u661f\u661f\u6240\u5904\u7684\u89d2\u5ea6(tilt)\uff0c\r\n   \u4ee5\u53ca\u4f7f\u95ea\u70c1\u7684\u661f\u661f\u7ed5Z\u8f74\u81ea\u8f6c\u7684\u53d8\u91cfspin\u3002\r\n   loop\u53d8\u91cf\u7528\u6765\u7ed8\u523650\u9897\u661f\u661f\u3002\r\n   texture&#x5B;1]\u7528\u6765\u5b58\u653e\u4e00\u4e2a\u9ed1\u767d\u7eb9\u7406\u3002\r\n   \u5982\u679c\u60a8\u9700\u8981\u66f4\u591a\u7684\u7eb9\u7406\u7684\u8bdd\uff0c\r\n   \u60a8\u5e94\u8be5\u589e\u52a0texture\u6570\u7ec4\u7684\u5927\u5c0f\u81f3\u60a8\u51b3\u5b9a\u91c7\u7528\u7684\u7eb9\u7406\u4e2a\u6570\u3002\r\n   }\r\n\r\n   zoom             : GLfloat = -15.0;  \/\/ \u661f\u661f\u79bb\u89c2\u5bdf\u8005\u7684\u8ddd\u79bb\r\n   tilt             : GLfloat = 90.0;   \/\/ \u661f\u661f\u7684\u503e\u89d2\r\n   spin             : GLfloat;          \/\/ \u95ea\u70c1\u661f\u661f\u7684\u81ea\u8f6c\r\n   loop             : GLuint;           \/\/ \u5168\u5c40l Loop \u53d8\u91cf\r\n   texture          : Array&#x5B;0..1] Of GLuint; \/\/ \u5b58\u653e\u4e00\u4e2a\u7eb9\u7406\r\n\r\nProcedure glGenTextures(n: GLsizei; Var textures: GLuint); stdcall; external\r\n   opengl32;\r\n\r\nProcedure glBindTexture(target: GLenum; texture: GLuint); stdcall; external\r\n   opengl32;\r\n\r\n{\r\n\u7d27\u63a5\u7740\u4e0a\u9762\u7684\u4ee3\u7801\u5c31\u662f\u6211\u4eec\u7528\u6765\u8f7d\u5165\u7eb9\u7406\u7684\u4ee3\u7801\u3002\r\n\u6211\u4e0d\u6253\u7b97\u518d\u8be6\u7ec6\u7684\u89e3\u91ca\u8fd9\u6bb5\u4ee3\u7801\u3002\r\n\u8fd9\u8ddf\u6211\u4eec\u5728\u7b2c\u516d\u3001\u4e03\u3001\u516b\u8bfe\u4e2d\u6240\u7528\u7684\u4ee3\u7801\u662f\u4e00\u6a21\u4e00\u6837\u7684\u3002\r\n\u8fd9\u4e00\u6b21\u8f7d\u5165\u7684\u4f4d\u56fe\u53eb\u505astar.bmp\u3002\r\n\u8fd9\u91cc\u6211\u4eec\u4f7f\u7528glGenTextures(1, &amp;texture&#x5B;0])\uff0c\r\n\u6765\u751f\u6210\u4e00\u4e2a\u7eb9\u7406\u3002\u7eb9\u7406\u91c7\u7528\u7ebf\u6027\u6ee4\u6ce2\u65b9\u5f0f\u3002\r\n}\r\n\r\nFunction LoadTexture: boolean;          \/\/ \u8f7d\u5165\u4f4d\u56fe\u5e76\u8f6c\u6362\u6210\u7eb9\u7406\r\nVar\r\n   Status           : boolean;          \/\/ Status \u6307\u793a\u5668\r\n   TextureImage     : Array&#x5B;0..1] Of PTAUX_RGBImageRec; \/\/ \u521b\u5efa\u7eb9\u7406\u7684\u5b58\u50a8\u7a7a\u95f4\r\nBegin\r\n   Status := false;\r\n   ZeroMemory(@TextureImage, sizeof(TextureImage)); \/\/ \u5c06\u6307\u9488\u8bbe\u4e3a NULL\r\n   TextureImage&#x5B;0] := LoadBMP('Star.bmp');\r\n   If TextureImage&#x5B;0] &lt;&gt; Nil Then\r\n      Begin\r\n         Status := TRUE;                \/\/ \u5c06 Status \u8bbe\u4e3a TRUE\r\n         glGenTextures(1, texture&#x5B;0]);  \/\/ \u521b\u5efa\u7eb9\u7406\r\n         \/\/ \u521b\u5efa Nearest \u6ee4\u6ce2\u8d34\u56fe\r\n         glBindTexture(GL_TEXTURE_2D, texture&#x5B;0]);\r\n         \/\/ \u751f\u6210\u7eb9\u7406\r\n         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);  \/\/ ( \u65b0\u589e )\r\n         glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);  \/\/ ( \u65b0\u589e )\r\n\r\n         glTexImage2D(GL_TEXTURE_2D, 0, 3, TextureImage&#x5B;0].sizeX,\r\n            TextureImage&#x5B;0].sizeY, 0, GL_RGB, GL_UNSIGNED_BYTE,\r\n            TextureImage&#x5B;0].data);\r\n      End;\r\n   If assigned(TextureImage&#x5B;0]) Then    \/\/ \u7eb9\u7406\u662f\u5426\u5b58\u5728\r\n      If assigned(TextureImage&#x5B;0].data) Then \/\/ \u7eb9\u7406\u56fe\u50cf\u662f\u5426\u5b58\u5728\r\n         TextureImage&#x5B;0].data := Nil;   \/\/ \u91ca\u653e\u7eb9\u7406\u56fe\u50cf\u5360\u7528\u7684\u5185\u5b58\r\n   TextureImage&#x5B;0] := Nil;              \/\/ \u91ca\u653e\u56fe\u50cf\u7ed3\u6784\r\n   result := Status;                    \/\/ \u8fd4\u56de Status\r\nEnd;\r\n\r\n{\r\n\u5728glInit()\u4e2d\u8bbe\u7f6eOpenGL\u7684\u6e32\u67d3\u65b9\u5f0f\u3002\u8fd9\u91cc\u4e0d\u6253\u7b97\u4f7f\u7528\u6df1\u5ea6\u6d4b\u8bd5\uff0c\r\n\u5982\u679c\u60a8\u4f7f\u7528\u7b2c\u4e00\u8bfe\u7684\u4ee3\u7801\u7684\u8bdd\uff0c\r\n\u8bf7\u786e\u8ba4\u662f\u5426\u5df2\u7ecf\u53bb\u6389\u4e86 glDepthFunc(GL_LEQUAL)\u548c glEnable(GL_DEPTH_TEST)\u3002\r\n\u5426\u5219\uff0c\u60a8\u6240\u89c1\u5230\u7684\u6548\u679c\u5c06\u4f1a\u4e00\u56e2\u7cdf\u3002\r\n\u8fd9\u91cc\u6211\u4eec\u4f7f\u7528\u4e86\u7eb9\u7406\u6620\u5c04\uff0c\r\n\u56e0\u6b64\u8bf7\u60a8\u786e\u8ba4\u60a8\u5df2\u7ecf\u52a0\u4e0a\u4e86\u8fd9\u4e9b\u7b2c\u4e00\u8bfe\u4e2d\u6240\u6ca1\u6709\u7684\u4ee3\u7801\u3002\r\n\u60a8\u4f1a\u6ce8\u610f\u5230\u6211\u4eec\u901a\u8fc7\u6df7\u8272\u6765\u542f\u7528\u4e86\u7eb9\u7406\u6620\u5c04\u3002\r\n}\r\nProcedure glInit();\r\nBegin\r\n   If (Not LoadTexture) Then            \/\/ \u8c03\u7528\u7eb9\u7406\u8f7d\u5165\u5b50\u4f8b\u7a0b( \u65b0\u589e )\r\n      exit;                             \/\/ \u5982\u679c\u672a\u80fd\u8f7d\u5165\uff0c\u9000\u51fa( \u65b0\u589e )\r\n\r\n   glEnable(GL_TEXTURE_2D);             \/\/ \u542f\u7528\u7eb9\u7406\u6620\u5c04\r\n   glShadeModel(GL_SMOOTH);             \/\/ \u542f\u7528\u9634\u5f71\u5e73\u6ed1\r\n   glClearColor(0.0, 0.0, 0.0, 0.5);    \/\/ \u9ed1\u8272\u80cc\u666f\r\n   glClearDepth(1.0);                   \/\/ \u8bbe\u7f6e\u6df1\u5ea6\u7f13\u5b58\r\n   glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST); \/\/ \u771f\u6b63\u7cbe\u7ec6\u7684\u900f\u89c6\u4fee\u6b63\r\n   glBlendFunc(GL_SRC_ALPHA, GL_ONE);   \/\/ \u8bbe\u7f6e\u6df7\u8272\u51fd\u6570\u53d6\u5f97\u534a\u900f\u660e\u6548\u679c\r\n   glEnable(GL_BLEND);                  \/\/ \u542f\u7528\u6df7\u8272\r\n\r\n   {\u4ee5\u4e0b\u662f\u65b0\u589e\u7684\u4ee3\u7801\u3002\r\n   \u8bbe\u7f6e\u4e86\u6bcf\u9897\u661f\u661f\u7684\u8d77\u59cb\u89d2\u5ea6\u3001\u8ddd\u79bb\u3001\u548c\u989c\u8272\u3002\r\n   \u60a8\u4f1a\u6ce8\u610f\u5230\u4fee\u6539\u7ed3\u6784\u7684\u5c5e\u6027\u6709\u591a\u5bb9\u6613\u3002\r\n   \u5168\u90e850\u9897\u661f\u661f\u90fd\u4f1a\u88ab\u5faa\u73af\u8bbe\u7f6e\u3002\r\n   \u8981\u6539\u53d8star&#x5B;1]\u7684\u89d2\u5ea6\u6211\u4eec\u6240\u8981\u505a\u7684\u53ea\u662fstar&#x5B;1].angle=\u67d0\u4e2a\u6570\u503c\uff1b\r\n   \u5c31\u8fd9\u4e48\u7b80\u5355\uff01}\r\n   For loop := 0 To 49 Do               \/\/ \u521b\u5efa\u5faa\u73af\u8bbe\u7f6e\u5168\u90e8\u661f\u661f\r\n      Begin\r\n         star&#x5B;loop].angle := 0.0;       \/\/ \u6240\u6709\u661f\u661f\u90fd\u4ece\u96f6\u89d2\u5ea6\u5f00\u59cb\r\n         {\u7b2cloop\u9897\u661f\u661f\u79bb\u4e2d\u5fc3\u7684\u8ddd\u79bb\u662f\u5c06loop\u7684\u503c\u9664\u4ee5\u661f\u661f\u7684\u603b\u9897\u6570\uff0c\u7136\u540e\u4e58\u4e0a5.0\u3002\r\n         \u57fa\u672c\u4e0a\u8fd9\u6837\u4f7f\u5f97\u540e\u4e00\u9897\u661f\u661f\u6bd4\u524d\u4e00\u9897\u661f\u661f\u79bb\u4e2d\u5fc3\u66f4\u8fdc\u4e00\u70b9\u3002\r\n         \u8fd9\u6837\u5f53loop\u4e3a50\u65f6(\u6700\u540e\u4e00\u9897\u661f\u661f)\uff0cloop \u9664\u4ee5 num\u6b63\u597d\u662f1.0\u3002\r\n         \u4e4b\u6240\u4ee5\u8981\u4e58\u4ee55.0\u662f\u56e0\u4e3a1.0*5.0 \u5c31\u662f 5.0\u3002\r\n         \u300eCKER\uff1a\u5e9f\u8bdd\uff0c\u5e9f\u8bdd\uff01\u8fd9\u8001\u5916\u600e\u4e48\u8ddf\u5b54\u4e59\u5df1\u4f3c\u7684\uff01:)\u300f\r\n         5.0\u5df2\u7ecf\u5f88\u63a5\u8fd1\u5c4f\u5e55\u8fb9\u7f18\u3002\u6211\u4e0d\u60f3\u661f\u661f\u98de\u51fa\u5c4f\u5e55\uff0c5.0\u662f\u6700\u597d\u7684\u9009\u62e9\u4e86\u3002\r\n         \u5f53\u7136\u5982\u679c\u5982\u679c\u60a8\u5c06\u573a\u666f\u8bbe\u7f6e\u7684\u66f4\u6df1\u5165\u5c4f\u5e55\u91cc\u9762\u7684\u8bdd\uff0c\r\n         \u4e5f\u8bb8\u53ef\u4ee5\u4f7f\u7528\u5927\u4e8e5.0\u7684\u6570\u503c\uff0c\u4f46\u661f\u661f\u770b\u8d77\u6765\u5c31\u66f4\u5c0f\u4e00\u4e9b(\u90fd\u662f\u900f\u89c6\u7684\u7f18\u6545)\u3002\r\n         \u60a8\u8fd8\u4f1a\u6ce8\u610f\u5230\u6bcf\u9897\u661f\u661f\u7684\u989c\u8272\u90fd\u662f\u4ece0\uff5e255\u4e4b\u95f4\u7684\u4e00\u4e2a\u968f\u673a\u6570\u3002\r\n         \u4e5f\u8bb8\u60a8\u4f1a\u5947\u602a\u4e3a\u4f55\u8fd9\u91cc\u7684\u989c\u8272\u5f97\u53d6\u503c\u8303\u56f4\u4e0d\u662fOpenGL\u901a\u5e38\u76840.0\uff5e1.0\u4e4b\u95f4\u3002\r\n         \u8fd9\u91cc\u6211\u4eec\u4f7f\u7528\u7684\u989c\u8272\u8bbe\u7f6e\u51fd\u6570\u662fglColor4ub\uff0c\u800c\u4e0d\u662f\u4ee5\u524d\u7684glColor4f\u3002\r\n         ub\u610f\u5473\u7740\u53c2\u6570\u662fUnsigned Byte\u578b\u7684\u3002\r\n         \u4e00\u4e2abyte\u7684\u53d6\u503c\u8303\u56f4\u662f0\uff5e255\u3002\r\n         \u8fd9\u91cc\u4f7f\u7528byte\u503c\u53d6\u968f\u673a\u6574\u6570\u4f3c\u4e4e\u8981\u6bd4\u53d6\u4e00\u4e2a\u6d6e\u70b9\u7684\u968f\u673a\u6570\u66f4\u5bb9\u6613\u4e00\u4e9b\u3002\r\n         }\r\n         star&#x5B;loop].dist := (Trunc(loop) \/ 50) * 5.0; \/\/ \u8ba1\u7b97\u661f\u661f\u79bb\u4e2d\u5fc3\u7684\u8ddd\u79bb\r\n         star&#x5B;loop].r := random(256);   \/\/ \u4e3astar&#x5B;loop]\u8bbe\u7f6e\u968f\u673a\u7ea2\u8272\u5206\u91cf\r\n         star&#x5B;loop].g := random(256);   \/\/ \u4e3astar&#x5B;loop]\u8bbe\u7f6e\u968f\u673a\u7ea2\u8272\u5206\u91cf\r\n         star&#x5B;loop].b := random(256);   \/\/ \u4e3astar&#x5B;loop]\u8bbe\u7f6e\u968f\u673a\u7ea2\u8272\u5206\u91cf\r\n      End;\r\n\r\nEnd;\r\n\r\n{\r\n\u73b0\u5728\u6211\u4eec\u8f6c\u5165glDraw()\u7ed8\u56fe\u4ee3\u7801\u3002\r\n\u5982\u679c\u60a8\u4f7f\u7528\u7b2c\u4e00\u8bfe\u7684\u4ee3\u7801\uff0c\u5220\u9664\u65e7\u7684DrawGLScene\u4ee3\u7801\uff0c\u53ea\u9700\u5c06\u4e0b\u9762\u7684\u4ee3\u7801\u590d\u5236\u8fc7\u53bb\u5c31\u884c\u4e86\u3002\r\n\u5b9e\u9645\u4e0a\uff0c\u7b2c\u4e00\u8bfe\u7684\u4ee3\u7801\u53ea\u6709\u4e24\u884c\uff0c\u6240\u4ee5\u6ca1\u592a\u591a\u4e1c\u897f\u8981\u5220\u6389\u7684\u3002\r\n}\r\n\r\nProcedure glDraw();\r\nBegin\r\n   glClear(GL_COLOR_BUFFER_BIT Or GL_DEPTH_BUFFER_BIT); \/\/ \u6e05\u9664\u5c4f\u5e55\u548c\u6df1\u5ea6\u7f13\u5b58\r\n\r\n   glBindTexture(GL_TEXTURE_2D, texture&#x5B;0]); \/\/ \u9009\u62e9\u7eb9\u7406\r\n   For loop := 0 To 49 Do               \/\/ \u5faa\u73af\u8bbe\u7f6e\u6240\u6709\u7684\u661f\u661f\r\n      Begin\r\n         glLoadIdentity();              \/\/ \u7ed8\u5236\u6bcf\u9897\u661f\u661f\u4e4b\u524d\uff0c\u91cd\u7f6e\u6a21\u578b\u89c2\u5bdf\u77e9\u9635\r\n         glTranslatef(0.0, 0.0, zoom);  \/\/ \u6df1\u5165\u5c4f\u5e55\u91cc\u9762 (\u4f7f\u7528 'zoom'\u7684\u503c)\r\n         glRotatef(tilt, 1.0, 0.0, 0.0); \/\/ \u503e\u659c\u89c6\u89d2(\u4f7f\u7528 'tilt'\u7684\u503c)\r\n         {\r\n         \u73b0\u5728\u6211\u4eec\u6765\u79fb\u52a8\u661f\u661f\u3002\r\n         \u661f\u661f\u5f00\u59cb\u65f6\u4f4d\u4e8e\u5c4f\u5e55\u7684\u4e2d\u5fc3\u3002\r\n         \u6211\u4eec\u8981\u505a\u7684\u7b2c\u4e00\u4ef6\u4e8b\u662f\u628a\u573a\u666f\u6cbfY\u8f74\u65cb\u8f6c\u3002\r\n         \u5982\u679c\u6211\u4eec\u65cb\u8f6c90\u5ea6\u7684\u8bdd\uff0cX\u8f74\u4e0d\u518d\u662f\u81ea\u5de6\u81f3\u53f3\u7684\u4e86\uff0c\u4ed6\u5c06\u7531\u91cc\u5411\u5916\u7a7f\u51fa\u5c4f\u5e55\u3002\r\n         \u4e3a\u4e86\u8ba9\u5927\u5bb6\u66f4\u6e05\u695a\u4e9b\uff0c\u4e3e\u4e2a\u4f8b\u5b50\u3002\u5047\u60f3\u60a8\u7ad9\u5728\u623f\u5b50\u4e2d\u95f4\u3002\r\n         \u518d\u8bbe\u60f3\u60a8\u5de6\u4fa7\u7684\u5899\u4e0a\u5199\u7740-x\uff0c\u524d\u9762\u7684\u5899\u4e0a\u5199\u7740-z\uff0c\r\n         \u53f3\u9762\u5899\u4e0a\u5c31\u662f+x\u54af\uff0c\u60a8\u8eab\u540e\u7684\u5899\u4e0a\u5219\u662f+z\u3002\r\n         \u52a0\u5165\u6574\u4e2a\u623f\u5b50\u5411\u53f3\u8f6c90\u5ea6\uff0c\u4f46\u60a8\u6ca1\u6709\u52a8\uff0c\u90a3\u4e48\u524d\u9762\u7684\u5899\u4e0a\u5c06\u662f-x\u800c\u4e0d\u518d\u662f-z\u4e86\u3002\r\n         \u6240\u6709\u5176\u4ed6\u7684\u5899\u4e5f\u90fd\u8ddf\u7740\u79fb\u52a8\u3002-z\u51fa\u73b0\u5728\u53f3\u4fa7\uff0c+z\u51fa\u73b0\u5728\u5de6\u4fa7\uff0c+x\u51fa\u73b0\u5728\u60a8\u80cc\u540e\u3002\r\n         \u795e\u7ecf\u9519\u4e71\u4e86\u5427\uff1f\u901a\u8fc7\u65cb\u8f6c\u573a\u666f\uff0c\u6211\u4eec\u6539\u53d8\u4e86x\u548cz\u5e73\u9762\u7684\u65b9\u5411\u3002\r\n         \u7b2c\u4e8c\u884c\u4ee3\u7801\u6cbfx\u8f74\u79fb\u52a8\u4e00\u4e2a\u6b63\u503c\u3002\r\n         \u901a\u5e38x\u8f74\u4e0a\u7684\u6b63\u503c\u4ee3\u8868\u79fb\u5411\u4e86\u5c4f\u5e55\u7684\u53f3\u4fa7(\u4e5f\u5c31\u662f\u901a\u5e38\u7684x\u8f74\u7684\u6b63\u5411)\uff0c\r\n         \u4f46\u8fd9\u91cc\u7531\u4e8e\u6211\u4eec\u7ed5y\u8f74\u65cb\u8f6c\u4e86\u5750\u6807\u7cfb\uff0cx\u8f74\u7684\u6b63\u5411\u53ef\u4ee5\u662f\u4efb\u610f\u65b9\u5411\u3002\r\n         \u5982\u679c\u6211\u4eec\u8f6c180\u5ea6\u7684\u8bdd\uff0c\u5c4f\u5e55\u7684\u5de6\u53f3\u4fa7\u5c31\u955c\u50cf\u53cd\u5411\u4e86\u3002\r\n         \u56e0\u6b64\uff0c\u5f53\u6211\u4eec\u6cbf x\u8f74\u6b63\u5411\u79fb\u52a8\u65f6\uff0c\u53ef\u80fd\u5411\u5de6\uff0c\u5411\u53f3\uff0c\u5411\u524d\u6216\u5411\u540e\u3002\r\n         }\r\n         glRotatef(star&#x5B;loop].angle, 0.0, 1.0, 0.0); \/\/\u65cb\u8f6c\u81f3\u5f53\u524d\u6240\u753b\u661f\u661f\u7684\u89d2\u5ea6\r\n         glTranslatef(star&#x5B;loop].dist, 0.0, 0.0); \/\/ \u6cbfX\u8f74\u6b63\u5411\u79fb\u52a8\r\n         {\r\n         \u63a5\u7740\u7684\u4ee3\u7801\u5e26\u70b9\u5c0f\u6280\u5de7\u3002\r\n         \u661f\u661f\u5b9e\u9645\u4e0a\u662f\u4e00\u4e2a\u5e73\u9762\u7684\u7eb9\u7406\u3002\r\n         \u73b0\u5728\u60a8\u5728\u5c4f\u5e55\u4e2d\u5fc3\u753b\u4e86\u4e2a\u5e73\u9762\u7684\u56db\u8fb9\u5f62\u7136\u540e\u8d34\u4e0a\u7eb9\u7406\uff0c\u8fd9\u770b\u8d77\u6765\u5f88\u4e0d\u9519\u3002\r\n         \u4e00\u5207\u90fd\u5982\u60a8\u6240\u60f3\u7684\u90a3\u6837\u3002\u4f46\u662f\u5f53\u60a8\u5f53\u60a8\u6cbf\u7740y\u8f74\u8f6c\u4e0a\u4e2a90\u5ea6\u7684\u8bdd\uff0c\r\n         \u7eb9\u7406\u5728\u5c4f\u5e55\u4e0a\u5c31\u53ea\u5269\u53f3\u4fa7\u548c\u5de6\u4fa7\u7684\u4e24\u6761\u8fb9\u671d\u7740\u60a8\u3002 \u770b\u8d77\u6765\u5c31\u662f\u4e00\u6761\u7ec6\u7ebf\u3002\r\n         \u8fd9\u4e0d\u662f\u6211\u4eec\u6240\u60f3\u8981\u7684\u3002\u6211\u4eec\u5e0c\u671b\u661f\u661f\u6c38\u8fdc\u6b63\u9762\u671d\u7740\u6211\u4eec\uff0c\u800c\u4e0d\u7ba1\u5c4f\u5e55\u5982\u4f55\u65cb\u8f6c\u6216\u503e\u659c\u3002\r\n         \u6211\u4eec\u901a\u8fc7\u5728\u7ed8\u5236\u661f\u661f\u4e4b\u524d\uff0c\u62b5\u6d88\u5bf9\u661f\u661f\u6240\u4f5c\u7684\u4efb\u4f55\u65cb\u8f6c\u6765\u5b9e\u73b0\u8fd9\u4e2a\u613f\u671b\u3002\r\n         \u60a8\u53ef\u4ee5\u91c7\u7528\u9006\u5e8f\u6765\u62b5\u6d88\u65cb\u8f6c\u3002\u5f53\u6211\u4eec\u503e\u659c\u5c4f\u5e55\u65f6\uff0c\u6211\u4eec\u5b9e\u9645\u4e0a\u4ee5\u5f53\u524d\u89d2\u5ea6\u65cb\u8f6c\u4e86\u661f\u661f\u3002\r\n         \u901a\u8fc7\u9006\u5e8f\uff0c\u6211\u4eec\u53c8\u4ee5\u5f53\u524d\u89d2\u5ea6&quot;\u53cd\u65cb\u8f6c&quot;\u661f\u661f\u3002\u4e5f\u5c31\u662f\u4ee5\u5f53\u524d\u89d2\u5ea6\u7684\u8d1f\u503c\u6765\u65cb\u8f6c\u661f\u661f\u3002\r\n         \u5c31\u662f\u8bf4\uff0c\r\n         \u5982\u679c\u6211\u4eec\u5c06\u661f\u661f\u65cb\u8f6c\u4e8610\u5ea6\u7684\u8bdd\uff0c\u53c8\u5c06\u5176\u65cb\u8f6c-10\u5ea6\u6765\u4f7f\u661f\u661f\u5728\u90a3\u4e2a\u8f74\u4e0a\u91cd\u65b0\u9762\u5bf9\u5c4f\u5e55\u3002\r\n         \u4e0b\u9762\u7684\u7b2c\u4e00\u884c\u62b5\u6d88\u4e86\u6cbfy\u8f74\u7684\u65cb\u8f6c\u3002\u7136\u540e\uff0c\u6211\u4eec\u8fd8\u9700\u8981\u62b5\u6d88\u6389\u6cbfx\u8f74\u7684\u5c4f\u5e55\u503e\u659c\u3002\r\n         \u8981\u505a\u5230\u8fd9\u4e00\u70b9\uff0c\u6211\u4eec\u53ea\u9700\u8981\u5c06\u5c4f\u5e55\u518d\u65cb\u8f6c-tilt\u503e\u89d2\u3002\r\n         \u5728\u62b5\u6d88\u6389x\u548cy\u8f74\u7684\u65cb\u8f6c\u540e\uff0c\u661f\u661f\u53c8\u5b8c\u5168\u9762\u5bf9\u7740\u6211\u4eec\u4e86\u3002\r\n         }\r\n         glRotatef(-star&#x5B;loop].angle, 0.0, 1.0, 0.0); \/\/ \u53d6\u6d88\u5f53\u524d\u661f\u661f\u7684\u89d2\u5ea6\r\n         glRotatef(-tilt, 1.0, 0.0, 0.0); \/\/ \u53d6\u6d88\u5c4f\u5e55\u503e\u659c\r\n         {\u5982\u679c twinkle \u4e3a  TRUE\uff0c\u6211\u4eec\u5728\u5c4f\u5e55\u4e0a\u5148\u753b\u4e00\u6b21\u4e0d\u65cb\u8f6c\u7684\u661f\u661f\uff1a\r\n         \u5c06\u661f\u661f\u603b\u6570(num) \u51cf\u53bb\u5f53\u524d\u7684\u661f\u661f\u6570(loop)\u518d\u51cf\u53bb1\uff0c\r\n         \u6765\u63d0\u53d6\u6bcf\u9897\u661f\u661f\u7684\u4e0d\u540c\u989c\u8272(\u8fd9\u4e48\u505a\u662f\u56e0\u4e3a\u5faa\u73af\u8303\u56f4\u4ece0\u5230num-1)\u3002\r\n         \u4e3e\u4f8b\u6765\u8bf4\uff0c\u7ed3\u679c\u4e3a10\u7684\u65f6\u5019\uff0c\u6211\u4eec\u5c31\u4f7f\u752810\u53f7\u661f\u661f\u7684\u989c\u8272\u3002\r\n         \u8fd9\u6837\u76f8\u90bb\u661f\u661f\u7684\u989c\u8272\u603b\u662f\u4e0d\u540c\u7684\u3002\u8fd9\u4e0d\u662f\u4e2a\u597d\u6cd5\u5b50\uff0c\u4f46\u5f88\u6709\u6548\u3002\r\n         \u6700\u540e\u4e00\u4e2a\u503c\u662falpha\u901a\u9053\u5206\u91cf\u3002\u8fd9\u4e2a\u503c\u8d8a\u5c0f\uff0c\u8fd9\u9897\u661f\u661f\u5c31\u8d8a\u6697\u3002\r\n         \u7531\u4e8e\u542f\u7528\u4e86twinkle\uff0c\u6bcf\u9897\u661f\u661f\u6700\u540e\u4f1a\u88ab\u7ed8\u5236\u4e24\u904d\u3002\r\n         \u7a0b\u5e8f\u8fd0\u884c\u8d77\u6765\u4f1a\u6162\u4e00\u4e9b\uff0c\u8fd9\u8981\u770b\u60a8\u7684\u673a\u5668\u6027\u80fd\u5982\u4f55\u4e86\u3002\r\n         \u4f46\u4e24\u904d\u7ed8\u5236\u7684\u661f\u661f\u989c\u8272\u76f8\u4e92\u878d\u5408\uff0c\u4f1a\u4ea7\u751f\u5f88\u68d2\u7684\u6548\u679c\u3002\r\n         \u540c\u65f6\u7531\u4e8e\u7b2c\u4e00\u904d\u7684\u661f\u661f\u6ca1\u6709\u65cb\u8f6c\uff0c\u542f\u7528twinkle\u540e\u7684\u661f\u661f\u770b\u8d77\u6765\u6709\u4e00\u79cd\u52a8\u753b\u6548\u679c\u3002\r\n         (\u5982\u679c\u60a8\u8fd9\u91cc\u770b\u4e0d\u61c2\u5f97\u8bdd\uff0c\u5c31\u81ea\u5df1\u53bb\u770b\u7a0b\u5e8f\u7684\u8fd0\u884c\u6548\u679c\u5427\u3002)\r\n         \u503c\u5f97\u6ce8\u610f\u7684\u662f\u7ed9\u7eb9\u7406\u4e0a\u8272\u662f\u4ef6\u5f88\u5bb9\u6613\u7684\u4e8b\u3002\r\n         \u5c3d\u7ba1\u7eb9\u7406\u672c\u8eab\u662f\u9ed1\u767d\u7684\uff0c\u7eb9\u7406\u5c06\u53d8\u6210\u6211\u4eec\u5728\u7ed8\u5236\u5b83\u4e4b\u524d\u9009\u5b9a\u7684\u4efb\u610f\u989c\u8272\u3002\r\n         \u6b64\u5916\uff0c\u540c\u6837\u503c\u5f97\u6ce8\u610f\u7684\u662f\u6211\u4eec\u5728\u8fd9\u91cc\u4f7f\u7528\u7684\u989c\u8272\u503c\u662fbyte\u578b\u7684\uff0c\r\n         \u800c\u4e0d\u662f\u901a\u5e38\u7684\u6d6e\u70b9\u6570\u3002\u751a\u81f3alpha\u901a\u9053\u5206\u91cf\u4e5f\u662f\u5982\u6b64\u3002}\r\n\r\n         If (twinkle) Then              \/\/ \u542f\u7528\u95ea\u70c1\u6548\u679c\r\n            Begin\r\n               \/\/ \u4f7f\u7528byte\u578b\u6570\u503c\u6307\u5b9a\u4e00\u4e2a\u989c\u8272\r\n               glColor4ub(star&#x5B;(50 - loop) - 1].r, star&#x5B;(50 - loop) - 1].g,\r\n                  star&#x5B;(50 - loop) - 1].b, 255);\r\n               glBegin(GL_QUADS);       \/\/ \u5f00\u59cb\u7ed8\u5236\u7eb9\u7406\u6620\u5c04\u8fc7\u7684\u56db\u8fb9\u5f62\r\n               glTexCoord2f(0.0, 0.0);\r\n               glVertex3f(-1.0, -1.0, 0.0);\r\n               glTexCoord2f(1.0, 0.0);\r\n               glVertex3f(1.0, -1.0, 0.0);\r\n               glTexCoord2f(1.0, 1.0);\r\n               glVertex3f(1.0, 1.0, 0.0);\r\n               glTexCoord2f(0.0, 1.0);\r\n               glVertex3f(-1.0, 1.0, 0.0);\r\n               glEnd();                 \/\/ \u56db\u8fb9\u5f62\u7ed8\u5236\u7ed3\u675f\r\n            End;\r\n\r\n         {\r\n         \u73b0\u5728\u7ed8\u5236\u7b2c\u4e8c\u904d\u7684\u661f\u661f\u3002\r\n         \u552f\u4e00\u548c\u524d\u9762\u7684\u4ee3\u7801\u4e0d\u540c\u7684\u662f\u8fd9\u4e00\u904d\u7684\u661f\u661f\u80af\u5b9a\u4f1a\u88ab\u7ed8\u5236\uff0c\u5e76\u4e14\u8fd9\u6b21\u7684\u661f\u661f\u7ed5\u7740z\u8f74\u65cb\u8f6c\u3002\r\n         }\r\n         glRotatef(spin, 0.0, 0.0, 1.0); \/\/ \u7ed5z\u8f74\u65cb\u8f6c\u661f\u661f\r\n         \/\/  \u4f7f\u7528byte\u578b\u6570\u503c\u6307\u5b9a\u4e00\u4e2a\u989c\u8272\r\n         glColor4ub(star&#x5B;loop].r, star&#x5B;loop].g, star&#x5B;loop].b, 255);\r\n         glBegin(GL_QUADS);             \/\/ \u5f00\u59cb\u7ed8\u5236\u7eb9\u7406\u6620\u5c04\u8fc7\u7684\u56db\u8fb9\u5f62\r\n         glTexCoord2f(0.0, 0.0);\r\n         glVertex3f(-1.0, -1.0, 0.0);\r\n         glTexCoord2f(1.0, 0.0);\r\n         glVertex3f(1.0, -1.0, 0.0);\r\n         glTexCoord2f(1.0, 1.0);\r\n         glVertex3f(1.0, 1.0, 0.0);\r\n         glTexCoord2f(0.0, 1.0);\r\n         glVertex3f(-1.0, 1.0, 0.0);\r\n         glEnd();                       \/\/ \u56db\u8fb9\u5f62\u7ed8\u5236\u7ed3\u675f\r\n\r\n         {\u4ee5\u4e0b\u7684\u4ee3\u7801\u4ee3\u8868\u661f\u661f\u7684\u8fd0\u52a8\u3002\r\n         \u6211\u4eec\u589e\u52a0spin\u7684\u503c\u6765\u65cb\u8f6c\u6240\u6709\u7684\u661f\u661f(\u516c\u8f6c)\u3002\r\n         \u7136\u540e\uff0c\u5c06\u6bcf\u9897\u661f\u661f\u7684\u81ea\u8f6c\u89d2\u5ea6\u589e\u52a0loop\/num\u3002\r\n         \u8fd9\u4f7f\u79bb\u4e2d\u5fc3\u66f4\u8fdc\u7684\u661f\u661f\u8f6c\u7684\u66f4\u5feb\u3002\u6700\u540e\u51cf\u5c11\u6bcf\u9897\u661f\u661f\u79bb\u5c4f\u5e55\u4e2d\u5fc3\u7684\u8ddd\u79bb\u3002\r\n         \u8fd9\u6837\u770b\u8d77\u6765\uff0c\u661f\u661f\u4eec\u597d\u50cf\u88ab\u4e0d\u65ad\u5730\u5438\u5165\u5c4f\u5e55\u7684\u4e2d\u5fc3\u3002}\r\n         spin := spin + 0.01;           \/\/ \u661f\u661f\u7684\u516c\u8f6c\r\n         star&#x5B;loop].angle := star&#x5B;loop].angle + Trunc(loop) \/ 50;  \/\/ \u6539\u53d8\u661f\u661f\u7684\u81ea\u8f6c\u89d2\u5ea6\r\n         star&#x5B;loop].dist := star&#x5B;loop].dist - 0.01; \/\/ \u6539\u53d8\u661f\u661f\u79bb\u4e2d\u5fc3\u7684\u8ddd\u79bb\r\n\r\n         {\u63a5\u7740\u51e0\u884c\u68c0\u67e5\u661f\u661f\u662f\u5426\u5df2\u7ecf\u78b0\u5230\u4e86\u5c4f\u5e55\u4e2d\u5fc3\u3002\r\n         \u5f53\u661f\u661f\u78b0\u5230\u5c4f\u5e55\u4e2d\u5fc3\u65f6\uff0c\u6211\u4eec\u4e3a\u5b83\u8d4b\u4e00\u4e2a\u65b0\u989c\u8272\uff0c\u7136\u540e\u5f80\u5916\u79fb5\u4e2a\u5355\u4f4d\uff0c\r\n         \u8fd9\u9897\u661f\u661f\u5c06\u8e0f\u4e0a\u5b83\u56de\u5f52\u5c4f\u5e55\u4e2d\u5fc3\u7684\u65c5\u7a0b\u3002}\r\n\r\n         If (star&#x5B;loop].dist &lt; 0.0) Then \/\/ \u661f\u661f\u5230\u8fbe\u4e2d\u5fc3\u4e86\u4e48\r\n            Begin\r\n               star&#x5B;loop].dist := star&#x5B;loop].dist + 5.0; \/\/ \u5f80\u5916\u79fb5\u4e2a\u5355\u4f4d\r\n               star&#x5B;loop].r := random(256); \/\/ \u8d4b\u4e00\u4e2a\u65b0\u7ea2\u8272\u5206\u91cf\r\n               star&#x5B;loop].g := random(256); \/\/ \u8d4b\u4e00\u4e2a\u65b0\u7eff\u8272\u5206\u91cf\r\n               star&#x5B;loop].b := random(256); \/\/ \u8d4b\u4e00\u4e2a\u65b0\u84dd\u8272\u5206\u91cf\r\n            End;\r\n      End;\r\nEnd;\r\n\r\n{\r\n \u73b0\u5728\u6211\u4eec\u6dfb\u52a0\u76d1\u89c6\u952e\u76d8\u7684\u4ee3\u7801\u3002\r\n \u4e0b\u79fb\u5230WinMain()\u3002\u627e\u5230SwapBuffers(hDC)\u4e00\u884c\u3002\r\n \u6211\u4eec\u5c31\u5728\u8fd9\u4e00\u884c\u540e\u9762\u589e\u52a0\u952e\u76d8\u76d1\u89c6\u4ee3\u7801\u3002\r\n \u4ee3\u7801\u5c06\u68c0\u67e5T\u952e\u662f\u5426\u5df2\u6309\u4e0b\u3002\r\n \u5982\u679cT\u952e\u6309\u4e0b\u8fc7\uff0c\u5e76\u4e14\u53c8\u653e\u5f00\u4e86\uff0cif\u5757\u5185\u7684\u4ee3\u7801\u5c06\u88ab\u6267\u884c\u3002\r\n \u5982\u679ctwinkle\u4e3aFALSE\uff0c\u4ed6\u5c06\u53d8\u4e3aTRUE\u3002\r\n \u53cd\u4e4b\u4ea6\u7136\u3002\u53ea\u8981T\u952e\u6309\u4e0b\uff0c tp\u5c31\u53d8\u4e3aTRUE\u3002\r\n \u8fd9\u6837\u5904\u7406\u53ef\u4ee5\u9632\u6b62\u5982\u679c\u60a8\u4e00\u76f4\u6309\u7740T\u952e\u7684\u8bdd\uff0c\u5757\u5185\u7684\u4ee3\u7801\u88ab\u53cd\u590d\u6267\u884c\u3002\r\n }\r\n If (keys&#x5B;ord('T')] And Not tp) Then  \/\/ \u662f\u5426T \u952e\u5df2\u6309\u4e0b\u5e76\u4e14 tp\u503c\u4e3a FALSE\r\n    Begin\r\n       tp := TRUE;        \/\/ \u82e5\u662f\uff0c\u5c06tp\u8bbe\u4e3aTRUE\r\n       twinkle := Not twinkle; \/\/ \u7ffb\u8f6c twinkle\u7684\u503c\r\n    End;\r\n {\r\n \u4e0b\u9762\u7684\u4ee3\u7801\u68c0\u67e5\u662f\u5426\u677e\u5f00\u4e86T\u952e\u3002\r\n \u82e5\u662f\uff0c\u4f7f tp=FALSE\u3002\r\n \u9664\u975etp\u7684\u503c\u4e3aFALSE\uff0c\r\n \u5426\u5219\u6309\u7740T\u952e\u65f6\u4ec0\u4e48\u4e5f\u4e0d\u4f1a\u53d1\u751f\u3002\u6240\u4ee5\u8fd9\u884c\u4ee3\u7801\u5f88\u91cd\u8981\u3002\r\n }\r\n If (Not keys&#x5B;Ord('T')]) Then \/\/  T \u952e\u5df2\u677e\u5f00\u4e86\u4e48\uff1f\r\n    Begin\r\n       tp := FALSE;       \/\/ \u82e5\u662f \uff0ctp\u4e3a FALSE\r\n    End;\r\n {\u4f59\u4e0b\u7684\u4ee3\u7801\u68c0\u67e5\u4e0a\u3001\u4e0b\u65b9\u5411\u952e\uff0c\u5411\u4e0a\u7ffb\u9875\u952e\u6216\u5411\u4e0b\u7ffb\u9875\u952e\u662f\u5426\u6309\u4e0b\u3002}\r\n If (keys&#x5B;VK_UP]) Then    \/\/ \u4e0a\u65b9\u5411\u952e\u6309\u4e0b\u4e86\u4e48\uff1f\r\n    tilt := tilt - 0.5;   \/\/ \u5c4f\u5e55\u5411\u4e0a\u503e\u659c\r\n If (keys&#x5B;VK_DOWN]) Then  \/\/ \u4e0b\u65b9\u5411\u952e\u6309\u4e0b\u4e86\u4e48\uff1f\r\n    tilt := tilt + 0.5;   \/\/ \u5c4f\u5e55\u5411\u4e0b\u503e\u659c\r\n If (keys&#x5B;VK_PRIOR]) Then \/\/ \u5411\u4e0a\u7ffb\u9875\u952e\u6309\u4e0b\u4e86\u4e48\r\n    zoom := zoom - 0.2;   \/\/ \u7f29\u5c0f\r\n If (keys&#x5B;VK_NEXT]) Then  \/\/ \u5411\u4e0b\u7ffb\u9875\u952e\u6309\u4e0b\u4e86\u4e48\uff1f\r\n    zoom := zoom + 0.2;   \/\/ \u653e\u5927\r\n {\r\n \u8fd9\u4e00\u8bfe\u6211\u5c3d\u6211\u6240\u80fd\u6765\u89e3\u91ca\u5982\u4f55\u52a0\u8f7d\u4e00\u4e2a\u7070\u9636\u4f4d\u56fe\u7eb9\u7406\uff0c\r\n (\u4f7f\u7528\u6df7\u8272)\u53bb\u6389\u5b83\u7684\u80cc\u666f\u8272\u540e\uff0c\u518d\u7ed9\u5b83\u4e0a\u8272\uff0c\u6700\u540e\u8ba9\u5b83\u57283D\u573a\u666f\u4e2d\u79fb\u52a8\u3002\r\n \u6211\u5df2\u7ecf\u5411\u60a8\u5c55\u793a\u4e86\u5982\u4f55\u521b\u5efa\u6f02\u4eae\u7684\u989c\u8272\u4e0e\u52a8\u753b\u6548\u679c\u3002\r\n \u5b9e\u73b0\u539f\u7406\u662f\u5728\u539f\u59cb\u4f4d\u56fe\u4e0a\u518d\u91cd\u53e0\u4e00\u4efd\u4f4d\u56fe\u62f7\u8d1d\u3002\r\n \u5230\u73b0\u5728\u4e3a\u6b62\uff0c\u53ea\u8981\u60a8\u5f88\u597d\u7684\u7406\u89e3\u4e86\u6211\u6240\u6559\u60a8\u7684\u4e00\u5207\uff0c\r\n \u60a8\u5e94\u8be5\u5df2\u7ecf\u80fd\u591f\u6beb\u65e0\u95ee\u9898\u7684\u5236\u4f5c\u60a8\u81ea\u5df1\u76843D Demo\u4e86\u3002\r\n \u6240\u6709\u7684\u57fa\u7840\u77e5\u8bc6\u90fd\u5df2\u5305\u62ec\u5728\u5185\uff01}\r\n\r\n\/\/========myling \uff1a\r\n\r\n\/\/1-9\u8bfe\u5df2\u7ecf\u7ffb\u8bd1\u5b8c\u4e86\uff0c\u5c31\u8c61NEHE\u8bf4\u7684\uff0c\u57fa\u672c\u7684\u77e5\u8bc6\u5df2\u7ecf\u57fa\u672c\u8bf4\u5b8c\u4e86\r\n\r\n\/\/\u6211\u770b\u4e86\u4e0b\u540e\u9762\u7684\u6559\u7a0b\uff0c\u597d\u50cf\u662f\u51fa\u81ea\u5176\u4ed6\u4eba\u4e4b\u624b\uff0c\u5982\u679c\u6709\u597d\u7684\u4f8b\u5b50\uff0c\u6211\u4f1a\u9009\u62e9\u6027\u7684\u7ee7\r\n\r\n\/\/\u7eed\u8d34\u7684\uff0c\u597d\u7d2f\uff0c\u7761\u4e00\u4f1a:)  ,\u4e0b\u6b21\u89c1\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>{ \u6b22\u8fce\u8fdb\u5165\u7b2c\u4e5d\u8bfe\u3002\u5230\u73b0\u5728\u4e3a\u6b62\uff0c\u60a8\u5e94\u8be5\u5f88\u597d\u7684\u7406\u89e3OpenGL\u4e86\u3002 \u300eCKER\uff1a\u5982\u679c\u6ca1\u6709\u7684\u8bdd\uff0c\u4e00\u5b9a\u662f\u6211\u7ffb\u8bd1\u7684\u7f6a\u8fc7 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-646","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/646","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=646"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/646\/revisions"}],"predecessor-version":[{"id":4721,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/646\/revisions\/4721"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=646"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=646"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=646"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}