Add wall placement obstructions, start to generalise pictures

2022-07-10 00:17:09 +01:00
parent d53e87e5eb
commit dc803b64b0
4 changed files with 37 additions and 32 deletions
@@ -46,6 +46,7 @@ textNum     = ShadNum 3
 arcNum      = ShadNum 4
 ellNum      = ShadNum 5
 type Picture = Stream (Of Verx) IO ()
+type Picture' = [Verx]
 flat2 :: V2 a -> [a]
 flat2 (V2 x y) = [x,y]
 flat3 :: V3 a -> [a]