resize Subroutine

  1. fossil_file_stl_object.f90
  2. fossil_file_stl_object
  3. resize

private elemental subroutine resize(self, x, y, z, factor, recompute_metrix)

Resize (scale) facets by x or y or z or vectorial factors.

Arguments

Type IntentOptional AttributesName
class(file_stl_object), intent(inout) :: self

File STL.
real(kind=R8P), intent(in), optional :: x

Factor along x axis.
real(kind=R8P), intent(in), optional :: y

Factor along y axis.
real(kind=R8P), intent(in), optional :: z

Factor along z axis.
type(vector_R8P), intent(in), optional :: factor

Vectorial factor.
logical, intent(in), optional :: recompute_metrix

Sentinel to activate metrix recomputation.

Source Code

resize

Source Code

   elemental subroutine resize(self, x, y, z, factor, recompute_metrix)
   !< Resize (scale) facets by x or y or z or vectorial factors.
   !<
   !< @note The name `scale` has not been used, it been a Fortran built-in.
   class(file_stl_object), intent(inout)        :: self             !< File STL.
   real(R8P),              intent(in), optional :: x                !< Factor along x axis.
   real(R8P),              intent(in), optional :: y                !< Factor along y axis.
   real(R8P),              intent(in), optional :: z                !< Factor along z axis.
   type(vector_R8P),       intent(in), optional :: factor           !< Vectorial factor.
   logical,                intent(in), optional :: recompute_metrix !< Sentinel to activate metrix recomputation.
   type(vector_R8P)                             :: factor_          !< Vectorial factor, local variable.

   if (self%facets_number>0) then
      factor_ = 1._R8P
      if (present(factor)) then
         factor_ = factor
      else
         if (present(x)) factor_%x = x
         if (present(y)) factor_%y = y
         if (present(z)) factor_%z = z
      endif
      call self%facet%resize(factor=factor_, recompute_metrix=recompute_metrix)
   endif
   endsubroutine resize

All Procedures

aabb_assign_aabb aabb_node_assign_aabb_node aabb_tree_assign_aabb_tree add_facets add_facets add_vertex_occurrence allocate_facets analize bmax bmin build_connectivity check_normal check_vertices_occurrencies cli_parse cli_parse cli_parse cli_parse cli_parse cli_parse close_file closest_point closest_point compute_bb_from_facets compute_metrix compute_metrix compute_normal compute_normals compute_octants compute_octants compute_volume create_aabb_tree destroy destroy destroy destroy destroy distance distance distance distance distance distance_from_facets distance_from_facets do_ray_intersect do_ray_intersect do_ray_intersect edge_connection_in_other_ref facet_assign_facet file_stl_assign_file_stl first_child_node first_node flip_edge has_facets has_facets initialize initialize initialize initialize initialize is_allocated is_inside is_point_inside_polyhedron_ri is_point_inside_polyhedron_sa load_facets_number_from_file load_from_file load_from_file_ascii load_from_file_binary load_header_from_file make_normal_consistent mirror_by_matrix mirror_by_matrix mirror_by_normal mirror_by_normal nodes_number nodes_number_at_level open_file parent_node ray_intersections_number ray_intersections_number ray_intersections_number resize resize reverse_normal reverse_normals rotate_by_axis_angle rotate_by_axis_angle rotate_by_matrix rotate_by_matrix sanitize_normals save_facets_into_file_stl save_facets_into_file_stl save_geometry_tecplot_ascii save_geometry_tecplot_ascii save_geometry_tecplot_ascii save_header_into_file save_into_file save_into_file_ascii save_into_file_binary save_into_file_stl save_trailer_into_file solid_angle statistics tetrahedron_volume translate translate update_connectivity update_extents update_extents vertex vertex_global_id