programs/plotter/src/pentagramm.f

   1 C
   2 C
   3 C
   4 C
   5       INTEGER X,Y
   6       INTEGER RADIUS
   7       REAL RADIUR,RADF
   8 C
   9       RADIUS=100
  10       RADIUR=RADIUS
  11       PI=3.14159265
  12       RADF=(2.0*PI)/360.0
  13 C
  14       CALL PL$RST
  15       CALL PL$MV(RADIUS,RADIUS)
  16       CALL PL$RST
  17 C
  18
  19       DO 2000 I=0,362,1
  20          P=I
  21          PHI=P*RADF
  22          X=COS(PHI)*RADIUR
  23          Y=SIN(PHI)*RADIUR
  24          CALL PL$MV(X,Y)
  25          IF (I.EQ.0) CALL PL$PD
  26  2000 CONTINUE
  27       CALL PL$PU
  28       DO 1000 I=0,720,144
  29          P=I-18
  30          PHI=P*RADF
  31          X=COS(PHI)*RADIUR
  32          Y=SIN(PHI)*RADIUR
  33          CALL PL$MV(X,Y)
  34          IF (I.EQ.0) CALL PL$PD
  35  1000 CONTINUE
  36
  37       CALL PL$PU
  38       CALL PL$MV(-RADIUS,-RADIUS)
  39       CALL PL$RST
  40 C
  41 C
  42       CALL REBOOT
  43       END
  44 $0