From: Philipp Hachtmann <hachti@hachti.de>
Date: Mon, 28 Sep 2015 16:45:05 +0000 (+0200)
Subject: plot_hpgl: Addition to .gitignore
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=a6bd8d93ddd98b635c4b517dc7607b9ac998d66d;p=pdp8.git

plot_hpgl: Addition to .gitignore

Signed-off-by: Philipp Hachtmann <hachti@hachti.de>
---

diff --git a/sw/plot_hpgl/pc/.gitignore b/sw/plot_hpgl/pc/.gitignore
new file mode 100644
index 0000000..8b032fa
--- /dev/null
+++ b/sw/plot_hpgl/pc/.gitignore
@@ -0,0 +1 @@
+hpgl
diff --git a/sw/plot_hpgl/pdp8/PLOT63.FT b/sw/plot_hpgl/pdp8/PLOT63.FT
new file mode 100644
index 0000000..2735ae1
--- /dev/null
+++ b/sw/plot_hpgl/pdp8/PLOT63.FT
@@ -0,0 +1,46 @@
+C PHILIPP'S FILE PLOTTER 2010!
+
+0100  DIMENSION NAME(3)
+
+C     565 0.01 INCH, DATA IN CM
+C     CALL PLOTS(0.0254,0)
+
+C     563 0.1 MM, DATA IN CM
+      CALL PLOTS(0.01,0)
+
+0150  XMAX=0
+0200  WRITE (4,300)
+0300  FORMAT (' FILE TO PLOT:')
+0400  READ (4,600) NAME
+0500  CALL USR(5,NAME,2,ERR)
+0501  IF (NAME(1) .EQ. ' ') GO TO 200 
+0600  FORMAT (3A6)
+
+
+
+1200  CALL CHKEOF(EOF)
+1300  READ (5,1000) PEN,X,Y
+1000  FORMAT (A3,2F13.5)
+1500  IF (EOF.NE.0) GO TO 7000
+
+C ROTATE
+C      TMP=Y
+C      Y=-X
+C      X=-TMP
+
+      TMP=Y
+      Y=-X
+      X=TMP
+
+2000  IF (PEN.EQ.'PU,') P=3
+2100  IF (PEN.EQ.'PD,') P=2
+      IF (X.GE.XMAX) XMAX=X
+      CALL XYPLOT(X,Y,P)
+
+1700  GO TO 1200
+
+7000  CALL XYPLOT(XMAX+1,0,-3);
+      CALL PLEXIT
+
+9999  GO TO 150
+