home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
pose1os2.zip
/
EXAMPLES
/
SHIP
/
SCENE1
/
RGHTFRNT.SIM
< prev
next >
Wrap
Text File
|
1995-04-14
|
375b
|
31 lines
init {
x = 0;
y = 0;
z = -.20;
rotate(0,75,0);
// rotation angles for this mandible range from 75 to -25
yangle = 80;
direction = -5;
}
eval {
yangle += direction;
rotate(0,yangle,0);
if(yangle == -25)
{
direction = 5;
}
if(yangle == 75)
{
direction = -5;
}
}