| 1 |
< |
/* Copyright (c) 1994 Regents of the University of California */ |
| 1 |
> |
/* Copyright (c) 1995 Regents of the University of California */ |
| 2 |
|
|
| 3 |
|
#ifndef lint |
| 4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
| 642 |
|
|
| 643 |
|
initotypes() /* initialize ofun[] array */ |
| 644 |
|
{ |
| 645 |
– |
extern int o_source(); |
| 646 |
– |
extern int o_sphere(); |
| 647 |
– |
extern int o_face(); |
| 648 |
– |
extern int o_cone(); |
| 649 |
– |
extern int o_cylinder(); |
| 650 |
– |
extern int o_ring(); |
| 651 |
– |
extern int m_glow(); |
| 652 |
– |
extern int m_spot(); |
| 653 |
– |
extern int m_dielectric(); |
| 654 |
– |
extern int m_interface(); |
| 655 |
– |
extern int text(); |
| 656 |
– |
extern int alias(); |
| 657 |
– |
extern int passargs(); |
| 658 |
– |
extern int addxform(); |
| 645 |
|
register int i; |
| 646 |
|
|
| 647 |
|
if (ofun[OBJ_SOURCE].funp == o_source) |
| 673 |
|
ofun[MIX_TEXT].funp = text; |
| 674 |
|
ofun[ALIAS].funp = alias; |
| 675 |
|
/* surface inverses */ |
| 676 |
+ |
tinvers[OBJ_FACE] = OBJ_FACE; |
| 677 |
|
tinvers[OBJ_SOURCE] = OBJ_SOURCE; |
| 678 |
|
tinvers[OBJ_CONE] = OBJ_CUP; |
| 679 |
|
tinvers[OBJ_CUP] = OBJ_CONE; |