From: hachti <hachti>
Date: Tue, 29 May 2007 21:45:59 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=9f6e6dbcd6ea02391c6d7133c6630931884806a3;p=h316.git

*** empty log message ***
---

diff --git a/programs/plotter/src/achja.f b/programs/plotter/src/achja.f
deleted file mode 100644
index 3907f30..0000000
--- a/programs/plotter/src/achja.f
+++ /dev/null
@@ -1,46 +0,0 @@
-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
-
-         
diff --git a/programs/plotter/src/plotapfel.f b/programs/plotter/src/plotapfel.f
index ab4365d..64e401c 100644
--- a/programs/plotter/src/plotapfel.f
+++ b/programs/plotter/src/plotapfel.f
@@ -143,7 +143,7 @@ C
       PENX=PENX-1
       GO TO 8000
  8100 CONTINUE
-      CALL PL$DN
+      CALL PL$D
       RETURN
       END
 C
@@ -159,11 +159,11 @@ C
 C
        CR      = 13 
        LF      = 10
-       WIDTH   = 500
-       MAXI    = 50
+       WIDTH   = 120
+       MAXI    = 60
        MAXVAL  = 2.0
        LOWX    =-1.48
-       HIGHX   = 0.5
+       HIGHX   = 1.2
        LOWY    =-1.2
        HIGHY   = 1.2
        INIT    = 1
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
+
+