diff --git a/src/__private__/__m_shearing.scad b/src/__private__/__m_shearing.scad index 88798e3d..91c6bf74 100644 --- a/src/__private__/__m_shearing.scad +++ b/src/__private__/__m_shearing.scad @@ -1,44 +1,15 @@ -function __m_shearing_sx(sx) = +function __m_shearing(sx, sy, sz) = let( sx_along_y = sx[0], - sx_along_z = sx[1] + sx_along_z = sx[1], + sy_along_x = sy[0], + sy_along_z = sy[1], + sz_along_x = sz[0], + sz_along_y = sz[1] ) [ [1, sx_along_y, sx_along_z, 0], - [0, 1, 0, 0], - [0, 0, 1, 0], - [0, 0, 0, 1] - ]; - -function __m_shearing_sy(sy) = - let( - sy_along_x = sy[0], - sy_along_z = sy[1] - ) - [ - [1, 0, 0, 0], [sy_along_x, 1, sy_along_z, 0], - [0, 0, 1, 0], - [0, 0, 0, 1] - ]; - -function __m_shearing_sz(sz) = - let( - sz_along_x = sz[0], - sz_along_y = sz[1] - ) - [ - [1, 0, 0, 0], - [0, 1, 0, 0], [sz_along_x, sz_along_y, 1, 0], [0, 0, 0, 1] - ]; - -function __m_shearing(sx, sy, sz) = - __m_multiply( - __m_shearing_sz(sz), - __m_multiply( - __m_shearing_sy(sy), - __m_shearing_sx(sx) - ) - ); \ No newline at end of file + ]; \ No newline at end of file