home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / ROBOT04.ZIP / RCCL215 < prev    next >
Encoding:
Text File  |  1987-03-02  |  1.5 KB  |  45 lines
  1. #include "../h/rccl.h"
  2.  
  3. pumatask()
  4. {
  5.  
  6.     TRSF_PTR e, z, p, pa, pg, pd, h, ht, pha, pch, pac, pn;
  7.     POS_PTR pos1, pos2, pos3, pos4, pos5, pos6, pos7, pos8;
  8.     int q;
  9.  
  10.     z = gentr_eul("Z", 0., 0., 500., 0., 0., 0.);
  11.     e = gentr_eul("E", 0., 0., 200., 0., 0., 0.);
  12.     p    = gentr_eul("P"   , 200., 0., 0., -90., -90., 0.);
  13.     pa   = gentr_eul("PA"  , 30., 0., -50., 0., -45., 0.);
  14.     pg   = gentr_eul("PG"  , 0., 0., -50., 0., -45., 0.);
  15.     pd   = gentr_eul("PD"  , 50., 0., 0., 0., 0., 0.);
  16.     h    = gentr_eul("H"   , 250., 300., 0., 0., -90., 0.);
  17.     ht   = gentr_pao("HT"  , 100., 0., 50., 0., 1., 0., 0., 0., -1.);
  18.     pha  = gentr_eul("PHA" , 0., 0., -20., 0., 15., 0.);
  19.     pch  = gentr_eul("PCH" , 0., 0., 0., 0., 15., 0.);
  20.     pac  = gentr_eul("PAC" , 0., 0., 0., 0., 0., 0.);
  21.     pn   = gentr_eul("PN"  , 0., 0., 40., 0., 0., 0.);
  22.  
  23.     pos1 = makeposition("P1", z, t6, e, EQ, p, pa, TL, e);
  24.     pos2 = makeposition("P2", z, t6, e, EQ, p, pg, TL, e);
  25.     pos3 = makeposition("P3", z, t6, e, EQ, p, pd, pg, TL, pg);
  26.     pos4 = makeposition("P4", z, t6, e, EQ, h, ht, pha, pg, TL, pg);
  27.     pos5 = makeposition("P5", z, t6, e, EQ, h, ht, pch, pg, TL, pg);
  28.     pos6 = makeposition("P6", z, t6, e, EQ, h, ht, pac, pg, TL, pg);
  29.     pos7 = makeposition("P7", z, t6, e, EQ, h, ht, pn, pg, TL, pg);
  30.     pos8 = makeposition("P8", z, t6, e, EQ, h, ht, pn, pa, TL, e);
  31.  
  32.     setvel(250, 250);
  33.     setmod('c');
  34.     move(pos1);
  35.     move(pos2);
  36.     stop(0);
  37.     move(pos3);
  38.     move(pos4);
  39.     move(pos5);
  40.     move(pos6);
  41.     move(pos7);
  42.     move(pos8);
  43.     move(park);
  44. }
  45.