The 4x4 transform translating by t.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=wp), | intent(in) | :: | t(3) |
translation |
pure function translation_matrix(t) result(m) real(wp), intent(in) :: t(3) !! translation real(wp) :: m(4,4) m = identity_matrix() m(1:3, 4) = t end function translation_matrix