input.clj

(ns hard.input
  (:import
    [UnityEngine Input KeyCode Camera Physics Time Camera Ray RaycastHit]))
  
(def ^:private axis-cache (atom [0 0]))

(declare mouse?)
 
(defn get-keycode [s]
	(try (or (eval (symbol (str "KeyCode/" s))) false) (catch Exception e nil)))

(defn ^:private kcode* [k]
	(cond 
		(keyword? k) (apply str (rest (str k)))
		(symbol? k) (get-keycode k)
		(string? k) k))

(defn key-down? [k]
	(Input/GetKeyDown (kcode* k)))

(defn key? [k]
	(Input/GetKey (kcode* k)))

(defn key-up? [k]
	(Input/GetKeyUp (kcode* k)))

(defn button? [s]
  (Input/GetButton s))

(defn button-up? [s]
  (Input/GetButtonUp s))

(defn button-down? [s]
  (Input/GetButtonDown s))

(defmacro route [f & more]
	(let [pairs (partition 2 more)]
		(cons 'do
			(for [[k code] pairs]
			`(if (~f ~k) ~code) ))))



(defn ^:private mouse-code* [b]
	(cond (#{0 1 2} b) b
		:else (or (get {:left 0 :middle 1 :right 2} b) 0)))

(defn mouse-down? 
	([] (mouse-down? 0)) 
	([b] (Input/GetMouseButtonDown (mouse-code* b))))

(defn mouse-up? 
	([] (mouse-up? 0)) 
	([b] (Input/GetMouseButtonUp (mouse-code* b))))

(defn mouse? 
	([] (mouse? 0)) 
	([b] (Input/GetMouseButton (mouse-code* b))))


(defn mouse-pos []
	(let [pos (Input/mousePosition)]
		[(.x pos) (.y pos)]))


(defn get-axis [k]
	(case k
		:horizontal (Input/GetAxis "Horizontal")
		"horizontal" (Input/GetAxis "Horizontal")
		:vertical (Input/GetAxis "Vertical")
		"vertical" (Input/GetAxis "Vertical"
		:mouse-x (Input/GetAxis "Mouse X")
		"Mouse X" (Input/GetAxis "Mouse X")
		:mouse-y (Input/GetAxis "Mouse Y")
		"Mouse Y" (Input/GetAxis "Mouse Y"))))

(defn mouse-ray []
	(.ScreenPointToRay (Camera/main) (Input/mousePosition)))

(defn ray-hit
	([ray] (ray-hit ray 10000.0))
	([^Ray ray ^double length ]
		(let [hit (RaycastHit.)]
			(Physics/Raycast (.origin ray) (.direction ray) length))))

(defn ray-hits
	([ray] (ray-hits ray 1000.0))
	([^Ray ray ^double length ]
		(let [hit (RaycastHit.)]
			(Physics/RaycastAll (.origin ray) (.direction ray) length))))

 
(defn joy []
	[(get-axis :horizontal)
	(get-axis :vertical)])

(defn joy-left? []
	(< (get-axis :horizontal) -0.3))

(defn joy-right? []
	(> (get-axis :horizontal) 0.3))

(defn joy-up? []
	(> (get-axis :vertical) 0.3))

(defn joy-down? []
	(< (get-axis :vertical) -0.3))