From 819f55a4237f9d237ac2566bccc9943ee48d195f Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Tue, 8 Dec 2020 17:30:11 -0500 Subject: Add 3270 font sample --- docs/fonts.html | 53 +++++++++++++++++++++++++++++++++++++++++++++++------ 1 file changed, 47 insertions(+), 6 deletions(-) (limited to 'docs/fonts.html') diff --git a/docs/fonts.html b/docs/fonts.html index 766b3aec..afadbce2 100644 --- a/docs/fonts.html +++ b/docs/fonts.html @@ -30,11 +30,12 @@
BQN / main

Fonts for BQN

-

This page shows samples, and a font-selectable REPL at the end, for all four free fonts I know of that fully support BQN's character set:

+

This page shows samples, and a font-selectable REPL at the end, for all five free fonts I know of that fully support BQN's character set:

Other than DejaVu, the versions embedded on this page are small subsets, and you should get your copy from the links above (unless perhaps you want to use them for embedding as well). In addition to these, Pragmata Pro and Everson Mono have full support, but each charges a significant fee for usage and I can't freely embed them here.

@@ -96,7 +97,7 @@ Fairfax HD -
`1234567890=  ~!@#$%^&*()_+
+
`1234567890=  ~!@#$%^&*()_+
  qwertyuiop[] QWERTYUIOP{}
  asdfghjkl;'\ ASDFGHJKL:"|
  zxcvbnm,./   ZXCVBNM<>?
@@ -109,7 +110,26 @@ Fairfax HD
 ⍬⍺⍵⍴⍳⍸⌷⍨⍤⍥⍣⊖⊂⊃⊆⊇∩∪⊥⊤⍝⍀⌿⍪
 ⎕⌺⌹⌸⍞⍠⌶⍱⍲⍫∇∆⍢⍙…
 

-
Julia Mono

+
3270

+
+
+
+
+
+
`1234567890=  ~!@#$%^&*()_+
+ qwertyuiop[] QWERTYUIOP{}
+ asdfghjkl;'\ ASDFGHJKL:"|
+ zxcvbnm,./   ZXCVBNM<>?
+
+˜˘¨⁼⌜´˝ ∞¯•×  ¬⎉⚇⍟◶⊘⎊⍎⍕⟨⟩√⋆
+ ⌽𝕨∊↑∧ ⊔⊏⊐π←→ ↙𝕎⍷𝕣⍋  ⊑⊒⍳⊣⊢
+ ⍉𝕤↕𝕗𝕘⊸∘○⟜⋄↩  ↖𝕊 𝔽𝔾« ⌾»·˙
+ ⥊𝕩↓∨⌊ ≡∾≍≠ ‿  𝕏 ⍒⌈ ≢≤≥⇐
+
+⍬⍺⍵⍴⍳⍸⌷⍨⍤⍥⍣⊖⊂⊃⊆⊇∩∪⊥⊤⍝⍀⌿⍪
+⎕⌺⌹⌸⍞⍠⌶⍱⍲⍫∇∆⍢⍙…
+

+
Julia Mono

 
 
 
@@ -173,6 +193,25 @@ Fairfax HD
 }
+
3270
+
+  c←𝕩='#'⋄s←/0‿0⊸«⊸∧sm←𝕩='''⋄d←/dm←𝕩='"'
+  g←⍋q←∾⟨  s⋄¯1↓d⋄/c⟩ ⋄q↩g⊏q                # Open indices
+  e← g⊏∾⟨2+s⋄ 1↓d⋄-⟜»∘⊏⟜(0∾+`c)⊸//(𝕩=lf)∾1⟩ # Matching close indices
+  Se←{(⊏˜𝕨)Se 1¨⌾((𝕩/𝕨)⊸⊏)𝕩}⍟(0=¯1⊑⊢)       # Mark reachable openings
+
+PrecedesGroup ← {
+  # We prepend a 0 to 𝕨, so that 0 is the "before start" index, with a
+  # false value, and normal indices are increased by 1.
+  𝕨 ∾˜↩ 0
+  inds ← 1 + ↕≠𝕩
+  # Zero out indices where 𝕩 was true, and find the greatest index so
+  # far at each position.
+  last ← ⌈` inds × ¬𝕩
+  last ⊏ 𝕨
+}
+
+ 
Julia Mono
 
   c←𝕩='#'⋄s←/0‿0⊸«⊸∧sm←𝕩='''⋄d←/dm←𝕩='"'
@@ -201,8 +240,10 @@ Fairfax HD
   
   
   
-  
-  
+  
+  
+  
+  
 
 

   

-- 
cgit v1.2.3