diff --git a/scripts/gen-theme-views.hs b/scripts/gen-theme-views.hs
new file mode 100644
index 0000000..be3e2b7
--- /dev/null
+++ b/scripts/gen-theme-views.hs
@@ -0,0 +1,29 @@
+import Text.Printf
+
+edge = 28.223 :: Double
+spacing = 32 :: Double
+gap = spacing - edge
+across = [("light", "left"), ("dark", "right"), ("dark", "left"), ("light", "right")]
+down = ["king", "queen", "bishop", "knight", "rook", "pawn"]
+
+useElement :: Double -> Double -> String -> String -> String -> String
+useElement x y side kind place = printf format name x y edge edge x y name
+ where
+ format =
+ "\n" ++
+ "