From 740a873f9eeb02ae120aa9d6090076cfcce15a05 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 11 Nov 2020 11:13:56 -0500 Subject: Vectorize FmtNum so it works on atoms or arrays --- 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 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 -- cgit v1.2.3