nariakiiwatani · July 14, 2020 00:49
diff --git a/clamp_inverse_test.glisp b/clamp_inverse_test.glisp
 (defn clamp
 	{:inverse (fn [{:return ret :params [v min max]}]
 	              [ret min max])}
 	[v min max]
 	(if (< v min) min
 		(if (> v max) max
 			v))
 )
 (defvar v 142.8125)
 (style (stroke "salmon" 5)
 (circle [(clamp v -100 100) (clamp v -50 50)] 50)
 )
	(defn clamp
	{:inverse (fn [{:return ret :params [v min max]}]
	[ret min max])}
	[v min max]
	(if (< v min) min
	(if (> v max) max
	v))
	)
	(defvar v 142.8125)
	(style (stroke "salmon" 5)
	(circle [(clamp v -100 100) (clamp v -50 50)] 50)
	)