tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more spirals is better

Browse Source
This commit is contained in:
Tonton Th
2026-05-05 04:16:42 +02:00
parent 2c1d5cd196
commit 7feaa0786c
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
spirale.f90
View File

@@ -1,7 +1,10 @@
!
! SPIRALING... ! SPIRALING...
! new Thu Apr 23 04:27:03 PM UTC 2026 ! new Thu Apr 23 04:27:03 PM UTC 2026
! !
! this crapware is released under the
! DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
!
program spirale program spirale
use genplotting use genplotting
implicit none implicit none
@@ -9,15 +12,16 @@ program spirale
write (0, '(A)') "----[ genplotting spirale ]----" write (0, '(A)') "----[ genplotting spirale ]----"
call genp_init (0, 'WS/spirale.scratch') call genp_init (0, 'WS/spirale.scratch')
call do_spirale (1337, 0.51, 0.0666, 0.7) call do_spirale (1337, 0.51, 0.0666, 0.7, 3)
call do_spirale (1337, 0.42, 0.0333, 0.7, 6)
call genp_end (0) call genp_end (0)
contains contains
! --------------------------------------------------------- ! ---------------------------------------------------------
subroutine do_spirale (nbpass, kdist, krad, phy) subroutine do_spirale (nbpass, kdist, krad, phy, col)
integer, intent(in) :: nbpass integer, intent(in) :: nbpass, col
real, intent(in) :: kdist, krad, phy real, intent(in) :: kdist, krad, phy
integer idx, col integer idx
real rad, px, py, dist real rad, px, py, dist
px = 0.0 ; py = 0.0 px = 0.0 ; py = 0.0
@@ -27,7 +31,6 @@ subroutine do_spirale (nbpass, kdist, krad, phy)
rad = (real(idx) * krad) + phy rad = (real(idx) * krad) + phy
px = dist * sin(rad) px = dist * sin(rad)
py = dist * cos(rad) py = dist * cos(rad)
col = 3
call genp_draw (px, py, col) call genp_draw (px, py, col)
enddo enddo
end subroutine end subroutine