Clean up. This dir is still on experimental branch
[sdlgit/SDL_perl.git] / test / OpenGL / tutorial / lesson07.pl
1 #!/usr/bin/perl
2 # This code is based on the code by Jeff Molofee '99
3 # and ported to SDL by Sam Lantinga '2000
4 # Original ported to Perl/SDL by Wayne Keenan '2000
5 # And updated by David Goehrig '02
6 #
7 #
8 # Jeff's tutorials can be found at www.demonews.com/hosted/nehe 
9
10 use strict;
11 use Getopt::Long;
12 use Data::Dumper;
13 use Benchmark;
14
15 use SDL;
16 use SDL::App;
17 use SDL::OpenGL;
18 use SDL::Event;
19 use SDL::Surface;
20 use SDL::OpenGL;
21
22 my $arg_screen_width =640;
23 my $arg_screen_height=512;
24 my $arg_fullscreen=0;
25
26 GetOptions(
27            "width:i"        => \$arg_screen_width,
28            "height:i"       => \$arg_screen_height,
29            "fullscreen!"    => \$arg_fullscreen,
30           ) or die $!;
31
32 ############################################################
33
34 my  $light = 0;
35
36 my $xrot=0;   # x rotation 
37 my $yrot=0;   # y rotation 
38 my $xspeed=0; # x rotation speed
39 my $yspeed=0; # y rotation speed
40
41 my $z=-5.0; # depth into the screen.
42
43 my $filter = 1; # Which Filter To Use (nearest/linear/mipmapped) */
44
45 main();
46 exit;
47
48 sub main
49   {  
50    my $done=0;
51    my $vidmode_flags= SDL_OPENGL;
52
53    $vidmode_flags|= SDL_FULLSCREEN if $arg_fullscreen;
54    
55    my $app = new SDL::App ( -title => "Jeff Molofee's GL Code Tutorial ... NeHe '99", 
56                             -icon => "icon.png",
57                             -flags => $vidmode_flags,                   
58                             -width => $arg_screen_width,
59                             -height =>$arg_screen_height,
60                             -opengl => 1,
61                           );
62    
63    SDL::ShowCursor(0);   
64
65    my $event = new SDL::Event;
66    $event->set(SDL_SYSWMEVENT,SDL_IGNORE);
67
68    InitGL($arg_screen_width, $arg_screen_height);
69
70    while ( not $done ) 
71      {
72       
73       DrawGLScene();
74
75       $app->sync();
76       
77       $event->pump;
78       $event->poll;
79       
80       $done = 1 if ( $event->type == SDL_QUIT ) ;
81
82       
83       if ( $event->type == SDL_KEYDOWN ) 
84         {
85          my $key= $event->key_sym;
86
87          $done = 1 if ( $key == SDLK_ESCAPE ) ;
88          
89
90          if ($key==SDLK_l)
91            {
92             printf("Light was: %d\n", $light);
93             $light = $light ? 0 : 1;    # switch the current value of light, between 0 and 1.
94             printf("Light is now: %d\n", $light);
95             if (!$light) 
96               {
97                glDisable(GL_LIGHTING);
98               } 
99             else 
100               {
101                glEnable(GL_LIGHTING);
102               }
103             
104            }
105          if ($key==SDLK_f)
106            {
107             printf("Filter was: %d\n", $filter);
108             $filter = 1+(($filter) % 3) ;
109             printf("Filter is now: %d\n", $filter);      
110            } 
111
112          #bit lax:
113          $z-=0.02      if ( $key == SDLK_PAGEUP );
114          $z+=0.02      if ( $key == SDLK_PAGEDOWN );
115          $xspeed+=0.02 if ( $key == SDLK_UP );
116          $xspeed-=0.02 if ( $key == SDLK_DOWN );         
117          $yspeed-=0.01 if ( $key == SDLK_LEFT );
118          $yspeed+=0.01 if ( $key == SDLK_RIGHT );
119          
120         }
121      }
122   }
123
124
125
126
127
128
129 #########################################################################
130 #Pretty much in original form, but 'Perlised' 
131
132
133
134
135 sub InitGL
136   {
137    my ($Width, $Height) = @_;
138
139    glViewport(0, 0, $Width, $Height);
140
141    LoadGLTextures();                            # Load The Texture(s) 
142
143    glEnable(GL_TEXTURE_2D);                     # Enable Texture Mapping
144
145    
146    glClearColor(0.0, 0.0, 0.0, 0.0);                            # This Will Clear The Background Color To Black
147    glClearDepth(1.0);                                           # Enables Clearing Of The Depth Buffer
148    glDepthFunc(GL_LESS);                                        # The Type Of Depth Test To Do
149    glEnable(GL_DEPTH_TEST);                                     # Enables Depth Testing
150    glShadeModel(GL_SMOOTH);                                     # Enables Smooth Color Shading
151    
152    glMatrixMode(GL_PROJECTION);
153    glLoadIdentity();                                            # Reset The Projection Matrix
154    
155    gluPerspective(45.0, $Width/$Height, 0.1, 100.0);            # Calculate The Aspect Ratio Of The Window
156    
157    glMatrixMode(GL_MODELVIEW);
158
159    
160    my $LightAmbient  = [ 0.5, 0.5, 0.5, 1.0 ];                   # white ambient light at half intensity (rgba) */
161
162    my $LightDiffuse  = [ 1.0, 1.0, 1.0, 1.0 ];                    # super bright, full intensity diffuse light. */
163
164    my $LightPosition = [ 0.0 , 0.0, 2.0, 1.0 ];                 # position of light (x, y, z, (position of light)) */
165
166
167
168    #hmm, undefine:
169    glLight(GL_LIGHT1, GL_AMBIENT, @$LightAmbient);  # add lighting. (ambient)
170    glLight(GL_LIGHT1, GL_DIFFUSE, @$LightDiffuse);  # add lighting. (diffuse).
171    glLight(GL_LIGHT1, GL_POSITION,@$LightPosition); # set light position.
172    glEnable(GL_LIGHT1);                             # turn light 1 on.  
173   }
174
175
176
177 # The main drawing function.
178 sub DrawGLScene
179   {
180    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);          # Clear The Screen And The Depth Buffer
181    glLoadIdentity();                                            # Reset The View
182    
183    glTranslate(0.0,0.0,$z);                  # move z units out from the screen.
184     
185    glRotate($xrot,1.0,0.0,0.0);         # Rotate On The X Axis
186    glRotate($yrot,0.0,1.0,0.0);         # Rotate On The Y Axis
187    
188    glBindTexture(GL_TEXTURE_2D, $filter);                       # choose the texture to use.
189    
190    glBegin(GL_QUADS);                                           # begin drawing a cube
191    
192    # Front Face (note that the texture's corners have to match the quad's corners)
193    glNormal( 0.0, 0.0, 1.0);                                    # front face points out of the screen on z.
194    glTexCoord(0.0, 0.0); glVertex(-1.0, -1.0,  1.0);    # Bottom Left Of The Texture and Quad
195    glTexCoord(1.0, 0.0); glVertex( 1.0, -1.0,  1.0);    # Bottom Right Of The Texture and Quad
196    glTexCoord(1.0, 1.0); glVertex( 1.0,  1.0,  1.0);    # Top Right Of The Texture and Quad
197    glTexCoord(0.0, 1.0); glVertex(-1.0,  1.0,  1.0);    # Top Left Of The Texture and Quad
198    
199    # Back Face
200    glNormal( 0.0, 0.0,-1.0);                                    # back face points into the screen on z.
201    glTexCoord(1.0, 0.0); glVertex(-1.0, -1.0, -1.0);    # Bottom Right Of The Texture and Quad
202    glTexCoord(1.0, 1.0); glVertex(-1.0,  1.0, -1.0);    # Top Right Of The Texture and Quad
203    glTexCoord(0.0, 1.0); glVertex( 1.0,  1.0, -1.0);    # Top Left Of The Texture and Quad
204    glTexCoord(0.0, 0.0); glVertex( 1.0, -1.0, -1.0);    # Bottom Left Of The Texture and Quad
205    
206    # Top Face
207    glNormal( 0.0, 1.0, 0.0);                                    # top face points up on y.
208    glTexCoord(0.0, 1.0); glVertex(-1.0,  1.0, -1.0);    # Top Left Of The Texture and Quad
209    glTexCoord(0.0, 0.0); glVertex(-1.0,  1.0,  1.0);    # Bottom Left Of The Texture and Quad
210    glTexCoord(1.0, 0.0); glVertex( 1.0,  1.0,  1.0);    # Bottom Right Of The Texture and Quad
211    glTexCoord(1.0, 1.0); glVertex( 1.0,  1.0, -1.0);    # Top Right Of The Texture and Quad
212    
213    # Bottom Face       
214    glNormal( 0.0, -1.0, 0.0);                                   # bottom face points down on y. 
215    glTexCoord(1.0, 1.0); glVertex(-1.0, -1.0, -1.0);    # Top Right Of The Texture and Quad
216    glTexCoord(0.0, 1.0); glVertex( 1.0, -1.0, -1.0);    # Top Left Of The Texture and Quad
217    glTexCoord(0.0, 0.0); glVertex( 1.0, -1.0,  1.0);    # Bottom Left Of The Texture and Quad
218    glTexCoord(1.0, 0.0); glVertex(-1.0, -1.0,  1.0);    # Bottom Right Of The Texture and Quad
219    
220    # Right face
221    glNormal( 1.0, 0.0, 0.0);                                    # right face points right on x.
222    glTexCoord(1.0, 0.0); glVertex( 1.0, -1.0, -1.0);    # Bottom Right Of The Texture and Quad
223    glTexCoord(1.0, 1.0); glVertex( 1.0,  1.0, -1.0);    # Top Right Of The Texture and Quad
224    glTexCoord(0.0, 1.0); glVertex( 1.0,  1.0,  1.0);    # Top Left Of The Texture and Quad
225    glTexCoord(0.0, 0.0); glVertex( 1.0, -1.0,  1.0);    # Bottom Left Of The Texture and Quad
226    
227    # Left Face
228    glNormal(-1.0, 0.0, 0.0);                                    # left face points left on x.
229    glTexCoord(0.0, 0.0); glVertex(-1.0, -1.0, -1.0);    # Bottom Left Of The Texture and Quad
230    glTexCoord(1.0, 0.0); glVertex(-1.0, -1.0,  1.0);    # Bottom Right Of The Texture and Quad
231    glTexCoord(1.0, 1.0); glVertex(-1.0,  1.0,  1.0);    # Top Right Of The Texture and Quad
232    glTexCoord(0.0, 1.0); glVertex(-1.0,  1.0, -1.0);    # Top Left Of The Texture and Quad
233    
234    glEnd();                                                     # done with the polygon.
235    
236    $xrot+=$xspeed;                                              # X Axis Rotation       
237    $yrot+=$yspeed;                                              # Y Axis Rotation
238    
239    
240    
241   }
242
243
244
245
246 sub LoadGLTextures
247   {
248     # Load Texture
249
250    
251    my ($pixels, $width, $height, $size)=ImageLoad("Data/crate.png");
252    
253    # Create Texture     
254    
255    glGenTextures(3);
256    
257    # texture 1 (poor quality scaling)
258    glBindTexture(GL_TEXTURE_2D, 1);                     # 2d texture (x and y size)
259    
260    glTexParameter(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_NEAREST); # cheap scaling when image bigger than texture
261    glTexParameter(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST); # cheap scaling when image smalled than texture
262    
263    # 2d texture, level of detail 0 (normal), 3 components (red, green, blue), x size from image, y size from image, 
264    # border 0 (normal), rgb color data, unsigned byte data, and finally the data itself.
265    #glTexImage2D(GL_TEXTURE_2D, 0, 3, image1->w, image1->h, 0, GL_RGB, GL_UNSIGNED_BYTE, image1->pixels);
266    
267    glTexImage2D(GL_TEXTURE_2D, 
268                   0,                                            #level (0 normal, heighr is form mip-mapping)
269                   3,                                            #internal format (3=GL_RGB)
270                   $width,$height,
271                   0,                                            # border 
272                   GL_RGB,                                       #format RGB color data
273                   GL_UNSIGNED_BYTE,                             #unsigned bye data
274                   $pixels);                             #ptr to texture data
275    
276
277
278    # texture 2 (linear scaling)
279    glBindTexture(GL_TEXTURE_2D, 2);                     # 2d texture (x and y size)
280    glTexParameter(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR); # scale linearly when image bigger than texture
281    glTexParameter(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR); # scale linearly when image smalled than texture
282    #glTexImage2D(GL_TEXTURE_2D, 0, 3, image1->w, image1->h, 0, GL_RGB, GL_UNSIGNED_BYTE, image1->pixels);
283    
284    glTexImage2D(GL_TEXTURE_2D, 
285                   0,                                            #level (0 normal, heighr is form mip-mapping)
286                   3,                                            #internal format (3=GL_RGB)
287                   $width,$height,
288                   0,                                            # border 
289                   GL_RGB,                                       #format RGB color data
290                   GL_UNSIGNED_BYTE,                             #unsigned bye data
291                   $pixels);                             #ptr to texture data
292
293
294
295    
296    # texture 3 (mipmapped scaling)
297    glBindTexture(GL_TEXTURE_2D, 3);                     # 2d texture (x and y size)
298    glTexParameter(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR); # scale linearly when image bigger than texture
299    glTexParameter(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR_MIPMAP_NEAREST); # scale linearly + mipmap when image smalled than texture
300    #glTexImage2D(GL_TEXTURE_2D, 0, 3, image1->w, image1->h, 0, GL_RGB, GL_UNSIGNED_BYTE, image1->pixels);
301    
302    glTexImage2D(GL_TEXTURE_2D, 
303                   0,                                            #level (0 normal, heighr is form mip-mapping)
304                   3,                                            #internal format (3=GL_RGB)
305                   $width,$height,
306                   0,                                            # border 
307                   GL_RGB,                                       #format RGB color data
308                   GL_UNSIGNED_BYTE,                             #unsigned bye data
309                   $pixels);                             #ptr to texture data
310    
311    # 2d texture, 3 colors, width, height, RGB in that order, byte data, and the data.
312    gluBuild2DMipmaps(GL_TEXTURE_2D, 3, $width, $height, GL_RGB, GL_UNSIGNED_BYTE, $pixels); 
313    
314    my $glerr=glGetError();
315    die "Problem setting up 2d Texture (dimensions not a power of 2?)):".gluErrorString($glerr)."\n" if $glerr;
316    
317   }
318
319
320
321
322
323
324
325
326
327
328
329 #somthing needs to keep the ref count alive for objects which represents data in C space (they have no ref count):
330 my @ref=();
331  
332 sub ImageLoad
333   {
334    my $filename=shift;
335
336    my $surface = new SDL::Surface( -name  => $filename); #makes use of SDL: BMP loader.
337    
338    
339    my $width=$surface->width();
340    my $height=$surface->height();
341    my $bytespp=  $surface->bytes_per_pixel();
342    my $size=   $width*$height*$bytespp;
343
344    my $surface_pixels=$surface->pixels();
345    my $surface_size=$width*$height*$surface->bytes_per_pixel();
346    my $raw_pixels = $surface_pixels;   
347    
348
349    
350    #do a conversion (the pixel data is accessable as a simple string)
351
352    my $pixels=$raw_pixels;
353    my $pre_conv= $pixels;                 #rotate image 180 degrees!
354    my $new_pixels="";
355    for (my $y=0; $y< $height; $y++)
356      {
357       my $y_pos=$y*$width*$bytespp;              #calculate offset into the image (a string)
358       my $row=substr ($pre_conv, $y_pos, $width*$bytespp); #extract 1 pixel row
359       $row =~ s/\G(.)(.)(.)/$3$2$1/gms;                    #turn the BMP BGR order into OpenGL RGB order;  
360       $new_pixels.= reverse $row;       
361      }
362    
363    $raw_pixels  = $new_pixels;                #put transformed data into C array.
364    push @ref, $raw_pixels, $surface;
365
366    #we could have created another SDL surface frm the '$raw_pixel's... oh well.
367    return ($raw_pixels, $width, $height, $size);
368   }