Diagram of types and the categories they use

1 files changed, 37 insertions, 1 deletions

diff --git a/svg.bqn b/svg.bqn
index 728cc76e..69441d66 100644
--- a/svg.bqn
+++ b/svg.bqn
@@ -1,2 +1,38 @@
 # Utilities for creating SVG diagrams as strings
-# (There aren't any yet; go to the next commit)
+
+IsLines ← 1<≡
+DeNest ← {(3⌊≡)◶⟨!∘0,⥊<,⊢,∾𝕊¨⟩ ⥊𝕩}
+Indent ← "  "⊸∾¨ DeNest
+
+# Create a node from a tag name and interior text.
+Enc ← {
+  open ← ∾⟨"<",𝕨,">"⟩
+  close← ∾⟨"</", (⊑𝕨⊐" ")↑𝕨, ">"⟩
+  l ← IsLines 𝕩
+  ∾ open (Indent⍟l 𝕩){𝕨‿𝕗‿𝕩}○(⥊∘<⍟l) close
+}
+Void ← {∾⟨"<",𝕩,"/>"⟩}
+
+FmtNum ← {
+  ! 0=≡𝕩
+  ! (¯∞⊸< ∧ <⟜∞) 𝕩
+  d ← 3 ⋆˜ b←10            # Base 10, up to 3 decimals
+  _base ← {⌽b|⌊∘÷⟜b⍟(↕𝔽)}  # 𝔽 is the number of digits
+  fl ← ⌊ abs ← (÷2×d) + |𝕩
+  ∾ ⟨
+    (𝕩<0) / "-"
+    '0' + (1+·⌊b⋆⁼1⌈⊢)_base fl
+    0⊸<◶""‿("." ∾ '0' + · ∨`⌾⌽∘×⊸/ 3 _base) ⌊ d × abs-fl
+  ⟩
+}
+Fmt ← (2⌊≡)◶FmtNum‿(1↓·∾(' '∾FmtNum)¨)‿{𝕩⋄!0}
+
+Attr ← {
+  𝕨 ∾ ∾ {<∾⟨" ",𝕨,"='",𝕩,"'"⟩}´⎉1 𝕩
+}
+Pos ← ⟨"x","y"⟩ ≍˘ FmtNum¨
+Elt ← Void∘Attr
+
+SVG ← {
+  (∾∾⟜(10+@)¨)⍟IsLines ("svg" Attr ⟨"viewBox",Fmt 𝕨⟩) Enc 𝕩
+}