!                    SPIRALING...
! new Thu Apr 23 04:27:03 PM UTC 2026
!

program spirale
  use genplotting
  implicit none

  write (0, '(A)') "----[ genplotting spirale ]----"

  call genp_init (0, 's.scratch')
  call do_spirale (1337)
  call genp_end (0)

contains
! ---------------------------------------------------------
subroutine do_spirale (nbpass)
  integer, intent(in)     :: nbpass
  integer         idx, col
  real            rad, px, py, dist

  px = 0.0 ; py = 0.0
  call genp_move (px, py)
  do idx=1, nbpass
    dist = real(idx) * 0.51
    rad = real(idx) * 0.0666
    px = dist * sin(rad)
    py = dist * cos(rad)
    col = 3
    call genp_draw (px, py, col)
  enddo
end subroutine
! ---------------------------------------------------------
end program