*** empty log message ***

[h316.git] / programs / libtest / src / plotter-matrix.f

diff --git a/programs/libtest/src/plotter-matrix.f b/programs/libtest/src/plotter-matrix.f
index d4dff8fbe8d9e42076e6fe3706945c518599158e..901a677701073ff86fbd844f5dd0c2a05061ca95 100644 (file)
--- 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