*** empty log message ***

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

diff --git a/programs/plotter/src/pentagramm.f b/programs/plotter/src/pentagramm.f
index e7270f0333289067f3c9517dcf81bc9e2faf5765..8c7f87fca3ad9eaea01fbca23b8421a820f094e4 100644 (file)
--- 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