[Perl]使用 POGL Shader 实现高效渲染 Julia集 动画

523066680

推荐 Perl 环境：5.24 Portable Edition
官方链接：Strawberry Perl Releases

Portable 版环境配置说明：Strawberry Perl 环境配置 以及 版本推荐

需要安装的模块：
https://metacpan.org/release/OpenGL
https://metacpan.org/pod/OpenGL::Shader

PDL版本的Strawberry Perl 虽然自带OPENGL模块，但是加载 Shader 有问题，最好下载源码包重新编译安装。

=info     Auth:523066680     Date:2017-07     https://www.shadertoy.com/view/ld2fzw     按 '[' 和 ']' 调整阀值，按 - 和 = 调整迭代深度     空格键 - 暂停/继续     q or Q - 退出 =cut use OpenGL qw/ :all /; use OpenGL::Config; use OpenGL::Shader; use Time::HiRes 'sleep'; use feature 'state'; use IO::Handle; STDOUT->autoflush(1); our $ang = 0.0; our $iter = 1000.0; our $test = 80.0; our ($cx, $cy); our $vTest; our $vIter; our $vC; our $PAUSE = 0; &Main(); sub display {     glClear(GL_COLOR_BUFFER_BIT);     glDrawArrays(GL_POINTS, 0, 1);     glutSwapBuffers(); } sub idle {     sleep 0.03;     $ang += 0.05 if ($PAUSE == 0);     $cx = cos($ang);     $cy = sin($ang);     glVertexAttrib2fARB($vC, $cx, $cy);     glutPostRedisplay(); } sub init {     glClearColor(0.0, 0.0, 0.0, 1.0);     my $shdr = new OpenGL::Shader('GLSL');     my $ver = $shdr->GetVersion();     my $stat = $shdr->Load( frag_Shader(), vert_Shader() );     $shdr->Enable();     #如果 shader 编译不成功，错误信息会返回到 $stat     print "$stat $ver\n";     glPointSize(480.0);         $vTest = $shdr->MapAttr('vTest');     $vIter = $shdr->MapAttr('vIter');     $vC = $shdr->MapAttr('vC');     glVertexAttrib1fARB($vTest, $test);     glVertexAttrib1fARB($vIter, $iter);     glVertexAttrib2fARB($vC, $cx, $cy); } sub hitkey {     my $key = shift;     my $char = chr($key);     if ( lc($char) eq 'q' ) { glutDestroyWindow($WinID) }     elsif ($char eq '[')  { $test -= 1.0 if ( $test > 1.0 ) }     elsif ($char eq ']')  { $test += 1.0 }     elsif ($char eq '-')  { $iter -= $iter*0.2 if ( $iter > 1.0 ) }     elsif ($char eq '=')  { $iter += $iter*0.2  }     elsif ($char eq ' ')  { $PAUSE = 1 - $PAUSE }     printf("test: %.2f, iter: %.2f\n", $test, $iter );     glVertexAttrib1fARB($vTest, $test);     glVertexAttrib1fARB($vIter, $iter); } sub Main {     glutInit();     glutInitDisplayMode(GLUT_RGBA | GLUT_DOUBLE );     glutInitWindowSize(500, 500);     glutInitWindowPosition(1,1);     our $WinID = glutCreateWindow("title");     &init();     glutDisplayFunc(\&display);     glutKeyboardFunc(\&hitkey);     glutIdleFunc(\&idle);     glutMainLoop(); } sub frag_Shader {     return '     varying float fTest;     varying float fIter;     varying vec2 fC;     void main(void)     {         vec2 coord = (gl_FragCoord.xy - 250.0) / 100.0;         vec4 color;         vec2 C = fC;         vec2 Z = coord.xy;         int iterations = 0;         int max_iterations = int(fIter);         float rate;         float threshold_squared = fTest;         while ( (iterations < max_iterations) && (dot(Z, Z) < threshold_squared) )         {             vec2 tZ;             tZ.x = Z.x * Z.x - Z.y * Z.y + C.x;             tZ.y = Z.x * Z.y * 2.0 + C.y;             Z = tZ;             iterations++;         }         if (iterations == max_iterations)         {             color = vec4(0.3, 0.1, 0.1, 1.0);         }         else         {             rate =  float(iterations)/float(max_iterations)*100.0;             //color = vec4(rate, rate, rate, 1.0);  //default color             color = vec4(rate, smoothstep(exp(Z.x), 0.0, 0.5), rate, 1.0);         }         gl_FragColor = color;     }     ' } sub vert_Shader {     return '     attribute float vTest;     attribute float vIter;     attribute vec2 vC;     varying float fTest;     varying float fIter;     varying vec2 fC;     void main(void)     {         fTest = vTest;         fIter = vIter;         fC    = vC;         gl_Position = vec4(0.0, 0.0, 0.0, 1.0);     }     '; }

[Finished in 0.3s]

hztj2005

我想学习下，下载OpenGL-0.70安装后，说时间戳没有更新，不知是否重要，又如何手动更新？
D:\strawberryportable\OpenGL-0.70>dmake install
"D:\strawberryportable\perl\bin\perl.exe" -MExtUtils::Command::MM -e cp_nonempty -- OpenGL.bs blib\arch\auto\OpenGL\OpenGL.bs 644
Files found in blib\arch: installing files in blib\lib into architecture dependent library tree
Installing D:\strawberryportable\perl\site\lib\auto\OpenGL\freeglut.dll
Installing D:\strawberryportable\perl\site\lib\auto\OpenGL\OpenGL.xs.dll
Installing D:\strawberryportable\perl\site\lib\OpenGL.pm
Installing D:\strawberryportable\perl\site\lib\OpenGL.pod
Installing D:\strawberryportable\perl\site\lib\auto\OpenGL\autosplit.ix
Installing D:\strawberryportable\perl\site\lib\OpenGL\Array.pod
Installing D:\strawberryportable\perl\site\lib\OpenGL\Config.pm
Installing D:\strawberryportable\perl\site\lib\OpenGL\Tessellation.pod
Appending installation info to D:\strawberryportable\perl\lib/perllocal.pod
dmake:  Warning: -- Target [install] was made but the time stamp has not been updated.


接着，下载OpenGL-Shader-1.01，安装不能通过测试。#version directive missing

D:\strawberryportable\OpenGL-Shader-1.01>dmake test
"D:\strawberryportable\perl\bin\perl.exe" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib\lib', 'blib\arch')" t/*.t
t/OpenGL-Shader.t ..
________________________________________
Testing OpenGL::Shader
----------------------------------------
* ok: Installed: OpenGL v0.7
* ok: OpenGL::Shader module loaded: v1.01
Available shader types:
  ARB v1.0 - ARBfp1.0 and ARBvp1.0 Assembly
  GLSL v4.40 - OpenGL Shader Language
* ok: 2 shader type(s) reported
Use of uninitialized value $type in uc at D:\strawberryportable\OpenGL-Shader-1.01\blib\lib/OpenGL/Shader/Common.pm line 109.
Instantiated ARB v1.0
* ok: Loaded ARB shader from: fragment.arb, vertex.arb
Use of uninitialized value $type in uc at D:\strawberryportable\OpenGL-Shader-1.01\blib\lib/OpenGL/Shader/Common.pm line 109.
Instantiated GLSL v4.40
* fail: Unable to load GLSL shader: Fragment shader: WARNING: 0:2: '' :  #version directive missing

* skip: CG shader test
________________________________________
t/OpenGL-Shader.t .. Failed 1/6 subtests
        (less 1 skipped subtest: 4 okay)
Test Summary Report
-------------------
t/OpenGL-Shader.t (Wstat: 0 Tests: 6 Failed: 1)
  Failed test:  5
Files=1, Tests=6,  0 wallclock secs ( 0.05 usr +  0.02 sys =  0.06 CPU)
Result: FAIL
Failed 1/1 test programs. 1/6 subtests failed.
dmake:  Error code 255, while making 'test_dynamic'

523066680

Sharp
  
迭代公式：
uZ.x = exp(tZ.x) * cos(tZ.y) * C.x;
uZ.y = exp(tZ.x) * sin(tZ.y) * C.y;

Julia之眼

迭代公式：
tZ.x = Z.x * Z.x - Z.y * Z.y + C.x;
tZ.y = Z.x * Z.y * 2.0 + C.y;
着色：
color = vec4(rate, exp(Z.x), rate, 1.0);

机械臂

tZ.x = Z.x * Z.x - Z.y * Z.y + C.x;
tZ.y = Z.x * Z.y * 1.0 + C.y;
着色：
color = vec4(rate, exp(Z.x), rate, 1.0);

图腾


Z=Z^3+C

浩瀚



旋转的阶梯

fender0107401

lz威武。

rubyish

O~~ BTF!!
3 Q ~~:

523066680

Colorful


  

Mandbrot: Z=Z^4+C

hztj2005

楼主，我在2楼说到，安装 OpenGL::Shader不能通过测试，然后我在下面链接中发帖问，仍然没有成功。
http://www.perlmonks.com/?node_id=1196261
但是，上面链接中有这么一段建议：
A somewhat more recent version of OpenGL bindings is OpenGL::Modern, which also tries to be compatible to OpenGL and OpenGL::Shader, so maybe you want to try that if you want to do shader oriented programming.
与OpenGL相绑定的某种程度更新版本是OpenGL :: Modern，它也尝试兼容OpenGL和OpenGL :: Shader，所以也许你想尝试这样做，如果你想做着色器方向编程。

楼主能否尝试一下，把上面代码用OpenGL::Modern模块修改一下。

hztj2005

楼主，我从安装包中D:\strawberryportable\OpenGL-Shader-1.01\blib\lib\OpenGL 找到的下面代码： shader-test.pl 是可以运行的。

1. #!/usr/bin/perl
   
2. 
   
3. # Purpose: Simple demo of per-pixel lighting with GLSL and OpenGL::Shader
   
4. 
   
5. # Copyright (c) 2007, Geoff Broadwell; this script is released
   
6. # as open source and may be distributed and modified under the terms
   
7. # of either the Artistic License or the GNU General Public License,
   
8. # in the same manner as Perl itself.  These licenses should have been
   
9. # distributed to you as part of your Perl distribution, and can be
   
10. # read using `perldoc perlartistic` and `perldoc perlgpl` respectively.
    
11. 
    
12. use strict;
    
13. use warnings;
    
14. use OpenGL ':all';
    
15. use OpenGL::Shader;
    
16. use Time::HiRes 'time';
    
17. 
    
18. our $VERSION = '0.1.0';
    
19. 
    
20. my $width  = 1000;
    
21. my $height = 1000;
    
22. my ($frames, $start);
    
23. my ($window, $teapot);
    
24. my ($shader, $shader_enabled);
    
25. 
    
26. go();
    
27. 
    
28. sub go {
    
29.     # Simple usage
    
30.     print "Press 'Q' or 'Esc' to exit, or any other key to toggle shader.\n";
    
31. 
    
32.     # GLUT setup
    
33.     glutInit;
    
34.     glutInitDisplayMode(GLUT_RGB | GLUT_DOUBLE | GLUT_DEPTH);
    
35.     glutInitWindowSize($width, $height);
    
36. 
    
37.     $window = glutCreateWindow('Shader Test');
    
38. 
    
39.     glutIdleFunc    (\&cb_draw);
    
40.     glutDisplayFunc (\&cb_draw);
    
41.     glutKeyboardFunc(\&cb_keyboard);
    
42. 
    
43.     # Shader program
    
44.     $shader      = new OpenGL::Shader('GLSL');
    
45.     die "This program requires support for GLSL shaders.\n" unless $shader;
    
46. 
    
47.     my $fragment = fragment_shader();
    
48.     my $vertex   = vertex_shader();
    
49.     my $info     = $shader->Load($fragment, $vertex);
    
50.     print $info if $info;
    
51.     toggle_shader();
    
52. 
    
53.     # Display list for teapot
    
54.     $teapot = glGenLists(1);
    
55.     glNewList($teapot, GL_COMPILE);
    
56.     glutSolidTeapot(1);
    
57.     glEndList;
    
58. 
    
59.     # Unchanging GL config
    
60.     glViewport(0, 0, $width, $height);
    
61. 
    
62.     glEnable(GL_DEPTH_TEST);
    
63. 
    
64.     glMatrixMode(GL_PROJECTION);
    
65.     glLoadIdentity;
    
66.     gluPerspective(90, $width/$height, 1, 10);
    
67.     glMatrixMode(GL_MODELVIEW);
    
68. 
    
69.     glShadeModel(GL_SMOOTH);
    
70.     glLightModeli(GL_LIGHT_MODEL_LOCAL_VIEWER, GL_TRUE);
    
71.     glEnable(GL_LIGHTING);
    
72.     glEnable(GL_LIGHT0);
    
73.     glLightfv_p(GL_LIGHT0, GL_POSITION, 4, 4, 4, 1);
    
74. 
    
75.     glMaterialfv_p(GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, 1, .7, .7, 1);
    
76.     glMaterialfv_p(GL_FRONT_AND_BACK, GL_SPECULAR,            1,  1,  1, 1);
    
77.     glMaterialf   (GL_FRONT_AND_BACK, GL_SHININESS,           50          );
    
78. 
    
79.     # Actually start the test
    
80.     $start = time;
    
81.     glutMainLoop;
    
82. }
    
83. 
    
84. sub cb_draw {
    
85.     glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
    
86. 
    
87.     glLoadIdentity;
    
88.     glTranslatef(0, 0, -3);
    
89. 
    
90.     my $slow_time = time / 5;
    
91.     my $frac_time = $slow_time - int $slow_time;
    
92.     my $angle     = $frac_time * 360;
    
93.     glRotatef($angle, 0, 1, 0);
    
94.     glRotatef(30, 1, 0, 0);
    
95. 
    
96.     glCallList($teapot);
    
97. 
    
98.     glutSwapBuffers;
    
99. 
    
100.     $frames++;
     
101. }
     
102. 
     
103. sub cb_keyboard {
     
104.     my $key = shift;
     
105.     my $chr = lc chr $key;
     
106. 
     
107.     if ($key == 27 or $chr eq 'q') {
     
108.         my $time = time - $start;
     
109.         my $fps  = $frames / $time;
     
110.         printf "%.3f FPS\n", $fps;
     
111. 
     
112.         glutDestroyWindow($window);
     
113.         exit(0);
     
114.     }
     
115.     else {
     
116.         toggle_shader();
     
117.     }
     
118. }
     
119. 
     
120. sub toggle_shader {
     
121.     $shader_enabled = !$shader_enabled;
     
122.     $shader_enabled ? $shader->Enable : $shader->Disable;
     
123. }
     
124. 
     
125. sub vertex_shader {
     
126.     return <<'VERTEX';
     
127. 
     
128. varying vec3 Normal;
     
129. varying vec3 Position;
     
130. 
     
131. void main(void) {
     
132.     gl_Position = ftransform();
     
133.     Position    = vec3(gl_ModelViewMatrix * gl_Vertex);
     
134.     Normal      = gl_NormalMatrix * gl_Normal;
     
135. }
     
136. 
     
137. VERTEX
     
138. }
     
139. 
     
140. sub fragment_shader {
     
141.     return <<'FRAGMENT';
     
142. 
     
143. varying vec3 Position;
     
144. varying vec3 Normal;
     
145. 
     
146. void main(void) {
     
147.     vec3 normal    = normalize(Normal);
     
148.     vec3 reflected = normalize(reflect(Position, normal));
     
149.     vec3 light_dir = normalize(vec3(gl_LightSource[0].position) - Position);
     
150. 
     
151.     float diffuse  = max  (dot(light_dir, normal   ), 0.0);
     
152.     float spec     = clamp(dot(light_dir, reflected), 0.0, 1.0);
     
153.           spec     = pow  (spec, gl_FrontMaterial.shininess);
     
154. 
     
155.     gl_FragColor   =             gl_FrontLightModelProduct.sceneColor
     
156.                      +           gl_FrontLightProduct[0].ambient
     
157.                      + diffuse * gl_FrontLightProduct[0].diffuse
     
158.                      + spec    * gl_FrontLightProduct[0].specular;
     
159. }
     
160. 
     
161. FRAGMENT
     
162. }
     

复制代码

523066680

回复 8# hztj2005

那就更省事啦~ 我的可能是有什么变动导致……

rubyish

1: ppm