summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pride.lua23
1 files changed, 23 insertions, 0 deletions
diff --git a/pride.lua b/pride.lua
new file mode 100644
index 0000000..8154e08
--- /dev/null
+++ b/pride.lua
@@ -0,0 +1,23 @@
+
+local p = peripheral.wrap"right"
+
+function flag(cols,amount)
+ -- cols is list, top to bottom
+ local n = #cols
+ local csz = math.floor(16/n)
+ assert(csz>0, "too many stripes!")
+
+ p.reset()
+ local function q(i,c)
+ local yM,ym = 16-(i*csz), 16-(i*csz)-csz
+ return { 0, ym, 15, 16, yM, 16, texture="sc-peripherals:block/white", tint=c }
+ end
+ local shapes = {}
+ for i,col in ipairs(cols) do
+ shapes[i] = q(i,col)
+ end
+ p.addshapes(shapes)
+ p.commit(amount or 1)
+
+end
+