(
	fn MirrorWorld obj p3 =
	(
		obj.transform *= scalematrix p3
	)
	fn MirrorPivot obj p3 =
	(
		obj.transform = scale obj.transform p3
	)

	fn MirrorCenter obj p3 =
	(
		local cen = obj.center
		obj.transform *= scalematrix p3
		obj.center = cen
	)

-- 	MirrorWorld $ [-1,1,1]
-- 	MirrorPivot $ [-1,1,1]
-- 	MirrorCenter $ [-1,1,1]
)