;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/terror-3/ev3-motor-stop.el

(require 'ev3-motor)

(defun still-p ()
  (let ((motor-left  (get-motor-speed 'left))
        (motor-right (get-motor-speed 'right)) )
    (= 0 motor-left motor-right) ))

(defun moving-forward-p ()
  (let ((motor-left  (get-motor-speed 'left))
        (motor-right (get-motor-speed 'right)) )
    (or (and (<  0 motor-left)
             (<= (abs motor-right) motor-left) )
        (and (<  0 motor-right)
             (<= (abs motor-left)  motor-right) ))))

(defun ev3-stop ()
  (interactive)
  (stop-motor-both) )

(provide 'ev3-motor-stop)