home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 3 / SpanishScene3.iso / programas / fredius_darde-odrusba / giro-cubo3 < prev    next >
Text File  |  1999-05-27  |  412b  |  18 lines
  1. alfa=.05
  2. DIM x(8),y(8),z(8),x1(8),y1(8),z1(8)
  3. FOR n=1 TO 8 : READ x(n),y(n),z(n) : NEXT n
  4. DATA 1,1,1,1,1,-1,1,-1,-1,1,-1,1,-1,-1,1,-1,1,1,-1,1,-1,-1,-1,-1
  5. dibujo:
  6. CLS : FOR n=1 TO 8
  7. PSET (320+x(n)*200/(z(n)+5),100+y(n)*100/(z(n)+5))
  8. NEXT n
  9. FOR n=1 TO 8
  10. x1(n)=x(n)
  11. y1(n)=COS(alfa)*y(n)-SIN(alfa)*z(n)
  12. z1(n)=SIN(alfa)*y(n)+COS(alfa)*z(n)
  13. NEXT n
  14. FOR n=1 TO 8
  15. x(n)=x1(n) : y(n)=y1(n) : z(n)=z1(n)
  16. NEXT n
  17. GOTO dibujo
  18.