add_arrow Subroutine

private subroutine add_arrow(me, origin, v, radius, num_points, arrowhead_radius_factor, arrowhead_length_factor)

Add an arrow 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) :: v

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_arrow~~CallsGraph proc~add_arrow stl_file%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

Called by

proc~~add_arrow~~CalledByGraph proc~add_arrow stl_file%add_arrow proc~add_axes stl_file%add_axes proc~add_axes->proc~add_arrow

Source Code

    subroutine add_arrow(me,origin,v,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) :: v                        !! 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_cylinder(origin,v,radius,num_points,&
                         initial_cap=.true.,final_cap=.true.)
    call me%add_cone(v,v+arrowhead_length_factor*v,&
                     arrowhead_radius_factor*radius,num_points,initial_cap=.true.)

    end subroutine add_arrow