From fc2bab493dbaea58accc0e55590fa6d9ae690c5e Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 13 Apr 2019 17:42:33 +0200
Subject: [PATCH] Update SUPARD starting beam position.

This will render -PICS-; FOOBAR PIC correctly.
---
 src/dcp/{supard.1 => supard.2} | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 rename src/dcp/{supard.1 => supard.2} (98%)

diff --git a/src/dcp/supard.1 b/src/dcp/supard.2
similarity index 98%
rename from src/dcp/supard.1
rename to src/dcp/supard.2
index 9828dd61..3bb8e66e 100644
--- a/src/dcp/supard.1
+++ b/src/dcp/supard.2
@@ -22,7 +22,7 @@
   (cond ((errset (setq ards-in (open i-file '(in ascii))) t)
 	 (errset (progn
 		  (setq sgos o-file)
-		  (setq ards-x -512. ards-y +511.)
+		  (setq ards-x -485. ards-y +450.)
 		  (cursorpos 'c)
 		  (sg-do '(reset enter clear ior))
 		  (sg-set-point 0 0)