save_facets_into_file_stl Subroutine

  1. fossil_aabb_object.f90
  2. fossil_aabb_object
  3. save_facets_into_file_stl

private subroutine save_facets_into_file_stl(self, file_name, is_ascii)

Save facets into file STL.

Arguments

Type IntentOptional AttributesName
class(aabb_object), intent(in) :: self

AABB.
character(len=*), intent(in) :: file_name

File name.
logical, intent(in) :: is_ascii

Sentinel to check if file is ASCII.

Source Code

save_facets_into_file_stl

Source Code

   subroutine save_facets_into_file_stl(self, file_name, is_ascii)
   !< Save facets into file STL.
   class(aabb_object), intent(in) :: self      !< AABB.
   character(*),       intent(in) :: file_name !< File name.
   logical,            intent(in) :: is_ascii  !< Sentinel to check if file is ASCII.
   integer(I4P)                   :: file_unit !< File unit.
   integer(I4P)                   :: f         !< Counter.

   if (self%facets_number > 0) then
      call open_file
      if (is_ascii) then
         do f=1, self%facets_number
            call self%facet(f)%save_into_file_ascii(file_unit=file_unit)
         enddo
      else
         do f=1, self%facets_number
            call self%facet(f)%save_into_file_binary(file_unit=file_unit)
         enddo
      endif
      call close_file
   endif
   contains
      subroutine open_file()
      !< Open STL file.

      if (is_ascii) then
         open(newunit=file_unit, file=trim(adjustl(file_name)),                  form='formatted')
         write(file_unit, '(A)') 'solid '//trim(adjustl(file_name))
      else
         open(newunit=file_unit, file=trim(adjustl(file_name)), access='stream', form='unformatted')
         write(file_unit) repeat('a', 80)
         write(file_unit) self%facets_number
      endif
      endsubroutine open_file

      subroutine close_file()
      !< Close STL file.

      if (is_ascii) write(file_unit, '(A)') 'endsolid '//trim(adjustl(file_name))
      close(unit=file_unit)
      endsubroutine close_file
   endsubroutine save_facets_into_file_stl

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