home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume10 / logo / part01 / tek.i < prev    next >
Encoding:
Text File  |  1987-06-23  |  835 b   |  49 lines
  1.  
  2. /* Include file for turtle.c for TEK */
  3.  
  4. int tekfrom(),tekto(),tekin(),tekout(),tekstate();
  5. struct display tek ={0.0,0.0,0.0,-512.0,511.0,-390.0,389.0,1.0,0,
  6.     "","\032\035\033\014\030","","\032\035\033\014\030",
  7.     nullfn,tekfrom,tekto,nullfn,tekin,tekout,nullfn,
  8.     nullfn,nullfn,tekstate};
  9.  
  10. tekfrom(x,y)
  11. double x,y;
  12. {
  13.     printf("\035");
  14.     plotpos((int)x,(int)y);
  15. }
  16.  
  17. tekto(x,y)
  18. double x,y;
  19. {
  20.     plotpos((int)x,(int)y);
  21.     printf("\035\067\177\040\100\037\030");
  22. }
  23.  
  24. tekin() {
  25.     shown = 0;
  26.     system("stty -lcase");
  27. }
  28.  
  29. tekout() {
  30.     system("stty lcase");
  31. }
  32.  
  33. tekstate(which) {
  34.     switch(which) {
  35.         case 'R':
  36.             printf("Tek can't penreverse, setting pendown\n.");
  37.             penerase = 0;
  38.             return;
  39.         case 'E':
  40.             printf("Tek can't penerase, setting pendown.\n");
  41.             penerase = 0;
  42.             return;
  43.         case 'S':
  44.             printf("Tek can't showturtle.\n");
  45.             shown = 0;
  46.     }
  47. }
  48.  
  49.