home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
500
/
471
/
rccl215
< prev
next >
Wrap
Text File
|
1987-03-02
|
2KB
|
45 lines
#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);
}