From 2d6263b65f8684fe1d377f4c67cc0a4e8d178088 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 14 Oct 2020 22:25:37 -0400
Subject: Generalize combinator.bqn to a function DrawComp

---
 doc/combinator.bqn | 83 ++++++++++++++++++++++++++++++------------------------
 1 file changed, 46 insertions(+), 37 deletions(-)

(limited to 'doc')

diff --git a/doc/combinator.bqn b/doc/combinator.bqn
index 9d060d08..38f12a94 100644
--- a/doc/combinator.bqn
+++ b/doc/combinator.bqn
@@ -1,39 +1,14 @@
 Text ← "text" Attr "dy"‿"0.32em"∾⊢
 
-ops ← ⍎∘⥊¨ spel ← "⊸⟜˜∘○˙"
-m2 ← ∾˜1‿1‿0
-_symb ← {𝕗<⊸∾≍○<}
-lrand ← 5‿1/⟨"𝔽"_symb,"𝕗"⟩
-lrsp  ← 5‿1/"𝔽"‿"𝕗"
-names ← (¬×+`)⊸-∘=⟜' '⊸⊔ "Before After Self/Swap Atop Over Constant"
-
 w‿h ← 280‿260
 Pnt ← 32‿57×⌽
 
-app ← m2 {o←𝕩⊑ops⋄𝕨◶{𝕩_o}‿{𝕩_o_("𝔾"_symb)}𝕩⊑lrand}¨ ↕≠ops
-res ← >{⟨𝕏"𝕩","𝕨"𝕏"𝕩"⟩}¨app
-map ← ⟨⟩⊸{(1<≡)◶(≍(𝕨∾0)≍○<⊢)‿((𝕨≍○<⊑)∾⟜∾·𝕊¨˜⟜(𝕨⊸∾¨((2×↕)- -⟜1)∘≠)1↓⊢)𝕩}¨res
-path‿name ← <˘⍉⁼><˘∘⍉¨map
-
-notBase ← (1<≠)◶⟨1,0≠¯1⊸⊑⟩¨¨ path
-path ↓¨¨˜↩ -¬notBase
-FromPath ← ≠≍+´
-vv ← (1↓⌽↓"𝕨"‿"𝕩")      ∾˜¨⎉1 notBase /¨ name
-vl ← (2 ≍⚇0 ⟨0⟩‿⟨¯1,1⟩) ∾˜¨⎉1 notBase FromPath¨∘/¨ path
-vp ← Pnt¨¨ vl
+comps ← "∘○˙⊸⟜˜"
+names ← (¬×+`)⊸-∘=⟜' '⊸⊔ "Atop Over Constant Before After Self/Swap"
 
 ps ← >⟨"class"‿"yellow","style"‿"fill:none","stroke-width"‿"2"⟩
-Connect ← {
-  e ← FromPath ¯1↓𝕨
-  curve ← ⟨1‿1.3, 1‿1.25‿0.9‿1, 0.5‿1.25‿1‿0⟩
-  c ← 𝕨 ((1=≠)⊸∧⟜(2=⊑))◶⟨⟩‿(⊑⊸((⊣(⊢×≢∘⊢⥊1∾⊣)curve⊑˜×)○×)⟜(1⊸⊑)) 𝕩
-  "path" Elt ps∾⟨"d",∾("M"∾(2÷˜≠c)⊏"LQC")∾⟜(Fmt Pnt˘⌾(∘‿2⊸⥊))¨e‿(c∾𝕩)⟩
-}
-
-label ← ⍉ ""‿"𝕨 " ∾⌜ ∾⟜" 𝕩"¨ lrsp∾¨spel∾⟜(/⟜"𝔾")¨m2
-
 _trans ← {(𝕗∾" transform='translate(")∾(⊣∾","∾⊢)○FmtNum∾")'"˙}
-g ← (20+h×↕2) "g font-size='20px' text-anchor='middle'"_trans˜⌜ (5+w×0.5+↕3)
+Groups ← "g font-size='20px' text-anchor='middle'"_trans˜⌜
 
 rc ← >⟨"class"‿"code","stroke-width"‿"1","rx"‿"12"⟩
 rc ∾↩ (Pos⟨¯0.43×w,1⟩)∾"width"‿"height"≍˘FmtNum¨⟨0.86×w,h-55⟩
@@ -42,13 +17,47 @@ n ← Text∘‿2⥊⟨"y",FmtNum h-37, "fill","currentColor"⟩
 case ← (¯1‿1×w÷4.6) "g font-size='21px' font-family='monospace'"_trans¨ 25
 lt← Text∘‿2⥊⟨"y",FmtNum h-105, "font-size","19px"⟩
 
-(0‿0∾10+3‿2×w‿h) SVG g Enc¨ ⌽ <⎉1⍉>2‿3⊸⥊¨⟨
-  < "rect" Elt rc
-  n⊸Enc¨ names
-  (< case Enc¨ ⊢)⎉1 ∾¨´ ⟨
-    (<lt Enc Highlight)¨ label
-    path Connect¨¨⟜(vl⊏¨˜vv(⊐⌈≠∘⊣|⊒)¨⊢)○((0<≠¨¨path)/¨⊢) name
-    ("circle" Elt cc∾⟨"cx","cy"⟩≍˘FmtNum¨)¨¨ vp
-    vp Text∘Pos⊸Enc⟜Highlight¨¨ vv
+FromPath ← ≠≍+´
+Connect ← {
+  e ← FromPath ¯1↓𝕨
+  curve ← ⟨1‿1.3, 1‿1.25‿0.9‿1, 0.5‿1.25‿1‿0⟩
+  c ← 𝕨 ((1=≠)⊸∧⟜(2=⊑))◶⟨⟩‿(⊑⊸((⊣(⊢×≢∘⊢⥊1∾⊣)curve⊑˜×)○×)⟜(1⊸⊑)) 𝕩
+  "path" Elt ps∾⟨"d",∾("M"∾(2÷˜≠c)⊏"LQC")∾⟜(Fmt Pnt˘⌾(∘‿2⊸⥊))¨e‿(c∾𝕩)⟩
+}
+
+DrawComp ← {𝕊𝕩:(names⊏˜comps⊐𝕩)𝕊𝕩; names 𝕊 spel:
+  sh  ← ≢spel
+  ops ← ⍎∘⥊¨ spel
+  m2  ← ¬spel∊"˙˜"
+  isC ← spel='˙'
+  _symb ← {𝕗<⊸∾≍○<}
+  lrand ← isC⊏⟨"𝔽"_symb,"𝕗"⟩
+  lrsp  ← isC⊏"𝔽"‿"𝕗"
+
+  app ← m2 {o←𝕩⊑ops⋄𝕨◶{𝕩_o}‿{𝕩_o_("𝔾"_symb)}𝕩⊑lrand}¨ ↕sh
+  res ← >{⟨𝕏"𝕩","𝕨"𝕏"𝕩"⟩}¨app
+  map ← ⟨⟩⊸{(1<≡)◶(≍(𝕨∾0)≍○<⊢)‿((𝕨≍○<⊑)∾⟜∾·𝕊¨˜⟜(𝕨⊸∾¨((2×↕)- -⟜1)∘≠)1↓⊢)𝕩}¨res
+  path‿name ← <˘⍉⁼><˘∘⍉¨map
+
+  notBase ← (1<≠)◶⟨1,0≠¯1⊸⊑⟩¨¨ path
+  path ↓¨¨˜↩ -¬notBase
+  vv ← (1↓⌽↓"𝕨"‿"𝕩")      ∾˜¨⎉1 notBase /¨ name
+  vl ← (2 ≍⚇0 ⟨0⟩‿⟨¯1,1⟩) ∾˜¨⎉1 notBase FromPath¨∘/¨ path
+  vp ← Pnt¨¨ vl
+
+  g ← (20+h×⊢)⊸Groups⟜(5+w×0.5+⊢)○↕´ sh
+  label ← ⍉ ""‿"𝕨 " ∾⌜ ∾⟜" 𝕩"¨ lrsp∾¨spel∾⟜(/⟜"𝔾")¨m2
+
+  (⌽⟨0,2.4×w⟩⊸⌈⊸(⊣∾-˜÷2˙)10+h‿w×sh) SVG g Enc¨ <⎉1⍉>sh⊸⥊¨⟨
+    sh⥊< "rect" Elt rc
+    n⊸Enc¨ names
+    (< case Enc¨ ⊢)⎉1 ∾¨´ ⟨
+      (<lt Enc Highlight)¨ label
+      path Connect¨¨⟜(vl⊏¨˜vv(⊐⌈≠∘⊣|⊒)¨⊢)○((0<≠¨¨path)/¨⊢) name
+      ("circle" Elt cc∾⟨"cx","cy"⟩≍˘FmtNum¨)¨¨ vp
+      vp Text∘Pos⊸Enc⟜Highlight¨¨ vv
+    ⟩
   ⟩
-⟩
+}
+
+DrawComp 2‿3⥊comps
-- 
cgit v1.2.3