openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-15 03:05:41 +02:00
Code Issues Releases Wiki Activity

in the following order: sx, sy, sz

Browse Source
This commit is contained in:
Justin Lin
2019-05-01 07:30:08 +08:00
parent fad69acb2a
commit fece5c2bde
1 changed files with 39 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
src/m_shearing.scad
View File

@@ -1,15 +1,46 @@
function m_shearing(sx = [0, 0], sy = [0, 0], sz = [0, 0]) = include <__private__/__m_multiply.scad>;
function _m_shearing_sx(sx) =
let( let(
sx_along_y = sx[0], sx_along_y = sx[0],
sx_along_z = sx[1], sx_along_z = sx[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_x = sy[0],
sy_along_z = sy[1], 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_x = sz[0],
sz_along_y = sz[1] sz_along_y = sz[1]
) )
[ [
[1, sx_along_y, sx_along_z, 0], [1, 0, 0, 0],
[sy_along_x, 1, sy_along_z, 0], [0, 1, 0, 0],
[sz_along_x, sz_along_y, 1, 0], [sz_along_x, sz_along_y, 1, 0],
[0, 0, 0, 1] [0, 0, 0, 1]
]; ];
function m_shearing(sx = [0, 0], sy = [0, 0], sz = [0, 0]) =
__m_multiply(
_m_shearing_sy(sz),
__m_multiply(
_m_shearing_sy(sy),
_m_shearing_sx(sx)
)
);