Programmer 7500/MAX_PROGRAMMERS.iso/INFO/C/ROBOT04.ZIP/RCCL213

Text File | 1987-03-02 | 271 b | 18 lines

#include "../h/rccl.h"


pumatask()
{
    TRSF_PTR t, e , b;
    POS_PTR  p0;

    t = gentr_trsl("T",  0.,  0., 864.);
    b = gentr_rot("B", 600. , 100., 800., yunit, 180.);

    p0 = makeposition("P0", t, t6, EQ, b, TL, t6);

    setmod('c');
    move(p0);
    move(park);
}