glguy/parabox
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add bigfont

Browse Source
This commit is contained in:
Eric Mertens 2022-12-07 10:40:50 -08:00
parent babd42f838
commit af5305cc24
2 changed files with 253 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

237
app/BigFont.hs Normal file
View File

@ -0,0 +1,237 @@
module BigFont where
import Data.Map qualified as Map
import Data.Map (Map)
import Data.Maybe
import Data.List (intersperse, transpose)
bigText :: String -> [String]
bigText = map concat . transpose . intersperse sep . mapMaybe \x -> Map.lookup x letters
sep :: [String]
sep = [" " ," " ," " ," " ," "]
letters :: Map Char [String]
letters = Map.fromList
[(' ',
[" "
," "
," "
," "
," "]),
('A',
[" █████ "
,"██ ██"
,"███████"
,"██ ██"
,"██ ██"]),
('B',
["██████ "
,"██ ██"
,"██████ "
,"██ ██"
,"██████ "]),
('C',
[" ██████"
,"██ "
,"██ "
,"██ "
," ██████"]),
('D',
["██████ "
,"██ ██"
,"██ ██"
,"██ ██"
,"██████ "]),
('E',
["███████"
,"██ "
,"█████ "
,"██ "
,"███████"]),
('F',
["███████"
,"██ "
,"█████ "
,"██ "
,"██ "]),
('G',
[" ██████ "
,"██ "
,"██ ███"
,"██ ██"
," ██████ "]),
('H',
["██ ██"
,"██ ██"
,"███████"
,"██ ██"
,"██ ██"]),
('I',
["██"
,"██"
,"██"
,"██"
,"██"]),
('J',
[" ██"
," ██"
," ██"
,"██ ██"
," █████ "]),
('K',
["██ ██"
,"██ ██ "
,"█████ "
,"██ ██ "
,"██ ██"]),
('L',
["██ "
,"██ "
,"██ "
,"██ "
,"███████"]),
('M',
["███ ███"
,"████ ████"
,"██ ████ ██"
,"██ ██ ██"
,"██ ██"]),
('N',
["███ ██"
,"████ ██"
,"██ ██ ██"
,"██ ██ ██"
,"██ ████"]),
('O',
[" ██████ "
,"██ ██"
,"██ ██"
,"██ ██"
," ██████ "]),
('P',
["██████ "
,"██ ██"
,"██████ "
,"██ "
,"██ "]),
('Q',
[" ██████ "
,"██ ██"
,"██ ██"
,"██ ▄▄ ██"
," ██████ "]),
('R',
["██████ "
,"██ ██"
,"██████ "
,"██ ██"
,"██ ██"]),
('S',
["███████"
,"██ "
,"███████"
," ██"
,"███████"]),
('T',
["████████"
," ██ "
," ██ "
," ██ "
," ██ "]),
('U',
["██ ██"
,"██ ██"
,"██ ██"
,"██ ██"
," ██████ "]),
('V',
["██ ██"
,"██ ██"
,"██ ██"
," ██ ██ "
," ████ "]),
('W',
["██ ██"
,"██ ██"
,"██ █ ██"
,"██ ███ ██"
," ███ ███ "]),
('X',
["██ ██"
," ██ ██ "
," ███ "
," ██ ██ "
,"██ ██"]),
('Y',
["██ ██"
," ██ ██ "
," ████ "
," ██ "
," ██ "]),
('Z',
["███████"
," ███ "
," ███ "
," ███ "
,"███████"]),
('0',
[" ██████ "
,"██ ████"
,"██ ██ ██"
,"████ ██"
," ██████ "]),
('1',
[" ██"
,"███"
," ██"
," ██"
," ██"]),
('2',
["██████ "
," ██"
," █████ "
,"██ "
,"███████"]),
('3',
["██████ "
," ██"
," █████ "
," ██"
,"██████ "]),
('4',
["██ ██"
,"██ ██"
,"███████"
," ██"
," ██"]),
('5',
["███████"
,"██ "
,"███████"
," ██"
,"███████"]),
('6',
[" ██████ "
,"██ "
,"███████ "
,"██ ██"
," ██████ "]),
('7',
["███████"
," ██"
," ██ "
," ██ "
," ██ "]),
('8',
[" █████ "
,"██ ██"
," █████ "
,"██ ██"
," █████ "]),
('9',
[" █████ "
,"██ ██ "
," ██████ "
," ██ "
," █████ "])]

16
levels/infiniteExit10.txt Normal file
View File

@ -0,0 +1,16 @@
player p
block a yellow interesting
▓▓▓▓
p ▓ ▓▓
첲
- ▓
- ▓▓▓
=
a
infinity ∞ a yellow
block p magenta boring
▓▓▓▓▓
▓ ▓ ▓
▓▓▓▓▓
▓▓▓▓▓
▓▓▓▓▓