add_axes Subroutine

private subroutine add_axes(me, origin, vx, vy, vz, radius, num_points, arrowhead_radius_factor, arrowhead_length_factor)

Add x,y,z axes to an STL file.

Type Bound

stl_file

Arguments

Type IntentOptional Attributes Name
class(stl_file), intent(inout) :: me
real(kind=wp), intent(in), dimension(3) :: origin

coordinates of the origin of the axes
real(kind=wp), intent(in), dimension(3) :: vx

x axis vector
real(kind=wp), intent(in), dimension(3) :: vy

y axis vector
real(kind=wp), intent(in), dimension(3) :: vz

z axis vector
real(kind=wp), intent(in) :: radius

radius of the cylinder
integer, intent(in) :: num_points

number of point on the circle (>=3)
real(kind=wp), intent(in) :: arrowhead_radius_factor

arrowhead cone radius factor (multiple of cylinder radius)
real(kind=wp), intent(in) :: arrowhead_length_factor

arrowhead tip length factor (multiple of vector length)

Calls

proc~~add_axes~~CallsGraph proc~add_axes stl_file%add_axes proc~add_arrow stl_file%add_arrow proc~add_axes->proc~add_arrow proc~add_cone stl_file%add_cone proc~add_arrow->proc~add_cone proc~add_cylinder stl_file%add_cylinder proc~add_arrow->proc~add_cylinder proc~add_plate stl_file%add_plate proc~add_cone->proc~add_plate proc~generate_circle stl_file%generate_circle proc~add_cone->proc~generate_circle proc~unit unit proc~add_cone->proc~unit proc~add_cylinder->proc~add_plate proc~add_cylinder->proc~generate_circle proc~add_cylinder->proc~unit proc~generate_circle->proc~add_plate proc~generate_circle->proc~unit proc~axis_angle_rotation axis_angle_rotation proc~generate_circle->proc~axis_angle_rotation proc~perpendicular perpendicular proc~generate_circle->proc~perpendicular proc~vector_projection_on_plane vector_projection_on_plane proc~generate_circle->proc~vector_projection_on_plane proc~axis_angle_rotation->proc~unit proc~cross cross proc~axis_angle_rotation->proc~cross proc~perpendicular->proc~unit proc~vector_projection vector_projection proc~vector_projection_on_plane->proc~vector_projection

Source Code

    subroutine add_axes(me,origin,vx,vy,vz,radius,num_points,&
                        arrowhead_radius_factor,arrowhead_length_factor)

    implicit none

    class(stl_file),intent(inout)    :: me
    real(wp),dimension(3),intent(in) :: origin                  !! coordinates of the origin of the axes
    real(wp),dimension(3),intent(in) :: vx                      !! x axis vector
    real(wp),dimension(3),intent(in) :: vy                      !! y axis vector
    real(wp),dimension(3),intent(in) :: vz                      !! z axis vector
    real(wp),intent(in)              :: radius                  !! radius of the cylinder
    integer,intent(in)               :: num_points              !! number of point on the circle (>=3)
    real(wp),intent(in)              :: arrowhead_radius_factor !! arrowhead cone radius factor
                                                                !! (multiple of cylinder radius)
    real(wp),intent(in)              :: arrowhead_length_factor !! arrowhead tip length factor
                                                                !! (multiple of vector length)

    call me%add_arrow(origin,vx,radius,num_points,arrowhead_radius_factor,arrowhead_length_factor)
    call me%add_arrow(origin,vy,radius,num_points,arrowhead_radius_factor,arrowhead_length_factor)
    call me%add_arrow(origin,vz,radius,num_points,arrowhead_radius_factor,arrowhead_length_factor)

    end subroutine add_axes