:- reconsult(akcje2).

% Odczyt predkosci.
nxtMotor(Motor,Speed) :-
	nonvar(Motor),
	var(Speed),
	getSpeed(Motor,Speed).

% Wprawienie w ruch silnika z zadana predkoscia.
nxtMotor(Motor,Speed) :-
	nonvar(Motor),
	nonvar(Speed),
	setSpeed(Motor,Speed).

% Zmiana predkosci silnika na okreslony czas.
% Po jego uplywie predkosc ustawiana jest na poprzednia wartosc.
nxtMotor(Motor,Speed,[time,Time]) :-
	nonvar(Motor),
	nonvar(Speed),
	nonvar(Time),
	nxtMotor(Motor,Oldspeed),
	createTimer(T1),
	setSpeed(Motor,Speed),
	wakeup(T1,Time,nxtMotor(Motor,Oldspeed)).

% Obrot silnika z zadana predkoscia o zadany kat.
nxtMotor(Motor,Speed,[angle,Angle]) :-
	nonvar(Motor),
	nonvar(Speed),
	nonvar(Angle),
	setSpeed(Motor,Speed,Angle).

nxtMotor(Motor,Speed,Angle) :- 
	nxtMotor(Motor,Speed,[angle,Angle]).