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

(require 'ev3-color)
(require 'ev3-sensor-init)
(require 'file-write-to)

(defun color-get-value ()
  (file-to-integer (format "%s/value0" color-path)) )

(defun color-get-ambient ()
  (color-set-mode "COL-AMBIENT")
  (color-get-value) )

(defun color-get-color ()
  (color-set-mode "COL-COLOR")
  (color-get-value) )

(defun color-get-reflect ()
  (color-set-mode "COL-REFLECT")
  (color-get-value) )

(defun color-get-rgb ()
  (color-set-mode "RGB-RAW")
  (mapcar (lambda (f) (file-to-integer f))
          (mapcar (lambda (n)
                    (format "%s/value%d" color-path n))
                  '(0 1 2) )))

(provide 'ev3-color-value)