From 0d9257f5ce5d6a89dc4b6af60b5bcc489e645848 Mon Sep 17 00:00:00 2001 From: Shen Wei Date: Thu, 9 Jan 2025 19:34:11 +0800 Subject: [PATCH] update per comment --- TeXmacs/progs/graphics/graphics-markup.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/TeXmacs/progs/graphics/graphics-markup.scm b/TeXmacs/progs/graphics/graphics-markup.scm index beda7eeb0..b004b1687 100644 --- a/TeXmacs/progs/graphics/graphics-markup.scm +++ b/TeXmacs/progs/graphics/graphics-markup.scm @@ -88,15 +88,15 @@ (q (if (tm-point? Q) (tree->stree Q) p)) (r (points-distance c p)) (r1 (points-distance c q)) - (x (if (equal? r 0.0) + (x (if (zero? r) c - (if (equal? r1 0.0) + (if (zero? r1) p (points-add (point-times (point-get-unit (points-sub q c)) r) c)))) (mid-p-x (points-mid p x)) (vec-c-p (points-sub p c)) (vec-c-q (points-sub q c)) - (m (if (or (equal? r 0.0) (equal? r1 0.0)) + (m (if (or (zero? r) (zero? r1)) x (if (clockwise (points-cross-product-k vec-c-p vec-c-q) 0) (points-add (point-times (point-get-unit (points-sub mid-p-x c)) (- r)) c)