ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/common/rgldomat.c
Revision: 3.1
Committed: Tue Jun 9 11:18:35 1998 UTC (25 years, 10 months ago) by gwlarson
Content type: text/plain
Branch: MAIN
Log Message:
Initial revision

File Contents

# User Rev Content
1 gwlarson 3.1 /* Copyright (c) 1998 Silicon Graphics, Inc. */
2    
3     #ifndef lint
4     static char SCCSid[] = "$SunId$ SGI";
5     #endif
6    
7     /*
8     * Invocation routines for Radiance -> OpenGL materials.
9     */
10    
11     #include "radogl.h"
12    
13    
14     domatobj(mp, cent) /* generate OpenGL material for object */
15     register MATREC *mp;
16     FVECT cent;
17     {
18     GLfloat vec[4];
19    
20     if (mp == NULL | !domats)
21     return;
22     if (islight(mp->type)) {
23     vec[0] = colval(mp->u.l.emission,RED);
24     vec[1] = colval(mp->u.l.emission,GRN);
25     vec[2] = colval(mp->u.l.emission,BLU);
26     vec[3] = 1.;
27     glMaterialfv(GL_FRONT, GL_EMISSION, vec);
28     vec[0] = vec[1] = vec[2] = 0.; vec[3] = 1.;
29     glMaterialfv(GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, vec);
30     glMaterialfv(GL_FRONT_AND_BACK, GL_SPECULAR, vec);
31     } else {
32     vec[0] = colval(mp->u.m.ambdiff,RED);
33     vec[1] = colval(mp->u.m.ambdiff,GRN);
34     vec[2] = colval(mp->u.m.ambdiff,BLU);
35     vec[3] = 1.;
36     glMaterialfv(GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, vec);
37     vec[0] = colval(mp->u.m.specular,RED);
38     vec[1] = colval(mp->u.m.specular,GRN);
39     vec[2] = colval(mp->u.m.specular,BLU);
40     vec[3] = 1.;
41     glMaterialfv(GL_FRONT_AND_BACK, GL_SPECULAR, vec);
42     glMaterialf(GL_FRONT_AND_BACK, GL_SHININESS, mp->u.m.specexp);
43     vec[0] = vec[1] = vec[2] = 0.; vec[3] = 1.;
44     glMaterialfv(GL_FRONT_AND_BACK, GL_EMISSION, vec);
45     }
46     rgl_checkerr("in domatobj");
47     }
48    
49    
50     domatvert(mp, v, n) /* generate OpenGL material for vertex */
51     MATREC *mp;
52     FVECT v, n;
53     {
54     }