Yawin

Untitled

Mar 18th, 2015
279
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.63 KB | None | 0 0
  1. function cubo(int stepe, int _wi)
  2. private
  3. int i,j,vertices[5][4];
  4. end
  5. begin
  6. clear_screen();
  7. delete_draw(0);
  8. stepe*=1000;
  9.  
  10. vertices[0][0]=320 + cos(stepe)*2*_wi; vertices[0][1]=(240-_hi) + sin(stepe)*_wi;
  11. vertices[1][0]=320 + cos(stepe+1*70000) *2*_wi; vertices[1][1]=(240-_hi) + sin(stepe+1*70000)*_wi;
  12. vertices[2][0]=320 + cos(stepe+2*70000) *2*_wi; vertices[2][1]=(240-_hi) + sin(stepe+2*70000)*_wi;
  13. vertices[3][0]=320 + cos(stepe+3*70000)*2*_wi; vertices[3][1]=(240-_hi) + sin(stepe+3*70000)*_wi;
  14. vertices[4][0]=320 + cos(stepe+4*70000)*2*_wi; vertices[4][1]=(240-_hi) + sin(stepe+4*70000)*_wi;
  15.  
  16. vertices[0][2]=320 + cos(stepe)*2*_wi; vertices[0][3]=(240+_hi) + sin(stepe)*_wi;
  17. vertices[1][2]=320 + cos(stepe+1*70000) *2*_wi; vertices[1][3]=(240+_hi) + sin(stepe+1*70000)*_wi;
  18. vertices[2][2]=320 + cos(stepe+2*70000) *2*_wi; vertices[2][3]=(240+_hi) + sin(stepe+2*70000)*_wi;
  19. vertices[3][2]=320 + cos(stepe+3*70000)*2*_wi; vertices[3][3]=(240+_hi) + sin(stepe+3*70000)*_wi;
  20. vertices[4][2]=320 + cos(stepe+4*70000)*2*_wi; vertices[4][3]=(240+_hi) + sin(stepe+4*70000)*_wi;
  21.  
  22. drawing_color(rgb(255,255,255));
  23. for(i=0;i<4;i++)
  24. draw_line(vertices[i][0],vertices[i][1],vertices[i+1][0],vertices[i+1][1]);
  25. draw_line(vertices[i][2],vertices[i][3],vertices[i+1][2],vertices[i+1][3]);
  26. draw_line(vertices[i][0],vertices[i][1],vertices[i][2],vertices[i][3]);
  27. end
  28. draw_line(vertices[0][0],vertices[0][1],vertices[i][0],vertices[i][1]);
  29. draw_line(vertices[0][2],vertices[0][3],vertices[i][2],vertices[i][3]);
  30. draw_line(vertices[i][0],vertices[i][1],vertices[i][2],vertices[i][3]);
  31. end
Advertisement
Add Comment
Please, Sign In to add comment