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

# Content
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 }