home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 227_01 / turtle.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-02-07  |  768 b   |  46 lines
  1. #include <stdio.h>
  2. #ifdef    __TURBOC__
  3. #include <conio.h>
  4. #endif
  5. #include "graphics.h"
  6.  
  7. void main()  /* turtle grafik demo */
  8. {
  9. initgraf(-1);
  10. gt_init();
  11. gt_show();
  12. gt_dir(180);
  13. gt_forwd(200);
  14. gt_dir(90);
  15. gt_forwd(200);
  16. gt_dir(0);
  17. gt_forwd(200);
  18. gt_dir(270);
  19. gt_forwd(200);
  20. gt_dir(315);
  21. gt_forwd(200);
  22. gt_dir(180);
  23. gt_forwd(200);
  24. gt_dir(135);
  25. gt_forwd(200);
  26. gt_dir (90);
  27. gt_forwd(200);
  28. gt_dir(315);
  29. gt_forwd(200);
  30. gt_dir(360);
  31. gt_forwd(200);
  32. gt_dir(270);
  33. gt_forwd(200);
  34. gt_dir(180);
  35. gt_forwd(200);
  36. gt_dir(90);
  37. gt_forwd(200);
  38. gt_dir(360);
  39. gt_forwd(200);
  40. gt_dir(135);
  41. gt_forwd(200);
  42. if(getch() == 'P')
  43.     prtgrf();
  44. exitgraf(-1);
  45. }
  46.