this crap need more work

2026-05-05 04:17:46 +02:00
parent 7feaa0786c
commit aca035c8be
1 changed files with 3 additions and 3 deletions
--- a/lissajous.f90
+++ b/lissajous.f90
@@ -6,10 +6,10 @@ program sinwaves
  real     phase
  call genp_init (0, 'WS/lissajous.scratch')

-  do foo=1, 22
+  do foo=1, 20
    phase = real(foo) * 0.314159
    c = 3 + mod(foo, 2)
-    call do_lissajous (2000, phase, c)
+    call do_lissajous (400, phase, c)
  enddo

  call genp_end (0)
@@ -25,7 +25,7 @@ subroutine do_lissajous (nbpass, phy, col)

  do idx=0, nbpass
    ridx = 6.28318 * (real(idx) / real(nbpass))
-    x = sin(ridx*7 + phy)
+    x = sin(ridx + phy)
    y = cos(ridx*3)

    if (idx .eq. 0) then