aboutsummaryrefslogtreecommitdiff
path: root/src/p.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-04-13 16:26:31 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-04-13 16:26:31 -0400
commit80b12a13158e85392f8e0893619da756cfa68301 (patch)
treededc0a78258561fcd16f55084eff1016f720282b /src/p.bqn
parent82d6df9ff37f4e09b7d98b5a27eba56bdbef55e9 (diff)
Fix drawing of plot axes when aspect ratio is uneven
Diffstat (limited to 'src/p.bqn')
-rw-r--r--src/p.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/p.bqn b/src/p.bqn
index 19148a04..9d399262 100644
--- a/src/p.bqn
+++ b/src/p.bqn
@@ -28,7 +28,7 @@ Plot ← {
line ← {'M'⌾⊑ ∾⥊ "L "∾¨⎉1𝕩}¨ (/≠¨⊏xy) ⊔ FmtNum ⍉> dim×Scale pts
((-pad)∾dim+2×pad) SVG gr Enc ∾⥊¨ ⟨
<"rect" Elt rc∾(Pos-pad÷2)∾"width"‿"height"≍˘FmtNum dim+pad
- pa⊸Path¨ ((0⊸≤∧≤⟜1)/·<∘∾˘("M "⊸∾˘"VH")∾¨·FmtNum dim×·∾⟜1˘(=⌜˜↕2)⊸×) Scale 0
+ pa⊸Path¨ ((0⊸≤∧≤⟜1)/·<∘∾˘("M "⊸∾˘"VH")∾¨·FmtNum dim(×∾˘⌽∘⊣)(=⌜˜↕2)⊸×) Scale 0
pg⊸Path¨ line
}