github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-30 05:35:36 +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)) (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 ;; Common Lisp compat
(defun read-byte (s &optional eof) (defun read-byte (s &optional eof)
(tyi s eof)) (tyi s eof))
@@ -171,7 +175,7 @@
(defun ards-coordinates (iards) (defun ards-coordinates (iards)
(do* ((ards iards (cdr ards)) (do* ((ards iards (cdr ards))
(ard (car ards) (car ards)) (ard (car ards) (car ards))
(cur-x 0) (cur-y 0) (cur-x start-x) (cur-y start-y)
(minxy (list 2048. 2048.) (minxy (list 2048. 2048.)
(if (get ard ':invisible) minxy (if (get ard ':invisible) minxy
(list (min cur-x (first minxy)) (list (min cur-x (first minxy))
@@ -206,7 +210,7 @@
(setq nlines (1+ nlines)))) (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)) (do* ((ards iards (cdr ards))
(ard (car ards) (car ards))) (ard (car ards) (car ards)))
((or (null ards) ((or (null ards)