home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
500
/
471
/
rccl196
< prev
next >
Wrap
Text File
|
1987-03-02
|
731b
|
28 lines
#include "../h/rccl.h"
pumatask()
{
TRSF_PTR z, e ,h , b, c;
POS_PTR p0, p1, p2, p3, p4;
z = gentr_rot("Z", 500., 0., -500., yunit, 180.);
h = newtrans("H", const);
c = newtrans("C", const);
e = newtrans("E", const);
b = newtrans("B", const);
p0 = makeposition("P0" , z, t6, e, h, EQ, c, b, TL, t6);
p1 = makeposition("P1" , z, t6, e, h, EQ, c, b, TL, e);
p2 = makeposition("P2" , z, t6, e, h, EQ, c, b, TL, h);
p3 = makeposition("P3" , z, t6, e, h, EQ, c, b, TL, b);
p4 = makeposition("P4" , z, t6, e, h, EQ, c, b, TL, c);
movecart(p0, 200, 1000);
movecart(p1, 200, 1000);
movecart(p2, 200, 1000);
movecart(p3, 200, 1000);
movecart(p4, 200, 1000);
movecart(park, 200, 1000);
}