from Script_Compass
%r=serverconnection.getcontrolobject().gettransform();
%rx = getword(%r, 0);
%ry = getword(%r, 1);
%r= 2 * $pi - (getword(%r,5) * getword(%r,6));
%rootcos=mcos(%r);
%rootsin=msin(%r);
%compassposx = getword(CompassH_IMG.position, 0) + (getword(CompassH_IMG.extent, 0) / 2);
%compassposy = getword(CompassH_IMG.position, 1) + (getword(CompassH_IMG.extent, 1) / 2);