/*-=-=-=-=-=-=-=-=-=-=-=- RCCL/RCI Notice of Copyright -=-=-=-=-=-=-=-=-=-=-*
 *									    *
 *	Copyright (C) 1991 by John E. Lloyd.				    *
 *									    *
 *	Information on copyright permissions, as well as a complete	    *
 *	disclaimer of warranty, is given in the file COPYRIGHT.		    *
 *									    *
 *-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
/* Control level code for the program testJb */

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

changeJ0 (jb, arg, mnp)
JNTS *jb;
int arg;
{
	float delta = arg/1000.0;
	jb->v[0] += delta * rcclGetInterval() / 1000.0;
}

changeJ1 (jb, arg, mnp)
JNTS *jb;
int arg;
MANIP *mnp;
{
	float delta = arg/1000.0;
	jb->v[1] += delta * rcclGetInterval() / 1000.0;
}

changeX (tr, arg, mnp)
TRSF *tr;
int arg;
MANIP *mnp;
{
	float delta = arg/1000.0;
	tr->p.x += delta * rcclGetInterval() / 1000.0;
}
