From 34df01f06e3e57630bb3f4a4c23da3fd624ef145 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 13 Apr 2019 19:23:55 +0200
Subject: [PATCH] Update VICTOR;ARDS starting position.

This will render -PICS-; FOOBAR PIC correctly.
---
 src/victor/{ards.97 => ards.98} | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)
 rename src/victor/{ards.97 => ards.98} (97%)

diff --git a/src/victor/ards.97 b/src/victor/ards.98
similarity index 97%
rename from src/victor/ards.97
rename to src/victor/ards.98
index 216919b3..e867e9a9 100644
--- a/src/victor/ards.97
+++ b/src/victor/ards.98
@@ -15,6 +15,10 @@
 
 (declare (*lexpr decode-ards-stream ards-to-svg svg-from-ards))
 
+;; Determined experimentally from -PICS-; FOOBAR PIC.
+(defconst start-x -485.)
+(defconst start-y +450.)
+
 ;; Common Lisp compat
 (defun read-byte (s &optional eof)
   (tyi s eof))
@@ -171,7 +175,7 @@
 (defun ards-coordinates (iards)
   (do* ((ards iards (cdr ards))
 	(ard (car ards) (car ards))
-	(cur-x 0) (cur-y 0)
+	(cur-x start-x) (cur-y start-y)
 	(minxy (list 2048. 2048.)
 	       (if (get ard ':invisible) minxy
 		   (list (min cur-x (first minxy))
@@ -206,7 +210,7 @@
 	    (setq nlines (1+ nlines))))
 	)))
 
-(defun svg-from-ards (of iards &optional (cur-x 0) (cur-y 0))
+(defun svg-from-ards (of iards &optional (cur-x start-x) (cur-y start-y))
   (do* ((ards iards (cdr ards))
 	(ard (car ards) (car ards)))
        ((or (null ards)