From 5e0a7f0c9a0dc45f6b6c3df15025e865926c86cf Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 1 Nov 2020 11:18:41 -0500
Subject: Center tokens in explainer

---
 src/e.bqn | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'src')

diff --git a/src/e.bqn b/src/e.bqn
index 5c8fc563..d94314b4 100644
--- a/src/e.bqn
+++ b/src/e.bqn
@@ -56,17 +56,13 @@ Explain ← {
   }
   mb‿mi ← m⊸/¨ b‿i
   mi↓˜↩¯1
-
   r←+`(mb⊏bo)-na←mb⊏bc
   ! 1=¯1⊑r
-  p←((¯1↓r)⍋⊸⊏○⍋(⊏⟜r+⊒))⊸⊏/na
-  j←¯1↓mi⊏˜⊏˜⍟≠{s←𝕩⊏˜g←⍋𝕩⋄(g/˜(⊒s)=s⊏mb⊏bp)⌾((⍷s)⊸⊏)↕≠mb}p
-  je←j∾¯1.25
   d←+`⊸×f←0<na
+  p←((¯1↓r)⍋⊸⊏○⍋(⊏⟜r+⊒))⊸⊏/na
   f↑˜↩≠p
-  q←(/f∨j≠p⊏je) (⊏≍⊣) p
 
-  src‿toks ← tok {
+  src‿toks‿ii ← tok {
     tok‿role‿val‿s‿e ← 𝕨
     n ← ≠hlch
     o ← hlTag ⊏˜ (n+3+role) (⊢+-×n⊸=) GetHlcl s⊏𝕩
@@ -74,15 +70,20 @@ Explain ← {
     t ← c∾o
     src ← ((↕≠𝕩)∾(≠¨t)/e∾s-1) ⍋⊸⊏ 𝕩∾∾t
     tt← <˘⍉> ⟨o, e(𝕩⊏˜⊢+↕∘¬)¨s, c⟩
-    ⟨src, (s⊐(¬f)/mi)⊏tt⟩
+    ti← s⊐(¬f)/mi
+    ⟨src, ti⊏tt, ti⊏(s+e)÷2⟩
   } 𝕩
 
+  j←¯1↓((1-˜+`¬f)⊏ii)⊏˜⊏˜⍟≠{s←𝕩⊏˜g←⍋𝕩⋄(g/˜(⊒s)=s⊏mb⊏bp)⌾((⍷s)⊸⊏)↕≠mb}p
+  je←j∾¯1.25
+  q←(/f∨j≠p⊏je) (⊏≍⊣) p
+
   pd ← <⊸∾⟜⌽˘˜˝ q ⊏ ⍉wh×0.6‿0.1+je≍d
   dim← (wh×⟨≠𝕩,2+⌈´d⟩)+2‿0×pad
   (512‿0⊸⌈⊸(⊣∾˜(t+pad)-˜-˜÷2˙)dim+2×t) SVG gr Enc ∾⥊¨⟨
     <"rect" Elt rc∾(Pos-pad)∾"width"‿"height"≍˘FmtNum¨dim
     <"text" Enc src
     (<"path" Elt ps∾"d"≍○<·∾"MVH"∾⟜Fmt¨⊢)˘ pd
-    (mi (to+wh×≍)¨⟜(⊏⟜d)○((¬f)⊸/) p) Shadow toks
+    (ii (to+wh×≍)¨⟜(⊏⟜d) (¬f)/p) Shadow toks
   ⟩
 }
-- 
cgit v1.2.3