From 9f6e6dbcd6ea02391c6d7133c6630931884806a3 Mon Sep 17 00:00:00 2001
From: hachti <hachti>
Date: Tue, 29 May 2007 21:45:59 +0000
Subject: [PATCH] *** empty log message ***

---
 programs/plotter/src/plotapfel.f          |  8 ++++----
 programs/plotter/src/{achja.f => sinus.f} | 11 +++++++++++
 2 files changed, 15 insertions(+), 4 deletions(-)
 rename programs/plotter/src/{achja.f => sinus.f} (77%)

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/achja.f b/programs/plotter/src/sinus.f
similarity index 77%
rename from programs/plotter/src/achja.f
rename to programs/plotter/src/sinus.f
index 3907f30..85b742d 100644
--- a/programs/plotter/src/achja.f
+++ b/programs/plotter/src/sinus.f
@@ -12,8 +12,16 @@ C
  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
@@ -41,6 +49,9 @@ C
       CALL PL$PU
       RETURN
       END
+CCCCCCCCCC
+C
+CCCCCCCCCC
 $0
 
          
-- 
2.32.0