star Subroutine

private pure subroutine star(self, i, direction, rgb, size)

Star i (1 to num_stars): its direction (unit vector, sky frame), color (rgb, dimmed) and size (window units).

Type Bound

SkySphere

Arguments

Type IntentOptional Attributes Name
class(SkySphere), intent(in) :: self
integer, intent(in) :: i

1 to num_stars
real(kind=wp), intent(out) :: direction(3)

unit vector, sky frame
real(kind=wp), intent(out) :: rgb(3)

color, dimmed (0 to 1)
real(kind=wp), intent(out) :: size

window units

Source Code

    pure subroutine star(self, i, direction, rgb, size)
        class(SkySphere), intent(in) :: self
        integer, intent(in) :: i                            !! 1 to num_stars
        real(wp), intent(out) :: direction(3)               !! unit vector, sky frame
        real(wp), intent(out) :: rgb(3)                     !! color, dimmed (0 to 1)
        real(wp), intent(out) :: size                       !! window units
        direction = real(self%stars(1:3, i), wp)
        size = real(self%stars(4, i), wp)
        rgb = real(self%stars(5:7, i), wp)
    end subroutine star