home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 500 / 471 / rccl213 < prev    next >
Text File  |  1987-03-02  |  271b  |  18 lines
  1. #include "../h/rccl.h"
  2.  
  3.  
  4. pumatask()
  5. {
  6.     TRSF_PTR t, e , b;
  7.     POS_PTR  p0;
  8.  
  9.     t = gentr_trsl("T",  0.,  0., 864.);
  10.     b = gentr_rot("B", 600. , 100., 800., yunit, 180.);
  11.  
  12.     p0 = makeposition("P0", t, t6, EQ, b, TL, t6);
  13.  
  14.     setmod('c');
  15.     move(p0);
  16.     move(park);
  17. }
  18.