fossil_test_rotate Program

  1. fossil_test_rotate.f90
  2. fossil_test_rotate

  • Uses:

  • flap
  • fossil
  • penf
  • vecfor
program~~fossil_test_rotate~~UsesGraph program~fossil_test_rotate fossil_test_rotate flap flap flap->program~fossil_test_rotate vecfor vecfor vecfor->program~fossil_test_rotate module~fossil_file_stl_object fossil_file_stl_object vecfor->module~fossil_file_stl_object module~fossil_facet_object fossil_facet_object vecfor->module~fossil_facet_object module~fossil_aabb_tree_object fossil_aabb_tree_object vecfor->module~fossil_aabb_tree_object module~fossil_aabb_node_object fossil_aabb_node_object vecfor->module~fossil_aabb_node_object module~fossil_aabb_object fossil_aabb_object vecfor->module~fossil_aabb_object module~fossil fossil module~fossil->program~fossil_test_rotate penf penf penf->program~fossil_test_rotate penf->module~fossil_file_stl_object penf->module~fossil_facet_object penf->module~fossil_aabb_tree_object module~fossil_utils fossil_utils penf->module~fossil_utils penf->module~fossil_aabb_node_object penf->module~fossil_aabb_object module~fossil_file_stl_object->module~fossil module~fossil_facet_object->module~fossil module~fossil_facet_object->module~fossil_file_stl_object module~fossil_facet_object->module~fossil_aabb_tree_object module~fossil_facet_object->module~fossil_aabb_node_object module~fossil_facet_object->module~fossil_aabb_object module~fossil_aabb_tree_object->module~fossil_file_stl_object module~fossil_utils->module~fossil_file_stl_object module~fossil_utils->module~fossil_facet_object module~fossil_utils->module~fossil_aabb_object iso_fortran_env iso_fortran_env iso_fortran_env->module~fossil_file_stl_object iso_fortran_env->module~fossil_facet_object iso_fortran_env->module~fossil_aabb_tree_object iso_fortran_env->module~fossil_aabb_node_object iso_fortran_env->module~fossil_aabb_object module~fossil_aabb_node_object->module~fossil_aabb_tree_object module~fossil_aabb_object->module~fossil_aabb_tree_object module~fossil_aabb_object->module~fossil_aabb_node_object
Help


FOSSIL, test rotate STL.

Calls

program~~fossil_test_rotate~~CallsGraph program~fossil_test_rotate fossil_test_rotate proc~cli_parse~6 cli_parse program~fossil_test_rotate->proc~cli_parse~6
Help

Variables

Subroutines

Source Code

fossil_test_rotate

Variables

Type AttributesNameInitial
type(file_stl_object) :: file_stl

STL file.
character(len=999) :: file_name_stl

Input STL file name.
type(vector_R8P) :: axis

Axis of rotation.
real(kind=R8P) :: angle

Angle of rotation.
logical :: are_tests_passed(2)

Result of tests check.

Subroutines

subroutine cli_parse()

Build and parse test cli.

Arguments

None

Source Code

program fossil_test_rotate
!< FOSSIL, test rotate STL.

use flap, only : command_line_interface
use fossil, only : file_stl_object
use penf, only : I4P, R8P
use vecfor, only : ex_R8P, ey_R8P, ez_R8P, vector_R8P

implicit none

type(file_stl_object) :: file_stl            !< STL file.
character(999)        :: file_name_stl       !< Input STL file name.
type(vector_R8P)      :: axis                !< Axis of rotation.
real(R8P)             :: angle               !< Angle of rotation.
logical               :: are_tests_passed(2) !< Result of tests check.

are_tests_passed = .false.

call cli_parse
call file_stl%initialize(file_name=trim(adjustl(file_name_stl)))
call file_stl%load_from_file(guess_format=.true.)

call file_stl%rotate(axis=axis, angle=angle)
call file_stl%save_into_file(file_name='fossil_test_rotate.stl')
are_tests_passed(1) = nint(file_stl%distance(point=0 * ex_R8P - 1 * ey_R8P + 1 * ez_R8P)) == 0
are_tests_passed(2) = nint(file_stl%distance(point=1 * ex_R8P - 1 * ey_R8P + 0 * ez_R8P)) == 0

print '(A,L1)', 'Are all tests passed? ', all(are_tests_passed)
contains
  subroutine cli_parse()
  !< Build and parse test cli.
  type(command_line_interface) :: cli      !< Test command line interface.
  real(R8P)                    :: axis_(3) !< Axis of rotation.
  integer(I4P)                 :: error    !< Error trapping flag.

  call cli%init(progname='fossil_test_rotate',                              &
                authors='S. Zaghi',                                         &
                help='Usage: ',                                             &
                examples=["fossil_test_rotate --stl src/tests/dragon.stl"], &
                epilog=new_line('a')//"all done")

  call cli%add(switch='--stl',               &
               help='STL (input) file name', &
               required=.false.,             &
               def='src/tests/cube.stl',     &
               act='store')

  call cli%add(switch='--axis',         &
               help='axis of rotation', &
               required=.false.,        &
               nargs='+',               &
               def='1.0 0.0 0.0',       &
               act='store')

  call cli%add(switch='--angle',         &
               help='angle of rotation', &
               required=.false.,         &
               def='1.57079633',         &
               act='store')

  call cli%parse(error=error) ; if (error/=0) stop

  call cli%get(switch='--stl',   val=file_name_stl, error=error) ; if (error/=0) stop
  call cli%get(switch='--axis',  val=axis_,         error=error) ; if (error/=0) stop
  call cli%get(switch='--angle', val=angle,         error=error) ; if (error/=0) stop
  axis%x = axis_(1)
  axis%y = axis_(2)
  axis%z = axis_(3)
  endsubroutine cli_parse
endprogram fossil_test_rotate

All Programs