apply_name_attitude Subroutine

private subroutine apply_name_attitude(self)

The sky's attitude into the star names' transform.

Arguments

Type IntentOptional Attributes Name
type(SkySphere), intent(in) :: self

Calls

proc~~apply_name_attitude~~CallsGraph proc~apply_name_attitude apply_name_attitude interface~vkf_transform_set_matrix vkf_transform_set_matrix proc~apply_name_attitude->interface~vkf_transform_set_matrix proc~check_status check_status proc~apply_name_attitude->proc~check_status proc~quat_to_matrix quat_to_matrix proc~apply_name_attitude->proc~quat_to_matrix

Called by

proc~~apply_name_attitude~~CalledByGraph proc~apply_name_attitude apply_name_attitude proc~make_name_node make_name_node proc~make_name_node->proc~apply_name_attitude proc~set_attitude~2 SkySphere%set_attitude proc~set_attitude~2->proc~apply_name_attitude proc~make_star_node make_star_node proc~make_star_node->proc~make_name_node proc~set_star_names SkySphere%set_star_names proc~set_star_names->proc~make_name_node proc~node~2 SkySphere%node proc~node~2->proc~make_star_node proc~set_star_data SkySphere%set_star_data proc~set_star_data->proc~make_star_node proc~set_sky WindowProxy%set_sky proc~set_sky->proc~node~2

Source Code

    subroutine apply_name_attitude(self)
        type(SkySphere), intent(in) :: self
        real(c_double) :: m(4, 4)
        if (.not. c_associated(self%name_node)) return
        m = 0.0_c_double
        m(1:3, 1:3) = quat_to_matrix(self%attitude_)
        m(4, 4) = 1.0_c_double
        call check_status(vkf_transform_set_matrix(self%name_node, m), 'SkySphere')
    end subroutine apply_name_attitude