home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / ROBOT03.ZIP / RCCL196 < prev    next >
Encoding:
Text File  |  1987-03-02  |  731 b   |  28 lines
  1. #include "../h/rccl.h"
  2.  
  3. pumatask()
  4. {
  5.     TRSF_PTR z, e ,h , b, c;
  6.     POS_PTR  p0, p1, p2, p3, p4;
  7.  
  8.     z = gentr_rot("Z",  500.,  0., -500., yunit, 180.);
  9.     h = newtrans("H", const);
  10.     c = newtrans("C", const);
  11.     e = newtrans("E", const);
  12.     b = newtrans("B", const);
  13.  
  14.     p0 = makeposition("P0" , z, t6, e, h, EQ, c, b, TL, t6);
  15.     p1 = makeposition("P1" , z, t6, e, h, EQ, c, b, TL, e);
  16.     p2 = makeposition("P2" , z, t6, e, h, EQ, c, b, TL, h);
  17.     p3 = makeposition("P3" , z, t6, e, h, EQ, c, b, TL, b);
  18.     p4 = makeposition("P4" , z, t6, e, h, EQ, c, b, TL, c);
  19.  
  20.  
  21.     movecart(p0, 200, 1000);
  22.     movecart(p1, 200, 1000);
  23.     movecart(p2, 200, 1000);
  24.     movecart(p3, 200, 1000);
  25.     movecart(p4, 200, 1000);
  26.     movecart(park, 200, 1000);
  27. }
  28.