trigofest again

This commit is contained in:
tTh 2023-02-11 16:54:55 +01:00
parent 37efbc3404
commit 87191666b4
2 changed files with 8 additions and 6 deletions

View File

@ -11,7 +11,7 @@ un peu foireux sur les tracés de ligne...
## trigofest ## trigofest
Distorsions de la courbe de Lissajous. Distorsions approximatives de la courbe de Lissajous.
## doubledice ## doubledice

View File

@ -19,15 +19,17 @@ program trigofest
W = 512 ; H = 342 W = 512 ; H = 342
allocate(picz(W,H), stat=errcode) allocate(picz(W,H), stat=errcode)
blouber = 0.01 blouber = 0.1
do loop=0, 359 do loop=0, 359
call spirale(picz, blouber, loop*9) call spirale(picz, blouber, loop*9)
blouber = blouber * 1.0259 blouber = blouber + 0.3333
write (filename, "(a, i5.5, a)") "F/spi/", loop, ".pgm" write (filename, "(a, i5.5, a)") "F/spi/", loop, ".pgm"
call spit_as_pgm_8(picz, trim(filename)) call spit_as_pgm_8(picz, trim(filename))
print *, loop, blouber print *, loop, blouber
enddo enddo
deallocate(picz)
STOP ': WORLD FINISHED' STOP ': WORLD FINISHED'
contains !------------------------------------------ contains !------------------------------------------
@ -102,13 +104,13 @@ subroutine spirale(pic, inirad, param)
angle = real(foo) * 0.01745329252 angle = real(foo) * 0.01745329252
! rx = radius * sin(angle) * 1.21 ! rx = radius * sin(angle) * 1.21
kx = sin(angle*2) kx = 1.55 * sin(angle+(0.04*radius))
rx = radius * kx rx = radius * kx
! ry = radius * cos(angle) ! ry = radius * cos(angle)
ky = cos(angle) + (0.5*cos(angle*4.0)) ky = cos(angle) + (0.5*cos(angle*6.0))
ry = radius * ky ry = radius * ky
radius = radius + 0.025 radius = radius + 0.0245
ix = int(rx) + W/2 ix = int(rx) + W/2
iy = int(ry) + H/2 iy = int(ry) + H/2