programs/plotter/src/sinus.f

   1 C ACH JA, DAS AUCH
   2 C
   3 C
   4       INTEGER X,Y
   5 C
   6 C
   7  1000 CALL PL$RST
   8       DO 2000 X=0,600,50
   9          CALL LINE(X,-100,X,100)
  10  2000 CONTINUE
  11
  12  1500 DO 1600 Y=0,200,50
  13          CALL LINE(0,Y-100,600,Y-100)
  14  1600 CONTINUE
  15  1300 DO 1400 Y=0,150,50
  16          DO 222 X=0,580,20
  17             CALL LINE(X,Y-75,X+10,Y-75)
  18  222     CONTINUE
  19  1400 CONTINUE
  20 C
  21       CALL LINE (0,1,600,1)
  22       CALL LINE (0,-1,600,-1)
  23       CALL LINE (-1,-100,-1,100)
  24       CALL LINE (1,-100,1,100)
  25 C
  26       CALL PL$MV(0,0)
  27       CALL PL$PD
  28       DO 3000 X=0,600
  29          TMP=X
  30          PHI=(3.141/180.0)*TMP
  31          Y=SIN(PHI)*90.0
  32          CALL PL$MV(X,Y)
  33  3000 CONTINUE
  34       CALL PL$PU
  35 C
  36 C
  37 C
  38       CALL PL$MV(0,0)
  39       CALL REBOOT
  40       END
  41 C
  42 C
  43 C
  44       SUBROUTINE LINE(X1,Y1,X2,Y2)
  45       INTEGER X1,Y1,X2,Y2
  46       CALL PL$MV(X1,Y1)
  47       CALL PL$PD
  48       CALL PL$MV(X2,Y2)
  49       CALL PL$PU
  50       RETURN
  51       END
  52 CCCCCCCCCC
  53 C
  54 CCCCCCCCCC
  55 $0
  56
  57