tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

progress on transformation matrix

Browse Source
This commit is contained in:
Tonton Th
2026-06-02 14:37:14 +02:00
parent 1fc04c90ec
commit e80bdd0ad5
3 changed files with 23 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
genp_tests.f90
View File

@@ -22,6 +22,7 @@ subroutine genp_test_rotation()
call genp_set_rotation (real(pass)*0.10)
write(0, *) " * the matrix was : "
call genp_get_rot_matrix(mat)
! display the rotation matrix
do i=1, 3
do j=1, 3
write (0, '(" ", F8.5)', advance='no') mat(i,j)
@@ -29,13 +30,9 @@ subroutine genp_test_rotation()
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