Select all objects consecutivly along axis

fn sortByAxis arr1 arr2 axis: maxtomin: =
(
	local first, second
	case axis of 
	(
		(#x): (first = arr1.pos.x ; second = arr2.pos.x)
		(#y): (first = arr1.pos.y ; second = arr2.pos.y)
		(#z): (first = arr1.pos.z ; second = arr2.pos.z)
	)
	case of (
		(first < second): if not maxtomin then -1 else 1
		(first > second): if not maxtomin then 1 else -1
		default:0
	)
)
-- example 
delete objects
cnt = 1
objArr = for c in #(Box, Teapot, Cylinder, Cone, Sphere) collect (obj = c pos:[(cnt*50), 0, 0] ; cnt+=1 ; obj)
qsort objArr sortByAxis axis:#x maxtomin:off -- selected in order from left to right along X axis
print objArr
--qsort objArr sortByAxis axis:#x maxtomin:on -- selected in order from right to left along X axis