openscad Wall

render() scalerTest([20,20,60]);
module scalerTest(dim){
thagorasxy = norm([dim[0], dim[1]]);
thagorasyz = norm([dim[1], dim[2]]);
thagorasxz = norm([dim[0], dim[1]]);

difference(){
cube(dim, center=true);
cube(dim, center=true) void($Dp= scalerAd($Dapoints, [(-thagorasxy/6)+0,0,0], [-0,0,0], [0,0,0])) pp($Dp);
cube(dim, center=true) void($Dp= scalerAd($Dapoints, [-0,0,0], [-thagorasyz/6,0,0], [90,0,0])) pp($Dp);
}
}

///this ones cool:
move(tsVec=[0,-0,0]) scalerTest([40,40,60]);
module scalerTest(dim){
thagorasxy = norm([dim[0], dim[1]]);
thagorasyz = norm([dim[1], dim[2]]);
thagorasxz = norm([dim[0], dim[1]]);
fn =4;
edgeA = [for(i=[-0.5:0.1:0.5]) [2,0,i]];
edgeB = [for(i=[-0.4:0.2:0.8]) [i*2,0,i]];
edge = flatten(interpolate(edgeA, edgeB, trim=4));
echo(edge);
difference(){
tube(dim, $fn=fn, edge=edge);
//tube(dim, $fn=fn, edge=edge) void($Dp= g(scalerAd($Dapoints, [-8,0,0], [-0,0,0], [0,0,0]), [dim[0]-10,0,0])) pp($Dp, Da=360/$fn);
tub