X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fplotter%2Fsrc%2Fachja.f;fp=programs%2Fplotter%2Fsrc%2Fachja.f;h=3907f3075a30e225cbbac7fa4e933a8fc7ba8f59;hb=fcb7b340c0c50feddfd0b1a4b2df25e41c374a12;hp=0000000000000000000000000000000000000000;hpb=31074970a727e80618c11cb3af64f15cb069ac3d;p=h316.git

diff --git a/programs/plotter/src/achja.f b/programs/plotter/src/achja.f
new file mode 100644
index 0000000..3907f30
--- /dev/null
+++ b/programs/plotter/src/achja.f
@@ -0,0 +1,46 @@
+C ACH JA, DAS AUCH
+C
+C
+      INTEGER X,Y
+C
+C
+ 1000 CALL PL$RST
+      DO 2000 X=0,600,50
+         CALL LINE(X,-100,X,100)
+ 2000 CONTINUE
+      
+ 1500 DO 1600 Y=0,200,50
+         CALL LINE(0,Y-100,600,Y-100)
+ 1600 CONTINUE
+      CALL LINE (0,1,600,1)
+      CALL LINE (0,-1,600,-1)
+C
+      CALL PL$MV(0,0)
+      CALL PL$PD
+      DO 3000 X=0,600
+         TMP=X
+         PHI=(3.141/180.0)*TMP
+         Y=SIN(PHI)*90.0
+         CALL PL$MV(X,Y)
+ 3000 CONTINUE
+      CALL PL$PU
+C     
+C
+C
+      CALL PL$MV(0,0)
+      CALL REBOOT
+      END
+C
+C
+C     
+      SUBROUTINE LINE(X1,Y1,X2,Y2)
+      INTEGER X1,Y1,X2,Y2
+      CALL PL$MV(X1,Y1)
+      CALL PL$PD
+      CALL PL$MV(X2,Y2)
+      CALL PL$PU
+      RETURN
+      END
+$0
+
+