programs/libtest/src/plotter-matrix.f

   1 C PLOTTING MATRIX TEST!
   2 C
   3 C
   4 C      INTEGER DD(100)
   5       INTEGER FF
   6 C
   7 C      WRITE (1,100)
   8 C 100  FORMAT (5HHALLO)
   9 C
  10 C      CALL PL$RST
  11 C
  12
  13 CCCCCC INITIALISE STACK
  14       EXTERNAL MUH
  15
  16       A=0.01
  17
  18       CALL S$INIT
  19       CALL MUH
  20       CALL PL$RST
  21       CALL PL$PUS
  22
  23       CALL PL$RMR(25,25)
  24       CALL PL$SCL(0.5)
  25       CALL PL$ROT(RAD(45))
  26       CALL BOX(0,0)
  27
  28       CALL PL$POP
  29       CALL BOX(0,0)
  30 C      CALL PL$LN(0,0,0,100)
  31 C      CALL PL$LN(50,0,50,100)
  32
  33
  34
  35 C      CALL PL$MV(-50,-100)
  36
  37 C      CALL PL$RST
  38 C      CALL PL$SCL(0.5)
  39 C      CALL PL$LN(0,0,0,100)
  40 C      CALL PL$LN(50,0,50,100)
  41 C      CALL PL$LN(100,0,100,100)
  42 C      CALL PL$PU
  43
  44 C      CALL PL$SCL(0.5)
  45 C      CALL BOX(0,0)
  46
  47 C      CALL PL$LN(0,-20,0,20)
  48 C      CALL PL$LN(-20,0,20,0)
  49 C      CALL PL$LN(20,20,-20,-20)
  50 C      CALL PL$LN(-20,20,20,-20)
  51 C      CALL PL$PU
  52 C      CALL PL$MV(0,22)
  53 C       CALL PL$TXT(12HLochstreifen,12)
  54 C      CALL PL$LN(0,-20,0,20)
  55 C      CALL PL$LN(-20,0,20,0)
  56 C      CALL PL$LN(20,20,-20,-20)
  57 C      CALL PL$LN(-20,20,20,-20)
  58 C      CALL PL$PU
  59 C      CALL PL$MV(0,22)
  60 C      CALL PL$TXT(7HPhilipp,7)
  61 C      CALL PL$MV(0,-100)
  62 C      CALL PL$RST
  63
  64 C     ALL PL$PU
  65 C      CALL PL$MV(0,0)
  66 C      CALL PL$TXT(18HText auf der Linie,18)
  67 C      CALL PL$LN(0,16,18*8,16)
  68 C      CALL PL$LN(18*8,16,18*8,0)
  69 C      CALL PL$TXT(8Habc  ZZZ,5)
  70 C      CALL PL$TXT(7HPHILIPP,7)
  71
  72 C 2    CALL PL$MV (0,-70)
  73  9999 CALL REBOOT
  74
  75  2000 END
  76
  77       SUBROUTINE MUH
  78       WRITE (1,334)
  79  334  FORMAT(4HMUH!)
  80       RETURN
  81       END
  82
  83
  84       FUNCTION RAD(RIN)
  85       INTEGER RIN
  86       REAL RINF,ROUT
  87       REAL RAD,PI
  88       PI=3.14159265
  89
  90       RINF=RIN
  91       ROUT = (RINF/180.0)*PI
  92       RAD=ROUT
  93       RETURN
  94       END
  95
  96       SUBROUTINE BOX(X,Y)
  97       INTEGER X,Y
  98       CALL PL$LN(X     ,Y    ,X    ,Y+100)
  99       CALL PL$LN(X     ,Y+100,X+100,Y+100)
 100       CALL PL$LN(X+100 ,Y+100,X+100,Y  )
 101       CALL PL$LN(X     ,Y    ,X+100 ,Y  )
 102       CALL PL$PU
 103       RETURN
 104       END
 105
 106       SUBROUTINE OOPS
 107
 108       CALL      PL$PU
 109       CALL      PL$MV(100,0)
 110       CALL      PL$PD
 111
 112       DO 2345 N=1,850
 113       CALL PL$SCL(0.99)
 114       CALL PL$ROT(RAD(10))
 115       CALL PL$MV(100,0)
 116  2345 CONTINUE
 117       CALL PL$PU
 118       CALL PL$MV(0,0)
 119  22   RETURN
 120  23   END
 121
 122
 123 $0
 124