3 # Bezier Surface example
11 my $app = new SDL::App -w => 800, -h => 600, -d => 16, -gl => 1;
13 my $knots = pack "f8", 0,0,0,0,1,1,1,1;
14 my $edgePts = pack "f10", 0,0,1,0,1,1,0,1,0,0;
15 my $curvePts = pack "f8", 0.25,0.5,0.25,0.75,0.75,0.75,0.75,0.5;
16 my $curveKnots = pack "f8", 0,0,0,0,1,1,1,1;
17 my $pwlPts = pack "f8", 0.75, 0.5, 0.5, 0.25, 0.25, 0.5, 0, 0;
20 glViewport(0,0,800,600);
21 glMatrixMode(GL_PROJECTION());
23 glFrustum (-0.1,0.1,-0.075,0.075,0.3,100.0 );
24 glMatrixMode(GL_MODELVIEW());
27 glClearColor(0.0, 0.0, 0.0, 0.0);
28 glShadeModel(GL_SMOOTH());
32 glEnable(GL_LIGHTING());
33 glEnable(GL_LIGHT0());
34 glEnable(GL_DEPTH_TEST());
35 glEnable(GL_AUTO_NORMAL());
36 glEnable(GL_NORMALIZE());
37 glLight(GL_LIGHT0(),GL_AMBIENT(),0.3,0.3,0.3,1.0);
38 glLight(GL_LIGHT0(),GL_POSITION(), 1.0,0.0,2.0,1.0);
39 glMaterial(GL_FRONT(), GL_DIFFUSE(),0.6,0.6,0.6,1.0);
40 glMaterial(GL_FRONT(), GL_SPECULAR(), 1.0, 1.0, 1.0, 1.0);
41 glMaterial(GL_FRONT(), GL_SHININESS(), 40.0);
49 for my $u ( 0 .. 3 ) {
50 for my $v ( 0 .. 3 ) {
51 push @points, 2.0 * ($u - 1.5);
52 push @points, 2.0 * ($v - 1.5);
53 if (( $u == 1 || $u == 2 ) && ( $v == 1 || $v == 2 )) {
60 $ctrldata = pack "f48", @points;
64 glClear(GL_COLOR_BUFFER_BIT() | GL_DEPTH_BUFFER_BIT());
66 glRotate($a%360,0,1,0);
67 glRotate($b%360,-1,0,0);
69 $nurb = gluNewNurbsRenderer();
70 gluNurbsProperty($nurb,GLU_CULLING,GL_TRUE);
71 gluBeginSurface($nurb);
72 gluNurbsSurface($nurb, 8, $knots, 8, $knots,
74 4, 4, GL_MAP2_VERTEX_3);
77 gluPwlCurve($nurb,5,$edgePts,2,GLU_MAP1_TRIM_2);
80 gluNurbsCurve($nurb,8,$curveKnots, 2, $curvePts, 4, GLU_MAP1_TRIM_2);
81 gluPwlCurve($nurb,3,$pwlPts,2,GLU_MAP1_TRIM_2);
101 Up/Down/Left/Right Rotate
105 my $event = new SDL::Event;
107 SDL_QUIT() => sub { exit(); },
108 SDL_KEYDOWN() => sub {
110 if ( $event->key_sym() == SDLK_f ) {
113 } elsif ( $event->key_sym() == SDLK_t ) {
114 $toggle = $toggle ? 0 : 1;
116 } elsif ( $event->key_sym() == SDLK_q ) {
119 if ($event->key_sym() == SDLK_LEFT()) {
121 } elsif ($event->key_sym() == SDLK_RIGHT()) {
123 } elsif ($event->key_sym() == SDLK_UP()) {
125 } elsif ($event->key_sym() == SDLK_DOWN()) {