projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
global: Makefiles now support parallel compiles.
[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=
1
00
+ RADIUS=
4
00
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