home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / ROTAXES.FOR < prev    next >
Encoding:
Text File  |  1989-10-10  |  1.2 KB  |  48 lines
  1.       INCLUDE 'GRAFTYPE.FOR'
  2.  
  3.       INTEGER i, j
  4.       REAL AxL, angle
  5.       RECORD /WorldRect/ wr
  6.  
  7.       CALL tInit3
  8.       CALL Init3D(-1,'C:\FOR\LIB\*.FON')
  9.       CALL SetWorldRect(wr, -10.0, -10.0, 10.0, 10.0)
  10.       CALL SetWorldCoordinates(wr)
  11.       CALL SelectColor(15)
  12.       CALL Draw3DAxes(AxL, AxL, AxL)
  13.  
  14.       CALL WorldRotate3(10.0, 2)
  15.       CALL WorldRotate3(10.0, 1)
  16.       AxL = 5.0
  17.       angle = 3.6
  18.       DO j = 0, 2
  19.         DO i = 0, 99
  20.           CALL WorldRotate3(angle, j)
  21.           CALL SelectColor(15)
  22.           CALL Draw3DAxes(AxL, AxL, AxL)
  23.           CALL SelectColor(3)
  24.           CALL Move3Abs(5.0, .5, 0.0)
  25.           CALL SelectColor(4)
  26.           CALL Label3D('X')
  27.           CALL Move3Abs(0.0, 5.0, .5)
  28.           CALL Label3D('Y')
  29.           CALL Move3Abs(0.5, 0.0, 5.0)
  30.           CALL Label3D('Z')
  31.  
  32.           CALL SelectColor(0)
  33.           CALL Draw3DAxes(AxL, AxL, AxL)
  34.           CALL Move3Abs(5.0, .5, 0.0)
  35.           CALL Label3D('X')
  36.           CALL Move3Abs(0.0, 5.0, .5)
  37.           CALL Label3D('Y')
  38.           CALL Move3Abs(0.5, 0.0, 5.0)
  39.           CALL Label3D('Z')
  40.  
  41.         END DO
  42.         read (*,*)
  43.       END DO
  44.       CALL Close3DGraphics
  45.  
  46.       END
  47.  
  48.