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

pumatask()
{

	TRSF_PTR e, z, p, pa, pg, pd, h, ht, pha, pch, pac, pn;
	POS_PTR pos1, pos2, pos3, pos4, pos5, pos6, pos7, pos8;
	int q;

	z = gentr_eul("Z", 0., 0., 500., 0., 0., 0.);
	e = gentr_eul("E", 0., 0., 200., 0., 0., 0.);
	p    = gentr_eul("P"   , 200., 0., 0., -90., -90., 0.);
	pa   = gentr_eul("PA"  , 30., 0., -50., 0., -45., 0.);
	pg   = gentr_eul("PG"  , 0., 0., -50., 0., -45., 0.);
	pd   = gentr_eul("PD"  , 50., 0., 0., 0., 0., 0.);
	h    = gentr_eul("H"   , 250., 300., 0., 0., -90., 0.);
	ht   = gentr_pao("HT"  , 100., 0., 50., 0., 1., 0., 0., 0., -1.);
	pha  = gentr_eul("PHA" , 0., 0., -20., 0., 15., 0.);
	pch  = gentr_eul("PCH" , 0., 0., 0., 0., 15., 0.);
	pac  = gentr_eul("PAC" , 0., 0., 0., 0., 0., 0.);
	pn   = gentr_eul("PN"  , 0., 0., 40., 0., 0., 0.);

	pos1 = makeposition("P1", z, t6, e, EQ, p, pa, TL, e);
	pos2 = makeposition("P2", z, t6, e, EQ, p, pg, TL, e);
	pos3 = makeposition("P3", z, t6, e, EQ, p, pd, pg, TL, pg);
	pos4 = makeposition("P4", z, t6, e, EQ, h, ht, pha, pg, TL, pg);
	pos5 = makeposition("P5", z, t6, e, EQ, h, ht, pch, pg, TL, pg);
	pos6 = makeposition("P6", z, t6, e, EQ, h, ht, pac, pg, TL, pg);
	pos7 = makeposition("P7", z, t6, e, EQ, h, ht, pn, pg, TL, pg);
	pos8 = makeposition("P8", z, t6, e, EQ, h, ht, pn, pa, TL, e);

	setvel(250, 250);
	setmod('c');
	move(pos1);
	move(pos2);
	stop(0);
	move(pos3);
	move(pos4);
	move(pos5);
	move(pos6);
	move(pos7);
	move(pos8);
	move(park);
}
