X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fplotter%2Fsrc%2Fsinus.f;fp=programs%2Fplotter%2Fsrc%2Fsinus.f;h=85b742d5ad61a945d26af6d275bdcc8b17cd7836;hb=9f6e6dbcd6ea02391c6d7133c6630931884806a3;hp=0000000000000000000000000000000000000000;hpb=faae1561176447b3da7f953fdba7095b777dfeb9;p=h316.git

diff --git a/programs/plotter/src/sinus.f b/programs/plotter/src/sinus.f
new file mode 100644
index 0000000..85b742d
--- /dev/null
+++ b/programs/plotter/src/sinus.f
@@ -0,0 +1,57 @@
+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
+ 1300 DO 1400 Y=0,150,50
+         DO 222 X=0,580,20
+            CALL LINE(X,Y-75,X+10,Y-75)
+ 222     CONTINUE
+ 1400 CONTINUE
+C
+      CALL LINE (0,1,600,1)
+      CALL LINE (0,-1,600,-1)
+      CALL LINE (-1,-100,-1,100)
+      CALL LINE (1,-100,1,100)
+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
+CCCCCCCCCC
+C
+CCCCCCCCCC
+$0
+
+