X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Flibtest%2Fsrc%2Fplotter-matrix.f;h=901a677701073ff86fbd844f5dd0c2a05061ca95;hb=baeb08e05af1cf11b9b0daf4871119c4cabc3f24;hp=d4dff8fbe8d9e42076e6fe3706945c518599158e;hpb=8eb8811723f247b223acf77c00171318fb1db645;p=h316.git

diff --git a/programs/libtest/src/plotter-matrix.f b/programs/libtest/src/plotter-matrix.f
index d4dff8f..901a677 100644
--- a/programs/libtest/src/plotter-matrix.f
+++ b/programs/libtest/src/plotter-matrix.f
@@ -1,29 +1,45 @@
 C PLOTTING MATRIX TEST!
 C
 C
-      INTEGER DD(100)
+C      INTEGER DD(100)
       INTEGER FF
 C
-      WRITE (1,100)
- 100  FORMAT (5HHALLO)
+C      WRITE (1,100)
+C 100  FORMAT (5HHALLO)
 C
-      CALL PL$RST
-      CALL PL$IDN
+C      CALL PL$RST
 C
  
+CCCCCC INITIALISE STACK
+      EXTERNAL MUH
 
-C      CALL BOX(0,0)
-      CALL PL$LN(0,0,0,100)
-      CALL PL$LN(50,0,50,100)
+      A=0.01
       
-      CALL PL$PU
-      CALL PL$MV(0,-120)
+      CALL S$INIT
+      CALL MUH
       CALL PL$RST
+      CALL PL$PUS
+
+      CALL PL$RMR(25,25)
       CALL PL$SCL(0.5)
-      CALL PL$LN(0,0,0,100)
-      CALL PL$LN(50,0,50,100)
-      CALL PL$LN(100,0,100,100)
-      CALL PL$PU
+      CALL PL$ROT(RAD(45))
+      CALL BOX(0,0)
+      
+      CALL PL$POP
+      CALL BOX(0,0)
+C      CALL PL$LN(0,0,0,100)
+C      CALL PL$LN(50,0,50,100)
+      
+ 
+      
+C      CALL PL$MV(-50,-100)
+
+C      CALL PL$RST
+C      CALL PL$SCL(0.5)
+C      CALL PL$LN(0,0,0,100)
+C      CALL PL$LN(50,0,50,100)
+C      CALL PL$LN(100,0,100,100)
+C      CALL PL$PU
       
 C      CALL PL$SCL(0.5)
 C      CALL BOX(0,0)
@@ -46,7 +62,7 @@ C      CALL PL$MV(0,-100)
 C      CALL PL$RST
 
 C     ALL PL$PU
-      CALL PL$MV(0,0)
+C      CALL PL$MV(0,0)
 C      CALL PL$TXT(18HText auf der Linie,18)
 C      CALL PL$LN(0,16,18*8,16)
 C      CALL PL$LN(18*8,16,18*8,0)
@@ -57,12 +73,19 @@ C 2    CALL PL$MV (0,-70)
  9999 CALL REBOOT
 
  2000 END
-      
+ 
+      SUBROUTINE MUH
+      WRITE (1,334)
+ 334  FORMAT(4HMUH!)
+      RETURN
+      END
+
+
       FUNCTION RAD(RIN)
       INTEGER RIN
       REAL RINF,ROUT
       REAL RAD,PI
-      PI=3.1416
+      PI=3.14159265
 
       RINF=RIN
       ROUT = (RINF/180.0)*PI