home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / CROSS2D.FOR < prev    next >
Encoding:
Text File  |  1989-10-10  |  969 b   |  38 lines
  1.        INCLUDE 'GRAFTYPE.FOR'
  2.  
  3.       RECORD /WorldRect/ wr
  4.       INTEGER color, i
  5.  
  6.       CALL tInit
  7.       CALL Init3d(-1, 'C:\FOR\LIB\*.FON')
  8.       CALL SetWorldRect(wr,-10.0,-10.0,10.0,10.0)
  9.       CALL SetWorldCoordinates(wr)
  10.       CALL SelectColor(1)
  11.       DO i = 1, 20
  12.         CALL WorldScale2(1.1,1.1)
  13.         CALL Worldrotate2(10.0)
  14.         CALL Selectcolor(1)
  15.         CALL drawcross
  16.         color = 0
  17.         CALL Selectcolor(0)
  18.         CALL drawcross
  19.       END DO
  20.       CALL Close3dGraphics
  21.  
  22.       END
  23.       SUBROUTINE drawcross
  24.       CALL Move2Abs(-1.0,-1.0)
  25.       CALL Line2Rel(0.0,-1.0)
  26.       CALL Line2Rel(2.0,0.0)
  27.       CALL Line2Rel(0.0,1.0)
  28.       CALL Line2Rel(1.0,0.0)
  29.       CALL Line2Rel(0.0,2.0)
  30.       CALL Line2Rel(-1.0,0.0)
  31.       CALL Line2Rel(0.0,1.0)
  32.       CALL Line2Rel(-2.0,0.0)
  33.       CALL Line2Rel(0.0,-1.0)
  34.       CALL Line2Rel(-1.0,0.0)
  35.       CALL Line2Rel(0.0,-2.0)
  36.       CALL Line2Rel(1.0,0.0)
  37.       END
  38.