From 532c32736b764292dfa5b20fef3b7675e148743b Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Sat, 31 Dec 2022 03:13:55 +0000
Subject: pride

---
 pride.lua | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 pride.lua

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
+
-- 
cgit v1.2.3