OpenSCAD之递归作图

 开始是想做个3维的Vicsek fractal 打印出来。2维的Vicsek fractal是这个样子：

但是吧，这个形状包含连续的对角线，所以修改了一下，改成在正方形的中间挖一个1/3的正方形，然后在4个角重复这个操作。

于是就这样了：

WD=81;
DP =3;

function getL(w,x,y,d)=
    d<=1?
        [[w,x,y]]
    :
        concat( [[w,x,y]]
                ,getL(w/3,x+w,y+w,d-1)
                 ,getL(w/3,x-w,y+w,d-1)
                 ,getL(w/3,x+w,y-w,d-1)
                 ,getL(w/3,x-w,y-w,d-1)
                )
    ;

module cL(widths=81,deeps=1){
    color("red")
        for (a = getL(widths/3,0,0,deeps))
            translate([a[1],a[2], 0])
                cube([a[0],a[0],widths], center = true);
}

difference() {
    color("green") cube(WD,center = true);
    union(){
        rotate(a=[ 0,90, 0])cL(WD,DP);
        rotate(a=[90, 0, 0])cL(WD,DP);
        rotate(a=[ 0, 0,90])cL(WD,DP);
    }
}