X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=programs%2Fplotter%2Fsrc%2Fpentagramm.f;fp=programs%2Fplotter%2Fsrc%2Fpentagramm.f;h=e7270f0333289067f3c9517dcf81bc9e2faf5765;hb=047c458fe956cb5142870d3095ae22215c55a100;hp=0000000000000000000000000000000000000000;hpb=9f6e6dbcd6ea02391c6d7133c6630931884806a3;p=h316.git

diff --git a/programs/plotter/src/pentagramm.f b/programs/plotter/src/pentagramm.f
new file mode 100644
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