update_model_transform Subroutine

private subroutine update_model_transform(self)

Give the model transform to its node (once built).

Arguments

Type IntentOptional Attributes Name
type(Model), intent(inout) :: self

Calls

proc~~update_model_transform~~CallsGraph proc~update_model_transform update_model_transform interface~vkf_transform_set_matrix vkf_transform_set_matrix proc~update_model_transform->interface~vkf_transform_set_matrix proc~frame_matrix frame_matrix proc~update_model_transform->proc~frame_matrix proc~name ReferenceFrame%name proc~update_model_transform->proc~name proc~quat_to_matrix quat_to_matrix proc~frame_matrix->proc~quat_to_matrix

Called by

proc~~update_model_transform~~CalledByGraph proc~update_model_transform update_model_transform proc~model_build_contents Model%model_build_contents proc~model_build_contents->proc~update_model_transform proc~set_model_attitude Model%set_model_attitude proc~set_model_attitude->proc~update_model_transform proc~set_model_pivot Model%set_model_pivot proc~set_model_pivot->proc~update_model_transform proc~set_model_position Model%set_model_position proc~set_model_position->proc~update_model_transform proc~set_model_scale Model%set_model_scale proc~set_model_scale->proc~update_model_transform

Source Code

    subroutine update_model_transform(self)
        type(Model), intent(inout) :: self
        if (.not. c_associated(self%model_node)) return
        if (vkf_transform_set_matrix(self%model_node, &
                frame_matrix(self%model_position_, self%model_attitude_, self%scale_, self%pivot_)) /= 0) &
            write(*, '(a)') 'vkframes: Model '//self%name()//': transform failed'
    end subroutine update_model_transform