# Copyright (C) 1998 Tuomas J. Lukka # Portions Copyright (C) 1998 Bernhard Reiter # DISTRIBUTED WITH NO WARRANTY, EXPRESS OR IMPLIED. # See the GNU Library General Public License (file COPYING in the distribution) # for conditions of use and redistribution. # Name: VRMLRend.c # Description: # Fills Hash Variables with "C" Code. They are used by VRMLC.pm # to write the C functions-source to render different notes. # # Certain Abbreviation are used, some are substituted in the # writing process in get_rendfunc() [VRMLC.pm]. # Others are "C-#defines". # e.g. for #define TC(a,b) glTexCoord2f(a,b) see gen() [VRMLC.pm] # # Hashes filled in this file: # %RendC, %PrepC, %FinC, %ChildC, %LightC ####################################################################### ####################################################################### ####################################################################### # # Rend -- # actually render the node # # # Rend = real rendering %RendC = ( # XXX Tex coords wrong :( Box => (join '', ' float x = $f(size,0)/2; float y = $f(size,1)/2; float z = $f(size,2)/2; $start_list(); glPushAttrib(GL_LIGHTING); glShadeModel(GL_FLAT); glBegin(GL_QUADS); glNormal3f(0,0,1); TC(1,1); glVertex3f(x,y,z); TC(0,1); glVertex3f(-x,y,z); TC(0,0); glVertex3f(-x,-y,z); TC(1,0); glVertex3f(x,-y,z); glNormal3f(0,0,-1); TC(1,0); glVertex3f(x,-y,-z); TC(0,0); glVertex3f(-x,-y,-z); TC(0,1); glVertex3f(-x,y,-z); TC(1,1); glVertex3f(x,y,-z); glNormal3f(0,1,0); TC(1,1); glVertex3f(x,y,z); TC(1,0); glVertex3f(x,y,-z); TC(0,0); glVertex3f(-x,y,-z); TC(0,1); glVertex3f(-x,y,z); glNormal3f(0,-1,0); TC(0,1); glVertex3f(-x,-y,z); TC(0,0); glVertex3f(-x,-y,-z); TC(1,0); glVertex3f(x,-y,-z); TC(1,1); glVertex3f(x,-y,z); glNormal3f(1,0,0); TC(1,1); glVertex3f(x,y,z); TC(0,1); glVertex3f(x,-y,z); TC(0,0); glVertex3f(x,-y,-z); TC(1,0); glVertex3f(x,y,-z); glNormal3f(-1,0,0); TC(1,0); glVertex3f(-x,y,-z); TC(0,0); glVertex3f(-x,-y,-z); TC(0,1); glVertex3f(-x,-y,z); TC(1,1); glVertex3f(-x,y,z); glEnd(); glPopAttrib(); $end_list(); ', ), Cylinder => ' int div = horiz_div; float df = div; float h = $f(height)/2; float r = $f(radius); float a,a1,a2; DECL_TRIG1 int i; $start_list(); INIT_TRIG1(div) if($f(bottom)) { glBegin(GL_POLYGON); glNormal3f(0,1,0); START_TRIG1 for(i=0; i=0; i--) { TC(0.5+0.5*-SIN1,0.5+0.5*COS1); glVertex3f(-r*SIN1,-h,r*COS1); UP_TRIG1 } glEnd(); } if($f(side)) { /* if(!nomode) { glPushAttrib(GL_LIGHTING); # glShadeModel(GL_SMOOTH); } */ glBegin(GL_QUADS); START_TRIG1 for(i=0; i ' int div = horiz_div; float df = div; float h = $f(height)/2; float r = $f(bottomRadius); float a,a1; int i; DECL_TRIG1 $start_list(); if(h <= 0 && r <= 0) {return;} INIT_TRIG1(div) if($f(bottom)) { glBegin(GL_POLYGON); glNormal3f(0,-1,0); START_TRIG1 for(i=div-1; i>=0; i--) { TC(0.5+0.5*-SIN1,0.5+0.5*COS1); glVertex3f(r*-SIN1,-h,r*COS1); UP_TRIG1 } glEnd(); } if($f(side)) { double ml = sqrt(h*h + r * r); double mlh = h / ml; double mlr = r / ml; glBegin(GL_TRIANGLES); START_TRIG1 for(i=0; i 'int vdiv = vert_div; int hdiv = horiz_div; float vf = vert_div; float hf = horiz_div; int v; int h; float va1,va2,van,ha1,ha2,han; DECL_TRIG1 DECL_TRIG2 INIT_TRIG1(vdiv) INIT_TRIG2(hdiv) $start_list(); glPushMatrix(); /* if(!nomode) { glPushAttrib(&GL_LIGHTING); # glShadeModel(&GL_SMOOTH); } */ glScalef($f(radius), $f(radius), $f(radius)); glBegin(GL_QUAD_STRIP); START_TRIG1 for(v=0; v ( join '', ' struct SFColor *points; int npoints; struct SFColor *colors; int ncolors=0; struct SFColor *normals; int nnormals=0; $start_list(); $fv(coord, points, get3, &npoints); $fv_null(color, colors, get3, &ncolors); $fv_null(normal, normals, get3, &nnormals); $mk_polyrep(); if(!$f(solid)) { glPushAttrib(GL_ENABLE_BIT); glDisable(GL_CULL_FACE); } render_polyrep(this_, npoints, points, ncolors, colors, nnormals, normals ); if(!$f(solid)) { glPopAttrib(); } $end_list(); '), # XXX emissiveColor not taken :( # XXX Coredump possible for stupid input. IndexedLineSet => ' int i; int cin = $f_n(coordIndex); int colin = $f_n(colorIndex); int cpv = $f(colorPerVertex); int plno = 0; int ind1,ind2; int ind; int c; struct SFColor *points; int npoints; struct SFColor *colors; int ncolors=0; $start_list(); $fv(coord, points, get3, &npoints); $fv_null(color, colors, get3, &ncolors); glDisable(GL_LIGHTING); if(ncolors && !cpv) { glColor3f(colors[plno].c[0], colors[plno].c[1], colors[plno].c[2]); } glBegin(GL_LINE_STRIP); for(i=0; i ' int i; struct SFColor *points; int npoints=0; struct SFColor *colors; int ncolors=0; $start_list(); $fv(coord, points, get3, &npoints); $fv_null(color, colors, get3, &ncolors); if(ncolors && ncolors != npoints) { die("Not same number of colors and points"); } glDisable(GL_LIGHTING); glBegin(GL_POINTS); if(verbose) printf("PointSet: %d %d\n", npoints, ncolors); for(i=0; i ( ' struct SFColor *colors; int ncolors=0; struct SFColor *normals; int nnormals=0; $start_list(); $fv_null(color, colors, get3, &ncolors); $fv_null(normal, normals, get3, &nnormals); $mk_polyrep(); if(!$f(solid)) { glPushAttrib(GL_ENABLE_BIT); glDisable(GL_CULL_FACE); } render_polyrep(this_, 0, NULL, ncolors, colors, nnormals, normals ); if(!$f(solid)) { glPopAttrib(); } $end_list(); '), Extrusion => ( ' $start_list(); $mk_polyrep(); if(!$f(solid)) { glPushAttrib(GL_ENABLE_BIT); glDisable(GL_CULL_FACE); } render_polyrep(this_, 0, NULL, 0, NULL, 0, NULL ); if(!$f(solid)) { glPopAttrib(); } $end_list(); '), FontStyle => '', Text => ' void (*f)(int n, SV **p,int nl, float *l, float maxext, double spacing,double size); double spacing = 1.0; double size = 1.0; $start_list(); /* We need both sides */ glPushAttrib(GL_ENABLE_BIT); glDisable(GL_CULL_FACE); f = (void *)$f(__rendersub); /* printf("Render text: %d \n", f); */ if($f(fontStyle)) { struct VRML_FontStyle *fsp = $f(fontStyle); spacing = fsp->spacing; size = fsp->size; } if(f) { f($f_n(string),$f(string),$f_n(length),$f(length),$f(maxExtent),spacing,size ); } glPopAttrib(); $end_list(); ', # How to disable material when doing just select-rendering? # XXX Optimize.. Material => ( join '', " float m[4]; int i; \$start_list(); ",assgn_m(diffuseColor,1),"; glMaterialfv(GL_FRONT_AND_BACK, GL_DIFFUSE, m); for(i=0; i<3; i++) { m[i] *= ", getf(Material, ambientIntensity),"; } glMaterialfv(GL_FRONT_AND_BACK, GL_AMBIENT, m); ",assgn_m(specularColor,1),"; glMaterialfv(GL_FRONT_AND_BACK, GL_SPECULAR, m); ",assgn_m(emissiveColor,1),'; glMaterialfv(GL_FRONT_AND_BACK, GL_EMISSION, m); glColor3f(m[0],m[1],m[2]); if(fabs($f(shininess) - 0.2) > 0.001) { printf("Set shininess: %f\n",$f(shininess)); glMaterialf(GL_FRONT_AND_BACK, GL_SHININESS, 128 * $f(shininess)); /* 128*$f(shininess)*$f(shininess)); */ /* 128-(128*$f(shininess))); */ /* 1.0/((",getf(Material,shininess),"+1)/128.0)); */ } $end_list(); '), TextureTransform => ' $start_list(); glMatrixMode(GL_TEXTURE); glTranslatef($f(translation,0), $f(translation,1), 0); glTranslatef($f(center,0),$f(center,1), 0); glRotatef(0,0,1,$f(rotation)/3.1415926536*180); glScalef($f(scale,0),$f(scale,1),1); glTranslatef(-$f(center,0),-$f(center,1), 0); glMatrixMode(GL_MODELVIEW); $end_list(); ', ImageTexture => (' $start_list(); $tex2d(); $end_list(); '), # GLBackend is using 200000 as distance - we use 100000 for background # XXX Should just make depth test always fail. Background => ' GLdouble mod[16]; GLdouble proj[16]; GLdouble unit[16] = {1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1}; struct pt vec[4]; struct pt vec2[4]; struct pt vec3[4]; int i,j; int ind=0; GLdouble x,y,z; GLdouble x1,y1,z1; GLdouble sx, sy, sz; struct SFColor *c1,*c2; int hdiv = horiz_div; int h,v; double va1, va2, ha1, ha2; if(!$f(isBound)) {return;} /* Cannot start_list() because of moving center */ glPushAttrib(GL_LIGHTING_BIT|GL_ENABLE_BIT|GL_TEXTURE_BIT); glShadeModel(GL_SMOOTH); glPushMatrix(); glGetDoublev(GL_MODELVIEW_MATRIX, mod); glGetDoublev(GL_PROJECTION_MATRIX, proj); /* Get origin */ gluUnProject(0,0,0,mod,proj,viewport,&x,&y,&z); glTranslatef(x,y,z); gluUnProject(0,0,0,mod,unit,viewport,&x,&y,&z); /* Get scale */ gluProject(x+1,y,z,mod,unit,viewport,&x1,&y1,&z1); sx = 1/sqrt( x1*x1 + y1*y1 + z1*z1*4 ); gluProject(x,y+1,z,mod,unit,viewport,&x1,&y1,&z1); sy = 1/sqrt( x1*x1 + y1*y1 + z1*z1*4 ); gluProject(x,y,z+1,mod,unit,viewport,&x1,&y1,&z1); sz = 1/sqrt( x1*x1 + y1*y1 + z1*z1*4 ); /* Undo the translation and scale effects */ glScalef(sx,sy,sz); if(verbose) printf("TS: %f %f %f, %f %f %f\n",x,y,z,sx,sy,sz); glDisable(GL_LIGHTING); glScalef(200,200,200); if($f_n(skyColor) == 1) { c1 = &($f(skyColor,0)); glColor3f(c1->c[0], c1->c[1], c1->c[2]); /* Actually, one should do it... ? */ /* XXX */ glBegin(GL_TRIANGLES); for(h=0; hc[0], c2->c[1], c2->c[2]); glVertex3f(sin(va2) * cos(ha1), cos(va2), sin(va2) * sin(ha1)); glVertex3f(sin(va2) * cos(ha2), cos(va2), sin(va2) * sin(ha2)); glColor3f(c1->c[0], c1->c[1], c1->c[2]); glVertex3f(sin(va1) * cos(ha2), cos(va1), sin(va1) * sin(ha2)); glVertex3f(sin(va1) * cos(ha1), cos(va1), sin(va1) * sin(ha1)); } } glEnd(); } glBegin(GL_QUADS); for(v=0; v<$f_n(groundColor); v++) { if(v==0) { va1 = 0; } else { va1 = $f(groundAngle,v-1); } c1 = &($f(groundColor,v)); if(v==$f_n(groundColor)-1) { c2 = &($f(groundColor,v)); va2 = 1.56; } else { c2 = &($f(skyColor,v+1)); va2 = $f(skyAngle,v); } for(h=0; hc[0], c2->c[1], c2->c[2]); glVertex3f(sin(va2) * cos(ha1), cos(va2), sin(va2) * sin(ha1)); glVertex3f(sin(va2) * cos(ha2), cos(va2), sin(va2) * sin(ha2)); glColor3f(c1->c[0], c1->c[1], c1->c[2]); glVertex3f(sin(va1) * cos(ha2), cos(va1), sin(va1) * sin(ha2)); glVertex3f(sin(va1) * cos(ha1), cos(va1), sin(va1) * sin(ha1)); } } glEnd(); '.(join '', map {q' { float x=0.5,y=0.5,z=0.5; unsigned int len; unsigned char *ptr = SvPV($f(__data_'.$_->[0].'),len); if(ptr && len) { $tex2d(_'.$_->[0].'); glBegin(GL_QUADS); glNormal3f('.$_->[1]->(0,0,1).'); TC(1,1); glVertex3f('.$_->[1]->("x","y","z").'); TC(0,1); glVertex3f('.$_->[1]->("-x","y","z").'); TC(0,0); glVertex3f('.$_->[1]->("-x","-y","z").'); TC(1,0); glVertex3f('.$_->[1]->("x","-y","z").'); glEnd(); } }'} ( [front, sub {join ',',$_[0],$_[1],$_[2]}], [back , sub {join ',',$_[0],$_[1],"-($_[2])"}], [top , sub {join ',',$_[0],$_[2],$_[1]}], [bottom , sub {join ',',$_[0],"-($_[2])",$_[1]}], [left , sub {join ',',$_[2],$_[1],$_[0]}], [right, sub {join ',',"-($_[2])",$_[1],$_[0]}], ) ).' glPopMatrix(); glPopAttrib(); ', ProximitySensor => q~ /* Viewer pos = t_r2 */ double cx,cy,cz; double len; struct pt dr1r2; struct pt dr2r3; struct pt vec; struct pt nor1,nor2; struct pt ins; static const struct pt yvec = {0,0.05,0}; static const struct pt zvec = {0,0,-0.05}; static const struct pt zpvec = {0,0,0.05}; static const struct pt orig = {0,0,0}; struct pt t_zvec, t_yvec, t_orig; GLdouble modelMatrix[16]; GLdouble projMatrix[16]; glGetDoublev(GL_MODELVIEW_MATRIX, modelMatrix); glGetDoublev(GL_PROJECTION_MATRIX, projMatrix); gluUnProject(orig.x,orig.y,orig.z,modelMatrix,projMatrix,viewport, &t_orig.x,&t_orig.y,&t_orig.z); gluUnProject(zvec.x,zvec.y,zvec.z,modelMatrix,projMatrix,viewport, &t_zvec.x,&t_zvec.y,&t_zvec.z); gluUnProject(yvec.x,yvec.y,yvec.z,modelMatrix,projMatrix,viewport, &t_yvec.x,&t_yvec.y,&t_yvec.z); cx = t_orig.x - $f(center,0); cy = t_orig.y - $f(center,1); cz = t_orig.z - $f(center,2); if(!$f(enabled)) return; if($f(size,0) == 0 || $f(size,1) == 0 || $f(size,2) == 0) return; if(fabs(cx) > $f(size,0)/2 || fabs(cy) > $f(size,1)/2 || fabs(cz) > $f(size,2)/2) return; $f(__hit) = 1; $f(__t1,0) = t_orig.x; $f(__t1,1) = t_orig.y; $f(__t1,2) = t_orig.z; VECDIFF(t_zvec,t_orig,dr1r2); /* Z axis */ VECDIFF(t_yvec,t_orig,dr2r3); /* Y axis */ len = sqrt(VECSQ(dr1r2)); VECSCALE(dr1r2,1/len); len = sqrt(VECSQ(dr2r3)); VECSCALE(dr2r3,1/len); if(verbose) printf("PROX_INT: (%f %f %f) (%f %f %f) (%f %f %f)\n (%f %f %f) (%f %f %f)\n", t_orig.x, t_orig.y, t_orig.z, t_zvec.x, t_zvec.y, t_zvec.z, t_yvec.x, t_yvec.y, t_yvec.z, dr1r2.x, dr1r2.y, dr1r2.z, dr2r3.x, dr2r3.y, dr2r3.z ); if(fabs(VECPT(dr1r2, dr2r3)) > 0.001) { die("Sorry, can't handle unevenly scaled ProximitySensors yet :(" "dp: %f v: (%f %f %f) (%f %f %f)", VECPT(dr1r2, dr2r3), dr1r2.x,dr1r2.y,dr1r2.z, dr2r3.x,dr2r3.y,dr2r3.z ); } if(APPROX(dr1r2.z,1.0)) { $f(__t2,0) = 0; $f(__t2,1) = 0; $f(__t2,2) = 1; $f(__t2,3) = atan2(-dr2r3.x,dr2r3.y); } else if(APPROX(dr2r3.y,1.0)) { $f(__t2,0) = 0; $f(__t2,1) = 1; $f(__t2,2) = 0; $f(__t2,3) = atan2(dr1r2.x,dr1r2.z); } else { /* Get the normal vectors of the possible rotation planes */ nor1 = dr1r2; nor1.z -= 1.0; nor2 = dr2r3; nor2.y -= 1.0; /* Now, the intersection of the planes, obviously cp */ VECCP(nor1,nor2,ins); if(APPROX(VECSQ(ins),0)) { die("Proximitysensor problem!" "dp: %f v: (%f %f %f) (%f %f %f)\n" "Nor,I (%f %f %f) (%f %f %f) (%f %f %f)\n" , VECPT(dr1r2, dr2r3), dr1r2.x,dr1r2.y,dr1r2.z, dr2r3.x,dr2r3.y,dr2r3.z, nor1.x,nor1.y,nor1.z, nor2.x,nor2.y,nor2.z, ins.x,ins.y,ins.z ); } len = sqrt(VECSQ(ins)); VECSCALE(ins,1/len); $f(__t2,0) = ins.x; $f(__t2,1) = ins.y; $f(__t2,2) = ins.z; /* Finally, the angle */ VECCP(dr1r2,ins, nor1); VECCP(zpvec, ins, nor2); len = sqrt(VECSQ(nor1)); VECSCALE(nor1,1/len); len = sqrt(VECSQ(nor2)); VECSCALE(nor2,1/len); VECCP(nor1,nor2,ins); $f(__t2,3) = -atan2(sqrt(VECSQ(ins)), VECPT(nor1,nor2)); } if(verbose) printf("NORS: (%f %f %f) (%f %f %f) (%f %f %f)\n", nor1.x, nor1.y, nor1.z, nor2.x, nor2.y, nor2.z, ins.x, ins.y, ins.z ); ~, DirectionalLight => ' /* NOTE: This is called by the Group Children code * at the correct point (in the beginning of the rendering * of the children. We just turn the light on right now. */ if($f(on)) { int light = nextlight(); if(light >= 0) { float vec[4]; glEnable(light); vec[0] = -$f(direction,0); vec[1] = -$f(direction,1); vec[2] = -$f(direction,2); vec[3] = 0; glLightfv(light, GL_POSITION, vec); vec[0] = $f(color,0) * $f(intensity); vec[1] = $f(color,1) * $f(intensity); vec[2] = $f(color,2) * $f(intensity); vec[3] = 1; glLightfv(light, GL_DIFFUSE, vec); glLightfv(light, GL_SPECULAR, vec); vec[0] *= $f(ambientIntensity); vec[1] *= $f(ambientIntensity); vec[2] *= $f(ambientIntensity); glLightfv(light, GL_AMBIENT, vec); } } ', ); ####################################################################### ####################################################################### ####################################################################### # # Prep -- # Prepare for rendering a node - e.g. for transforms, do the transform # but not the children. # # %PrepC = ( Transform => (join '',' glPushMatrix(); if(!reverse_trans) { $start_list(); glTranslatef(',(join ',',map {getf(Transform,translation,$_)} 0..2),' ); glTranslatef(',(join ',',map {getf(Transform,center,$_)} 0..2),' ); glRotatef(',getf(Transform,rotation,3),'/3.1415926536*180,', (join ',',map {getf(Transform,rotation,$_)} 0..2),' ); glRotatef(',getf(Transform,scaleOrientation,3),'/3.1415926536*180,', (join ',',map {getf(Transform,scaleOrientation,$_)} 0..2),' ); glScalef(',(join ',',map {getf(Transform,scale,$_)} 0..2),' ); glRotatef(-(',getf(Transform,scaleOrientation,3),'/3.1415926536*180),', (join ',',map {getf(Transform,scaleOrientation,$_)} 0..2),' ); glTranslatef(',(join ',',map {"-(".getf(Transform,center,$_).")"} 0..2),' ); $end_list(); } else { $start_list2(); glTranslatef(',(join ',',map {getf(Transform,center,$_)} 0..2),' ); glRotatef(',getf(Transform,scaleOrientation,3),'/3.1415926536*180,', (join ',',map {getf(Transform,scaleOrientation,$_)} 0..2),' ); glScalef(',(join ',',map {"1.0/(".getf(Transform,scale,$_).")"} 0..2),' ); glRotatef(-(',getf(Transform,scaleOrientation,3),'/3.1415926536*180),', (join ',',map {getf(Transform,scaleOrientation,$_)} 0..2),' ); glRotatef(-(',getf(Transform,rotation,3),')/3.1415926536*180,', (join ',',map {getf(Transform,rotation,$_)} 0..2),' ); glTranslatef(',(join ',',map {"-(".getf(Transform,center,$_).")"} 0..2),' ); glTranslatef(',(join ',',map {"-(".getf(Transform,translation,$_).")"} 0..2),' ); $end_list2(); } '), # Simplistic... Billboard => ' GLdouble mod[16]; GLdouble proj[16]; struct pt vec, ax, cp, z = {0,0,1}, cp2,cp3, arcp; int align; double len; double len2; double angle; int sign; ax.x = $f(axisOfRotation,0); ax.y = $f(axisOfRotation,1); ax.z = $f(axisOfRotation,2); align = (APPROX(VECSQ(ax),0)); glPushMatrix(); glGetDoublev(GL_MODELVIEW_MATRIX, mod); glGetDoublev(GL_PROJECTION_MATRIX, proj); gluUnProject(0,0,0,mod,proj,viewport, &vec.x,&vec.y,&vec.z); len = VECSQ(vec); if(APPROX(len,0)) {return;} VECSCALE(vec,1/sqrt(len)); /* printf("Billboard: (%f %f %f) (%f %f %f)\n",vec.x,vec.y,vec.z, ax.x, ax.y, ax.z); */ if(!align) { VECCP(ax,z,arcp); VECCP(ax,arcp,cp3); len = VECSQ(ax); VECSCALE(ax,1/sqrt(len)); VECCP(vec,ax,cp); /* cp is now 90deg to both vector and axis */ len = sqrt(VECSQ(cp)); if(APPROX(len,0)) {return;} /* Cant do a thing */ VECSCALE(cp, 1/len) /* printf("Billboard: (%f %f %f) (%f %f %f)\n",cp.x,cp.y,cp.z, cp3.x, cp3.y, cp3.z); */ /* Now, find out angle between this and z axis */ VECCP(cp,z,cp2); len2 = VECPT(cp,z); /* cos(angle) */ len = sqrt(VECSQ(cp2)); /* this is abs(sin(angle)) */ /* Now we need to find the sign first */ if(VECPT(cp, arcp)>0) sign=-1; else sign=1; angle = atan2(len2,sign*len); /* printf("Billboard: sin angle = %f, cos angle = %f\n, sign: %d, atan2: %f\n", len, len2,sign,angle); */ glRotatef(angle/3.1415926536*180, ax.x,ax.y,ax.z); } else { /* cp is the axis of the first rotation... */ VECCP(z,vec,cp); len = sqrt(VECSQ(cp)); VECSCALE(cp,1/len); VECCP(z,cp,cp2); angle = asin(VECPT(cp2,vec)); glRotatef(angle/3.1415926536*180, ax.x,ax.y,ax.z); /* XXXX */ /* die("Cant do 0 0 0 billboard"); */ } ', Viewpoint => (join '',' if(render_vp) { GLint vp[10]; double a1; double angle; if(verbose) printf("Viewpoint: %d IB: %d..\n", this_,$f(isBound)); if(!$f(isBound)) {return;} render_anything = 0; /* Stop rendering any more */ /* These have to be in this order because the viewpoint * rotates in its place */ glRotatef(-(',getf(Viewpoint,orientation,3),')/3.1415926536*180,', (join ',',map {getf(Viewpoint,orientation,$_)} 0..2),' ); glTranslatef(',(join ',',map {"-(".getf(Viewpoint,position,$_).")"} 0..2),' ); glGetIntegerv(GL_VIEWPORT, vp); if(vp[2] > vp[3]) { a1=0; angle = $f(fieldOfView)/3.1415926536*180; } else { a1 = $f(fieldOfView); a1 = atan2(sin(a1),vp[2]/((float)vp[3]) * cos(a1)); angle = a1/3.1415926536*180; } if(verbose) printf("Vp: %d %d %d %d %f %f\n", vp[0], vp[1], vp[2], vp[3], a1, angle); glMatrixMode(GL_PROJECTION); glPopMatrix(); /* This is so we do picking right */ /* glLoadIdentity(); */ gluPerspective(angle,vp[2]/(float)vp[3],0.1,vp_dist); glMatrixMode(GL_MODELVIEW); } '), NavigationInfo => ' if(verbose) printf("NavigationInfo: %d IB: %d..\n", this_,$f(isBound)); if(!$f(isBound)) {return;} /* I have no idea what else should go in here -- John Breen */ ', ); ####################################################################### ####################################################################### ####################################################################### # # Fin -- # Finish the rendering i.e. restore matrices and whatever to the # original state. # # # Finish rendering %FinC = ( Transform => (join '',' glPopMatrix(); '), Billboard => (join '',' glPopMatrix(); '), ); ####################################################################### ####################################################################### ####################################################################### # # Child -- # Render the actual children of the node. # # # Render children (real child nodes, not e.g. appearance/geometry) %ChildC = ( Group => ' int nc = $f_n(children); int i; int savedlight = curlight; extern struct VRML_Virt virt_DirectionalLight; if(verbose) {printf("RENDER GROUP START %d (%d)\n",this_, nc);} if($i(has_light)) { glPushAttrib(GL_LIGHTING_BIT|GL_ENABLE_BIT); for(i=0; i ' int wc = $f(whichChoice); if(wc >= 0 && wc < $f_n(choice)) { void *p = $f(choice,wc); render_node(p); } ', LOD => ' GLdouble mod[16]; GLdouble proj[16]; struct pt vec; double dist; int nran = $f_n(range); int nnod = $f_n(level); int i; if(!nran) { void *p = $f(level, 0); render_node(p); return; } glGetDoublev(GL_MODELVIEW_MATRIX, mod); glGetDoublev(GL_PROJECTION_MATRIX, proj); gluUnProject(0,0,0,mod,proj,viewport, &vec.x,&vec.y,&vec.z); vec.x -= $f(center,0); vec.y -= $f(center,1); vec.z -= $f(center,2); dist = sqrt(VECSQ(vec)); for(i=0; i= nnod) {i = nnod-1;} p = $f(level,i); render_node(p); } } render_node($f(level,nnod-1)); ', Appearance => ' if($f(material)) {render_node($f(material));} else { glDisable(GL_LIGHTING); glColor3f(1.0,1.0,1.0); } /* XXX */ if($f(texture)) { render_node($f(texture)); } if($f(textureTransform)) { render_node($f(textureTransform)); } ', Shape => ' /* if(!$f(appearance) || !$f(geometry)) */ if(!$f(geometry)) { return; } glPushAttrib(GL_LIGHTING_BIT|GL_ENABLE_BIT|GL_TEXTURE_BIT); /* glLightModeli(GL_LIGHT_MODEL_TWO_SIDE,GL_TRUE); */ if($f(appearance)) { render_node($f(appearance)); } else { glDisable(GL_LIGHTING); glColor3f(1.0,1.0,1.0); } render_node($f(geometry)); glPopAttrib(); ', ); $ChildC{Transform} = $ChildC{Group}; $ChildC{Billboard} = $ChildC{Group}; $ChildC{Anchor} = $ChildC{Group}; ####################################################################### ####################################################################### ####################################################################### # # Light -- # Render a light. XXX This needs work to be like the spec :( # # # NO startlist -- nextlight() may change :( %LightC = ( PointLight => ' if($f(on)) { int light = nextlight(); if(light >= 0) { float vec[4]; glEnable(light); vec[0] = $f(direction,0); vec[1] = $f(direction,1); vec[2] = $f(direction,2); vec[3] = 1; glLightfv(light, GL_SPOT_DIRECTION, vec); vec[0] = $f(location,0); vec[1] = $f(location,1); vec[2] = $f(location,2); vec[3] = 1; glLightfv(light, GL_POSITION, vec); glLightf(light, GL_CONSTANT_ATTENUATION, $f(attenuation,0)); glLightf(light, GL_LINEAR_ATTENUATION, $f(attenuation,1)); glLightf(light, GL_QUADRATIC_ATTENUATION, $f(attenuation,2)); vec[0] = $f(color,0) * $f(intensity); vec[1] = $f(color,1) * $f(intensity); vec[2] = $f(color,2) * $f(intensity); vec[3] = 1; glLightfv(light, GL_DIFFUSE, vec); glLightfv(light, GL_SPECULAR, vec); vec[0] *= $f(ambientIntensity); vec[1] *= $f(ambientIntensity); vec[2] *= $f(ambientIntensity); glLightfv(light, GL_AMBIENT, vec); /* XXX */ glLightf(light, GL_SPOT_CUTOFF, 180); } } ', SpotLight => ' if($f(on)) { int light = nextlight(); if(light >= 0) { float vec[4]; glEnable(light); vec[0] = $f(direction,0); vec[1] = $f(direction,1); vec[2] = $f(direction,2); vec[3] = 1; glLightfv(light, GL_SPOT_DIRECTION, vec); vec[0] = $f(location,0); vec[1] = $f(location,1); vec[2] = $f(location,2); vec[3] = 1; glLightfv(light, GL_POSITION, vec); glLightf(light, GL_CONSTANT_ATTENUATION, $f(attenuation,0)); glLightf(light, GL_LINEAR_ATTENUATION, $f(attenuation,1)); glLightf(light, GL_QUADRATIC_ATTENUATION, $f(attenuation,2)); vec[0] = $f(color,0) * $f(intensity); vec[1] = $f(color,1) * $f(intensity); vec[2] = $f(color,2) * $f(intensity); vec[3] = 1; glLightfv(light, GL_DIFFUSE, vec); glLightfv(light, GL_SPECULAR, vec); vec[0] *= $f(ambientIntensity); vec[1] *= $f(ambientIntensity); vec[2] *= $f(ambientIntensity); glLightfv(light, GL_AMBIENT, vec); /* XXX */ glLightf(light, GL_SPOT_EXPONENT, 0.5/($f(beamWidth)+0.1)); glLightf(light, GL_SPOT_CUTOFF, $f(cutOffAngle)/3.1415926536*180); } } ', ); ####################################################################### # # ExtraMem - extra members for the structures to hold # cached info %ExtraMem = ( Group => 'int has_light; ', ); $ExtraMem{Transform} = $ExtraMem{Group}; $ExtraMem{Billboard} = $ExtraMem{Group}; $ExtraMem{Anchor} = $ExtraMem{Group}; ####################################################################### # # ChangedC - when the fields change, the following code is run before # rendering for caching the data. # %ChangedC = ( Group => ' int i; int nc = $f_n(children); extern struct VRML_Virt virt_DirectionalLight; $i(has_light) = 0; for(i=0; i