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

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