home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / HOUSE3D.FOR < prev    next >
Encoding:
Text File  |  1989-10-09  |  1.8 KB  |  70 lines
  1.       INCLUDE 'GRAFTYPE.FOR'
  2.       RECORD /WorldRect/ wr
  3.       INTEGER i
  4.  
  5.       CALL tInit3
  6.  
  7.       CALL Init3D( -1, 'C:\FOR\LIB\*.FON')
  8.  
  9.       CALL SetWorldRect(wr, -10.0, -10.0, 10.0, 10.0)
  10.       CALL SetWorldCoordinates(wr)
  11.  
  12.       CALL WorldScale3(1.0, 1.0, 2.0)
  13.       CALL WorldRotate3(10.0, 0)
  14.       CALL WorldRotate3(10.0, 1)
  15.       DO i = 0, 15
  16.         CALL SelectColor(4)
  17.         CALL WorldRotate3(10.0, 0)
  18.         CALL drawhouse
  19.         CALL delay()
  20.         CALL SelectColor(0)
  21.         CALL DrawHouse
  22.       END DO
  23.       END
  24.  
  25.       SUBROUTINE delay()
  26.       INTEGER i,j
  27.       DO i = 1, 30000
  28.         DO j = 1, 30000
  29.         END DO
  30.       END DO
  31.       END !SUBROUTINE
  32.       SUBROUTINE drawhouse()
  33.  
  34.       CALL Move3Abs(1.0, 1.0, 1.0)
  35.       CALL Line3Abs(1.0, 1.0, -1.0)
  36.       CALL Line3Abs(1.0, -1.0, -1.0)     !{right side}
  37.       CALL Line3Abs(1.0, -1.0, 1.0)
  38.       CALL Line3Abs(1.0, 1.0, 1.0)
  39.  
  40.       CALL Move3Abs(-1.0, 1.0, 1.0)
  41.       CALL Line3Abs(-1.0, 1.0, -1.0)
  42.       CALL Line3Abs(-1.0, -1.0, -1.0)     !{left side}
  43.       CALL Line3Abs(-1.0, -1.0, 1.0)
  44.       CALL Line3Abs(-1.0, 1.0, 1.0)
  45.  
  46.       CALL Move3Abs(1.0, 1.0, 1.0)        ! {front top}
  47.       CALL Line3Abs(-1.0, 1.0, 1.0)
  48.  
  49.       CALL Move3Abs(1.0, -1.0, 1.0)
  50.       CALL Line3Abs(-1.0, -1.0, 1.0)      ! {front bottom}
  51.       CALL Move3Abs(1.0, 1.0, -1.0)       ! {back top}
  52.       CALL Line3Abs(-1.0, 1.0, -1.0)
  53.  
  54.       CALL Move3Abs(1.0, -1.0, -1.0)      !  {back bottom}
  55.       CALL Line3Abs(-1.0, -1.0, -1.0)
  56.  
  57.       CALL Move3Abs(1.0, 1.0, 1.0)
  58.       CALL Line3Abs(0.0, 1.5, 1.0)      ! {roof}
  59.       CALL Line3Abs(-1.0, 1.0, 1.0)
  60.  
  61.       CALL Move3Abs(1.0, 1.0, -1.0)
  62.       CALL Line3Abs(0.0, 1.5, -1.0)
  63.       CALL Line3Abs(-1.0, 1.0, -1.0)
  64.  
  65.       CALL Move3Abs(0.0, 1.5, 1.0)
  66.       CALL Line3Abs(0.0, 1.5, -1.0)
  67.  
  68.       END !SUBROUTINE
  69.  
  70.