github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-16 04:43:01 +00:00
Code Issues Releases Wiki Activity

Update VICTOR;ARDS starting position.

Browse Source 
This will render -PICS-; FOOBAR PIC correctly.
This commit is contained in:
Lars Brinkhoff
2019-04-13 19:23:55 +02:00
parent 644d946539
commit 34df01f06e
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/victor/ards.97 → src/victor/ards.98
View File

@@ -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)