*** empty log message ***

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

diff --git a/programs/plotter/src/pentagramm.f b/programs/plotter/src/pentagramm.f
new file mode 100644 (file)
index 0000000..e7270f0
--- /dev/null
+++ b/programs/plotter/src/pentagramm.f
@@ -0,0 +1,44 @@
+C
+C
+C
+C
+      INTEGER X,Y
+      INTEGER RADIUS
+      REAL RADIUR,RADF
+C
+      RADIUS=100
+      RADIUR=RADIUS
+      PI=3.14159265
+      RADF=(2.0*PI)/360.0
+C
+      CALL PL$RST
+      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