home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / ROBOT01.ZIP / RCCL081 < prev    next >
Encoding:
Text File  |  1987-03-02  |  665 b   |  53 lines
  1. /*
  2.  * Manual's example
  3.  *
  4.  * Interresting to see running
  5.  */
  6.  
  7. #include <stdio.h>
  8. #include "../h/rtc.h"
  9. #include "../h/umac.h"
  10.  
  11. int     enough = NO;
  12.  
  13. main()
  14. {
  15.     extern int terminate;
  16.     int dummy(), soft();
  17.     int c;
  18.  
  19.     for (; ; ) {
  20.         stepmode();
  21.         control(dummy, soft);
  22.         printf("enough ?");
  23.         QUERY(c);
  24.         if (c == 'y') {
  25.             enough = YES;
  26.             break;
  27.         }
  28.     }
  29.     release("all right");
  30. }
  31.  
  32.  
  33. dummy()
  34. {
  35. }
  36.  
  37.  
  38. soft()
  39. {
  40.     extern struct chg chg;
  41.     extern struct how how;
  42.     register int i;
  43.  
  44.     if (enough) {
  45.         terminate = YES;
  46.         return;
  47.     }
  48.     chg.a_motion.set = POS;
  49.     for (i = 0; i < NJOINTS; ++i) {
  50.         chg.a_motion.vala[i] = how.pos[i];
  51.     }
  52. }
  53.