42 lines
1.1 KiB
Fortran
42 lines
1.1 KiB
Fortran
!
|
|
! MODULE FOR TESTING THE GENPLOTTING MODULE
|
|
!
|
|
! this crapware is released by tTh under the
|
|
! DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
|
|
!
|
|
! new Sun May 17 11:21:39 AM UTC 2026
|
|
|
|
module genp_tests
|
|
use genplotting
|
|
implicit none
|
|
contains
|
|
! ---------------------------------------------------------
|
|
subroutine genp_test_rotation()
|
|
|
|
real :: mat(3, 3)
|
|
real :: pta(3), ptb(3)
|
|
integer :: pass, i, j
|
|
|
|
write(0, '("*** TEST ROTATION ***")' )
|
|
do pass=1, 90
|
|
call genp_set_rotation (real(pass)*0.10)
|
|
write(0, *) " * the matrix was : "
|
|
call genp_get_rot_matrix(mat)
|
|
do i=1, 3
|
|
do j=1, 3
|
|
write (0, '(" ", F8.5)', advance='no') mat(i,j)
|
|
end do
|
|
write(0, *)
|
|
end do
|
|
|
|
call genp_move(0.0, 0.0)
|
|
pta(1) = 11.0 ; pta(2) = 0.0 ; pta(3) = 0.0
|
|
ptb = matmul(mat, pta)
|
|
write(0, '(" got XY: ", F8.5, " ", F8.5)') ptb(1), ptb(2)
|
|
call genp_draw(ptb(1), ptb(2), 1+mod(pass, 7))
|
|
end do ! pass
|
|
|
|
end subroutine
|
|
! ---------------------------------------------------------
|
|
end module
|