aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-11-11 11:13:56 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-11-11 11:15:22 -0500
commit740a873f9eeb02ae120aa9d6090076cfcce15a05 (patch)
treefe705812d4347e2bbb081b595b2bffbfe2c8fcb1 /src
parent66bda3a2f3d7d68871c9c9857c101f8ac03bff00 (diff)
Vectorize FmtNum so it works on atoms or arrays
Diffstat (limited to 'src')
-rw-r--r--src/e.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/e.bqn b/src/e.bqn
index 3126e6ae..5144c902 100644
--- a/src/e.bqn
+++ b/src/e.bqn
@@ -84,11 +84,11 @@ Explain ← {
je←j∾¯1.25
q←(/k≤j≠p⊏je-la) (⊏≍⊣) p
- pd ← <∘(∾"M VH"∾¨∾⟜⌽)˘˜˝ q ⊏ FmtNum¨ ⍉wh×0.5‿0.1+je≍d
+ pd ← <∘(∾"M VH"∾¨∾⟜⌽)˘˜˝ q ⊏ FmtNum ⍉wh×0.5‿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
+ <"rect" Elt rc∾(Pos-pad)∾"width"‿"height"≍˘FmtNum dim
<"text" Enc src
("path" Elt ps∾"d"≍○<⊢)¨ pd
gt Enc ⟨gb,gf⟩ Enc¨ (1⊸⊑¨ ≍○<○(tp Enc¨⊢) ∾¨) toks