home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / Vector / vectest1.e next >
Encoding:
Text File  |  1992-09-02  |  465 b   |  17 lines
  1. MODULE 'tools/vector'
  2.  
  3. CONST R=100
  4.  
  5. PROC main()
  6.   DEF w
  7.   IF w:=OpenW(0,11,400,160,$200,$F,'testing the vector3d module!',NIL,1,NIL)
  8.     init3d(75,60)
  9.     setmiddle3d(200,80)
  10.     setpers3d(500,200)
  11.     polygon3d([R,R,R,     R,R,-R,   R,-R,-R,  R,-R,R,   R,R,R,    R,-R,R,    -R,-R,R,  -R,R,R,   R,R,R],3)
  12.     polygon3d([-R,-R,-R,  -R,-R,R,  -R,R,R,   -R,R,-R,  -R,-R,-R, -R,R,-R,   R,R,-R,   R,-R,-R,  -R,-R,-R],3)
  13.     WaitIMessage(w)
  14.     CloseW(w)
  15.   ENDIF
  16. ENDPROC
  17.