justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Add border to terminal display

Browse Source
This commit is contained in:
justin
2025-12-23 15:43:56 +00:00
parent 183bb16fca
commit 238d6b8799
9 changed files with 133 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Picture/Base.hs
+1 -1
View File
@@ -63,7 +63,7 @@ blank = mempty
polygonWire :: [Point2] -> Picture
{-# INLINE polygonWire #-}
polygonWire ps = line (ps ++ [head ps])
polygonWire ps = line (ps <> [head ps])
picMap :: (Verx -> Verx) -> Picture -> Picture
{-# INLINE picMap #-}