home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / c / amivogl-1.03.lzh / vogl / src / sunfort / ftrans.c.Z / ftrans.c
Encoding:
C/C++ Source or Header  |  1991-06-03  |  817 b   |  67 lines
  1. #include "vogl.h"
  2.  
  3. /*
  4.  * translate_
  5.  */
  6. translate_(x, y, z)
  7.     float     *x, *y, *z;
  8. {
  9.     translate(*x, *y, *z);
  10. }
  11.  
  12. /*
  13.  * transl_    (same as translate_)
  14.  */
  15. transl_(x, y, z)
  16.     float     *x, *y, *z;
  17. {
  18.     translate(*x, *y, *z);
  19. }
  20.  
  21. /*
  22.  * scale_
  23.  * 
  24.  * Set up a scale matrix and premultiply it and 
  25.  * the top matrix on the stack. Had to be specified here as some looney
  26.  * has a routine called scale in the fortran i/o library. tsk, tsk.
  27.  *
  28.  */
  29. void
  30. scale_(x, y, z)
  31.     float     *x, *y, *z;
  32. {
  33.     Matrix    smat;
  34.  
  35.     if (!vdevice.initialised)
  36.         verror("scale: vogle not initialised");
  37.  
  38.     identmatrix(smat);
  39.  
  40.     smat[0][0] = *x;
  41.     smat[1][1] = *y;
  42.     smat[2][2] = *z;
  43.  
  44.     multmatrix(smat);
  45. }
  46.  
  47.  
  48. /*
  49.  * rotate_
  50.  */
  51. rotate_(r, axis)
  52.     int    *r;
  53.     char    *axis;
  54. {
  55.     rotate((Angle)*r, *axis);
  56. }
  57.  
  58. /*
  59.  * rot_
  60.  */
  61. rot_(r, axis)
  62.     float    *r;
  63.     char    *axis;
  64. {
  65.     rot(*r, *axis);
  66. }
  67.