set_model_pivot Subroutine

private subroutine set_model_pivot(self, pivot)

The point of the model (in its own coordinates) placed at model_position, about which it is rotated and scaled.

Type Bound

Model

Arguments

Type IntentOptional Attributes Name
class(Model), intent(inout) :: self
real(kind=wp), intent(in) :: pivot(3)

(model coordinates)

Calls

proc~~set_model_pivot~~CallsGraph proc~set_model_pivot Model%set_model_pivot proc~update_model_transform update_model_transform proc~set_model_pivot->proc~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

Source Code

    subroutine set_model_pivot(self, pivot)
        class(Model), intent(inout) :: self
        real(wp), intent(in) :: pivot(3)    !! (model coordinates)
        self%pivot_ = pivot
        call update_model_transform(self)
    end subroutine set_model_pivot