build_helix Subroutine

pure subroutine build_helix(this, c, rh, p, n)

Map a straight pipe-like NURBS volume onto a cylindrical helix.

Each control point is first expressed relative to the input center . For the axial (k) index, define a normalized parameter which runs from 0 (start) to 1 (end) along the volume.

The helix angle as a function of is where n is the number of turns. For a point at polar coordinates and , the mapping is: where is the helix radius and is the pitch (axial rise per turn).

Knots are preserved; only the control points are updated.

Arguments

Type IntentOptional Attributes Name
type(nurbs_volume), intent(inout) :: this

NURBS volume to be helicalized.

real(kind=rk), intent(in) :: c(3)

Center , helix radius , pitch .

real(kind=rk), intent(in) :: rh

Center , helix radius , pitch .

real(kind=rk), intent(in) :: p

Center , helix radius , pitch .

integer, intent(in) :: n

Number of turns.


Calls

proc~~build_helix~~CallsGraph proc~build_helix build_helix none~get_knot~2 nurbs_volume%get_knot proc~build_helix->none~get_knot~2 none~get_nc~2 nurbs_volume%get_nc proc~build_helix->none~get_nc~2 none~get_wc~2 nurbs_volume%get_Wc proc~build_helix->none~get_wc~2 none~get_xc~2 nurbs_volume%get_Xc proc~build_helix->none~get_xc~2 none~set~2 nurbs_volume%set proc~build_helix->none~set~2 proc~is_rational~2 nurbs_volume%is_rational proc~build_helix->proc~is_rational~2 proc~get_knot_all~2 nurbs_volume%get_knot_all none~get_knot~2->proc~get_knot_all~2 proc~get_knoti~2 nurbs_volume%get_knoti none~get_knot~2->proc~get_knoti~2 proc~get_nc_all~2 nurbs_volume%get_nc_all none~get_nc~2->proc~get_nc_all~2 proc~get_nc_dir~2 nurbs_volume%get_nc_dir none~get_nc~2->proc~get_nc_dir~2 proc~get_wc_all~2 nurbs_volume%get_Wc_all none~get_wc~2->proc~get_wc_all~2 proc~get_wci~2 nurbs_volume%get_Wci none~get_wc~2->proc~get_wci~2 proc~get_xc_all~2 nurbs_volume%get_Xc_all none~get_xc~2->proc~get_xc_all~2 proc~get_xcid~2 nurbs_volume%get_Xcid none~get_xc~2->proc~get_xcid~2 proc~get_xci~2 nurbs_volume%get_Xci none~get_xc~2->proc~get_xci~2 proc~set1~2 nurbs_volume%set1 none~set~2->proc~set1~2 proc~set2~2 nurbs_volume%set2 none~set~2->proc~set2~2 proc~set3~2 nurbs_volume%set3 none~set~2->proc~set3~2 proc~set4~2 nurbs_volume%set4 none~set~2->proc~set4~2 interface~compute_multiplicity compute_multiplicity proc~get_nc_dir~2->interface~compute_multiplicity proc~cmp_degree~2 nurbs_volume%cmp_degree proc~set1~2->proc~cmp_degree~2 proc~cmp_nc~2 nurbs_volume%cmp_nc proc~set1~2->proc~cmp_nc~2 set set proc~set1~2->set proc~set2~2->proc~cmp_nc~2 proc~compute_knot_vector compute_knot_vector proc~set2~2->proc~compute_knot_vector proc~set2~2->set proc~set3~2->proc~cmp_degree~2 proc~set3~2->set proc~set4~2->set proc~compute_multiplicity1 compute_multiplicity1 interface~compute_multiplicity->proc~compute_multiplicity1 proc~compute_multiplicity2 compute_multiplicity2 interface~compute_multiplicity->proc~compute_multiplicity2 proc~cmp_degree~2->set proc~get_multiplicity~2 nurbs_volume%get_multiplicity proc~cmp_degree~2->proc~get_multiplicity~2 proc~cmp_nc~2->interface~compute_multiplicity proc~cmp_nc~2->set proc~repelem repelem proc~compute_knot_vector->proc~repelem proc~get_multiplicity~2->interface~compute_multiplicity

Called by

proc~~build_helix~~CalledByGraph proc~build_helix build_helix program~example_helix_pipe example_helix_pipe program~example_helix_pipe->proc~build_helix