*** empty log message ***

[h316.git] / programs / plotter / src / sinus.f

C ACH JA, DAS AUCH
C
C
      INTEGER X,Y
C
C
 1000 CALL PL$RST
      DO 2000 X=0,600,50
         CALL LINE(X,-100,X,100)
 2000 CONTINUE
      
 1500 DO 1600 Y=0,200,50
         CALL LINE(0,Y-100,600,Y-100)
 1600 CONTINUE
 1300 DO 1400 Y=0,150,50
         DO 222 X=0,580,20
            CALL LINE(X,Y-75,X+10,Y-75)
 222     CONTINUE
 1400 CONTINUE
C
      CALL LINE (0,1,600,1)
      CALL LINE (0,-1,600,-1)
      CALL LINE (-1,-100,-1,100)
      CALL LINE (1,-100,1,100)
C
      CALL PL$MV(0,0)
      CALL PL$PD
      DO 3000 X=0,600
         TMP=X
         PHI=(3.141/180.0)*TMP
         Y=SIN(PHI)*90.0
         CALL PL$MV(X,Y)
 3000 CONTINUE
      CALL PL$PU
C     
C
C
      CALL PL$MV(0,0)
      CALL REBOOT
      END
C
C
C     
      SUBROUTINE LINE(X1,Y1,X2,Y2)
      INTEGER X1,Y1,X2,Y2
      CALL PL$MV(X1,Y1)
      CALL PL$PD
      CALL PL$MV(X2,Y2)
      CALL PL$PU
      RETURN
      END
CCCCCCCCCC
C
CCCCCCCCCC
$0