programs/libtest/src/plotter-matrix.f

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