home *** CD-ROM | disk | FTP | other *** search
- #include "vogle.h"
-
- /*
- * Translate
- */
- Translate(x, y, z)
- float x, y, z;
- {
- translate(x, y, z);
- }
-
- /*
- * Scale
- *
- * Set up a scale matrix and premultiply it and
- * the top matrix on the stack. Had to be specified here as some looney
- * has a routine called scale in the fotran i/o library. tsk, tsk.
- *
- */
- void
- Scale(x, y, z)
- float x, y, z;
- {
-
- if (!vdevice.initialised)
- verror("scale: vogle not initialised");
-
- /*
- * Do the operations directly on the top matrix of
- * the stack to speed things up.
- */
-
- vdevice.transmat->m[0][0] *= x;
- vdevice.transmat->m[0][1] *= x;
- vdevice.transmat->m[0][2] *= x;
- vdevice.transmat->m[0][3] *= x;
-
- vdevice.transmat->m[1][0] *= y;
- vdevice.transmat->m[1][1] *= y;
- vdevice.transmat->m[1][2] *= y;
- vdevice.transmat->m[1][3] *= y;
-
- vdevice.transmat->m[2][0] *= z;
- vdevice.transmat->m[2][1] *= z;
- vdevice.transmat->m[2][2] *= z;
- vdevice.transmat->m[2][3] *= z;
- }
-
-
- /*
- * Rotate
- */
- Rotate(r, axis)
- float r;
- char axis;
- {
- rotate(r, axis);
- }
-
-