diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-11-11 11:13:56 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-11-11 11:15:22 -0500 |
| commit | 740a873f9eeb02ae120aa9d6090076cfcce15a05 (patch) | |
| tree | fe705812d4347e2bbb081b595b2bffbfe2c8fcb1 /src | |
| parent | 66bda3a2f3d7d68871c9c9857c101f8ac03bff00 (diff) | |
Vectorize FmtNum so it works on atoms or arrays
Diffstat (limited to 'src')
| -rw-r--r-- | src/e.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |
