update per comment

wind1900 · wind1900 · commit 0d9257f5ce5d · 2025-01-09T19:34:11.000+08:00
diff --git 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)

Original file line number	Diff line number	Diff line change
`@@ -88,15 +88,15 @@`
`88`	`88`	`(q (if (tm-point? Q) (tree->stree Q) p))`
`89`	`89`	`(r (points-distance c p))`
`90`	`90`	`(r1 (points-distance c q))`
`91`		`- (x (if (equal? r 0.0)`
	`91`	`+ (x (if (zero? r)`
`92`	`92`	`c`
`93`		`- (if (equal? r1 0.0)`
	`93`	`+ (if (zero? r1)`
`94`	`94`	`p`
`95`	`95`	`(points-add (point-times (point-get-unit (points-sub q c)) r) c))))`
`96`	`96`	`(mid-p-x (points-mid p x))`
`97`	`97`	`(vec-c-p (points-sub p c))`
`98`	`98`	`(vec-c-q (points-sub q c))`
`99`		`- (m (if (or (equal? r 0.0) (equal? r1 0.0))`
	`99`	`+ (m (if (or (zero? r) (zero? r1))`
`100`	`100`	`x`
`101`	`101`	`(if (clockwise (points-cross-product-k vec-c-p vec-c-q) 0)`
`102`	`102`	`(points-add (point-times (point-get-unit (points-sub mid-p-x c)) (- r)) c)`