[Perl]使用 POGL Shader 實(shí)現(xiàn)高效渲染 Julia集 動畫

523066680

推薦 Perl 環(huán)境：5.24 Portable Edition
官方鏈接：Strawberry Perl Releases

Portable 版環(huán)境配置說明：Strawberry Perl 環(huán)境配置 以及 版本推薦

需要安裝的模塊：
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     按 '[' 和 ']' 調(diào)整閥值，按 - 和 = 調(diào)整迭代深度     空格鍵 - 暫停/繼續(xù)     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 編譯不成功，錯(cuò)誤信息會返回到 $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

我想學(xué)習(xí)下，下載OpenGL-0.70安裝后，說時(shí)間戳沒有更新，不知是否重要，又如何手動更新？
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);

機(jī)械臂

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

浩瀚



旋轉(zhuǎn)的階梯

fender0107401

lz威武。

rubyish

O~~ BTF!!
3 Q ~~:

523066680

Colorful


  

Mandbrot: Z=Z^4+C

hztj2005

樓主，我在2樓說到，安裝 OpenGL::Shader不能通過測試，然后我在下面鏈接中發(fā)帖問，仍然沒有成功。
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 是可以運(yùn)行的。

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. }
     

復(fù)制代碼

523066680

回復(fù) 8# hztj2005

那就更省事啦~ 我的可能是有什么變動導(dǎo)致……

rubyish

1: ppm