From d0fed54946c293bd13e4b4072fdc7b84c7659b89 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 2 Nov 2020 13:39:58 -0500
Subject: Avoid duplicating calls to FmtNum

---
 src/e.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/e.bqn b/src/e.bqn
index d6753a68..b5921974 100644
--- a/src/e.bqn
+++ b/src/e.bqn
@@ -78,13 +78,13 @@ Explain ← {
   je←j∾¯1.25
   q←(/k≤j≠p⊏je-la) (⊏≍⊣) p
 
-  pd ← <⊸∾⟜⌽˘˜˝ q ⊏ ⍉wh×0.6‿0.1+je≍d
+  pd ← <∘(∾"M VH"∾¨∾⟜⌽)˘˜˝ q ⊏ FmtNum¨ ⍉wh×0.6‿0.1+je≍d
   tp ← ii ("text" Attr Pos)∘(to+wh×≍)¨ (k/p)⊏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
+    ("path" Elt ps∾"d"≍○<⊢)¨ pd
     gt Enc ⟨gb,gf⟩ Enc¨ (1⊸⊑¨ ≍○<○(tp Enc¨⊢) ∾¨) toks
   ⟩
 }
-- 
cgit v1.2.3