From 34bd95b6c92b130c18e1a7867a4caca1bca516ad Mon Sep 17 00:00:00 2001
From: hachti <hachti>
Date: Wed, 30 May 2007 00:24:25 +0000
Subject: [PATCH] *** empty log message ***

---
 programs/Makefile              |  4 +-
 programs/first-steps/src/muz.f |  6 +--
 programs/plotter/src/sinus.f   | 80 +++++++++++++++++++++++++++-------
 3 files changed, 69 insertions(+), 21 deletions(-)

diff --git a/programs/Makefile b/programs/Makefile
index a0063a1..936d4d2 100644
--- a/programs/Makefile
+++ b/programs/Makefile
@@ -4,9 +4,9 @@ MODULES=first-steps  fortran  mandelbrot  plotter\
 
 
 %:
-	@$(foreach mod,$(MODULES),$(MAKE) -C $(mod) $@;)
+	@$(foreach mod,$(MODULES),$(MAKE) -C $(mod) $@ &&) true
 
 katzelmutelbrummsilalla:
-	@$(foreach mod,$(MODULES),$(MAKE) -C $(mod);)
+	@$(foreach mod,$(MODULES),$(MAKE) -C $(mod)&&) true
 
 .PHONY:default
\ No newline at end of file
diff --git a/programs/first-steps/src/muz.f b/programs/first-steps/src/muz.f
index 3935cc3..339ebac 100644
--- a/programs/first-steps/src/muz.f
+++ b/programs/first-steps/src/muz.f
@@ -5,9 +5,9 @@ CCCCCC DA SAG ICH NUR: LASS KRACHEN!
  33    WRITE(1,10)
        WRITE(2,20)
        WRITE(4,30)
-   10  FORMAT(54HHALLO WELT! DAS SOLLTE AUF DEM ASR RAUSGEKOMMEN SEIN!  )
-   20  FORMAT(54HHALLO WELT! DAS SOLLTE AUF DEM PTP RAUSGEKOMMEN SEIN!  )
-   30  FORMAT(54HHALLO WELT! DAS SOLLTE AUF DEM LPT RAUSGEKOMMEN SEIN!  )
+   10  FORMAT(3HASR)
+   20  FORMAT(3HPTP)
+   30  FORMAT(3HLPR)
        PAUSE
        GOTO 33
 $0
diff --git a/programs/plotter/src/sinus.f b/programs/plotter/src/sinus.f
index 85b742d..e6bf809 100644
--- a/programs/plotter/src/sinus.f
+++ b/programs/plotter/src/sinus.f
@@ -5,10 +5,55 @@ C
 C
 C
  1000 CALL PL$RST
+C
+      CALL GITTER
+C
+      CALL PL$MV(0,0)
+      CALL DOWN
+      DO 3000 X=0,600
+         XR=X
+         PHI=(3.141/180.0)*XR
+         Y=SIN(PHI)*90.0
+         CALL DODOT(X,Y)
+ 3000 CONTINUE
+      CALL UP
+C
+      CALL PL$MV(0,0)
+      DO 4001 X=0,600
+         XR=X
+         PHI=(3.141/180.0)*XR
+         Y=COS(PHI)*55.0+SIN(PHI*12.0)*40.0
+         CALL DODOT(X,Y)
+ 4001 CONTINUE
+      CALL UP
+C     
+C
+      CALL PL$MV(0,0)
+      CALL REBOOT
+      END
+C
+C
+C     
+      SUBROUTINE DODOT(X,Y)
+      INTEGER X,Y
+         IF (Y.LE.100) GO TO 444
+         CALL UP
+         GO TO 3001
+ 444     IF (Y.GE.-100) GO TO 555
+         CALL UP
+         GO TO 3001
+ 555     CALL PL$MV(X,Y)
+         CALL DOWN
+ 3001    RETURN
+         END
+C
+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
+C
+      SUBROUTINE GITTER
+      INTEGER X,Y
       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
@@ -23,23 +68,9 @@ C
       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
+      RETURN
       END
 C
-C
 C     
       SUBROUTINE LINE(X1,Y1,X2,Y2)
       INTEGER X1,Y1,X2,Y2
@@ -51,6 +82,23 @@ C
       END
 CCCCCCCCCC
 C
+      SUBROUTINE DOWN
+      INTEGER PEN,PENX
+      COMMON /PENSTA/PEN,PENX
+      IF (PEN.EQ.0) CALL PL$PD
+      PEN=1
+      PENX=PENX+1
+      RETURN
+      END
+C     
+      SUBROUTINE UP
+      INTEGER PEN,PENX
+      COMMON /PENSTA/PEN,PENX
+      IF (PEN.EQ.1) CALL PL$PU
+      PEN=0
+      PENX=PENX+1
+      RETURN
+      END
 CCCCCCCCCC
 $0
 
-- 
2.32.0