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

diff --git a/programs/plotter/src/pentagramm.f b/programs/plotter/src/pentagramm.f
index e7270f0..8c7f87f 100644
--- a/programs/plotter/src/pentagramm.f
+++ b/programs/plotter/src/pentagramm.f
@@ -1,4 +1,4 @@
-C
+C DRAW A PENTAGRAM IN A CIRCLE
 C
 C
 C
@@ -6,12 +6,12 @@ C
       INTEGER RADIUS
       REAL RADIUR,RADF
 C
-      RADIUS=100
+      RADIUS=400
       RADIUR=RADIUS
       PI=3.14159265
       RADF=(2.0*PI)/360.0
 C
-      CALL PL$RST
+      CALL PL$INI
       CALL PL$MV(RADIUS,RADIUS)
       CALL PL$RST
 C