!
!         BUILD A STAR FIELD

! this crapware is released by tTh under the
!             DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
!
program starfield
  use genplotting
  implicit none
  write (0, '(A)') "----[ genplotting starfield ]----"
  call genp_init (0, 'WS/starfield.scratch')
  call do_starfield (200)
  call genp_end (0)
contains
! ---------------------------------------------------------
subroutine plot_a_star(at_x, at_y, sz, color)
  real, intent(in)        :: at_x, at_y, sz
  integer, intent(in)     :: color

  integer                 :: idx
  real                    :: rad, xv, yv

  write(0, '("plot a star ", 2F8.3)') at_x, at_y
  call genp_set_offset(at_x, at_y)
  do idx=0, 360, 36
    !   convert index to radians
    rad = real(idx) * (3.14159 / 180)
    xv = sz * sin(rad)    ;    yv = sz * cos(rad)
    call genp_move(0.0, 0.0)
    call genp_draw(xv, yv, color)
  enddo
end subroutine
! ---------------------------------------------------------
subroutine do_starfield (nbstar)
  integer, intent(in)     :: nbstar

  integer         idx, color
  real            px, py, sz
  do idx=1, nbstar
    px = (rand(0) * 10.00) - 5.00
    py = (rand(0) * 10.00) - 5.00
    sz = (rand(0) *  0.30) + 0.12
    color = 1 + mod(idx, 7)
    call plot_a_star(px, py, sz, color)
  end do
end subroutine
! ---------------------------------------------------------
end program