home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / ROBOT04.ZIP / RCCL235 < prev    next >
Encoding:
Text File  |  1987-03-02  |  828 b   |  38 lines
  1. #include "../h/rccl.h"
  2.  
  3. pumatask()
  4. {
  5.     TRSF_PTR z, e , b, pa1, pa2, conv;
  6.     POS_PTR  p0, pt1, pt2;
  7.     int convfn();
  8.     int i;
  9.  
  10.     conv = newtrans("CONV",convfn);
  11.     z = gentr_trsl("Z",  0.,  0., 864.);
  12.     e = gentr_trsl("E" , 0. , 0. , 170.);
  13.     b = gentr_rot("B", 600. , -500., 600., yunit, 180.);
  14.     pa1 = gentr_eul("PA1"  , 30., 0., 50., 0., 20., 0.);
  15.     pa2 = gentr_eul("PA2"  , -30., 0., 50., 0., -20., 0.);
  16.  
  17.     p0 = makeposition("P0" , z, t6, e, EQ, b, TL, e);
  18.     pt1 = makeposition("PT1", z, t6, e, EQ, conv, b, pa1, TL, e);
  19.     pt2 = makeposition("PT2", z, t6, e, EQ, conv, b, pa2, TL, e);
  20.  
  21.     setvel(300, 50);
  22.     setmod('c');
  23.     setime(300, 0);
  24.     move(p0);
  25.     for (i = 0; i < 4; ++i) {
  26.         movecart(pt1, 100, 1000);
  27.         movecart(pt2, 100, 1000);
  28.     }
  29.     setmod('j');
  30.     move(park);
  31. }
  32.  
  33. convfn(t)
  34. TRSF_PTR t;
  35. {
  36.     t->p.y += 3.;
  37. }
  38.