From 80b12a13158e85392f8e0893619da756cfa68301 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 13 Apr 2021 16:26:31 -0400
Subject: Fix drawing of plot axes when aspect ratio is uneven

---
 src/p.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
   ⟩
 }
-- 
cgit v1.2.3