stuff

LIB/types/spinner.moon

@@ -0,0 +1,21 @@
+path = (...)\sub 1, -("spinner"\len! + 2)
+generic = require "#{path}/generic"
+
+import graphics from love
+import pi, min from math
+tau = pi * 2
+half_pi = pi / 2
+
+class spinner extends generic
+  new: (element={}, parent) =>
+    super element, parent
+
+    -- @offset = -half_pi
+    @offset = 0 unless @offset
+    @value = 0.1 -- temporary
+
+    -- slab = require "#{path\sub 1, -7}/slab"
+
+  draw: =>
+    -- TODO should be setting color!
+    graphics.arc "line", @x + @w / 2, @y + @h / 2, min(@w, @h), @offset, @offset + @value * tau