*** empty log message ***

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

C DRAW A PENTAGRAM IN A CIRCLE
C
C
C
      INTEGER X,Y
      INTEGER RADIUS
      REAL RADIUR,RADF
C
      RADIUS=400
      RADIUR=RADIUS
      PI=3.14159265
      RADF=(2.0*PI)/360.0
C
      CALL PL$INI
      CALL PL$MV(RADIUS,RADIUS)
      CALL PL$RST
C     

      DO 2000 I=0,362,1
         P=I
         PHI=P*RADF
         X=COS(PHI)*RADIUR
         Y=SIN(PHI)*RADIUR
         CALL PL$MV(X,Y)
         IF (I.EQ.0) CALL PL$PD
 2000 CONTINUE
      CALL PL$PU
      DO 1000 I=0,720,144
         P=I-18
         PHI=P*RADF
         X=COS(PHI)*RADIUR
         Y=SIN(PHI)*RADIUR
         CALL PL$MV(X,Y)
         IF (I.EQ.0) CALL PL$PD
 1000 CONTINUE

      CALL PL$PU
      CALL PL$MV(-RADIUS,-RADIUS)
      CALL PL$RST
C     
C     
      CALL REBOOT
      END
$0