Programa en openSCAD:
// OpenSCAD
// Dragon curve
nivel = 8;
ancho = 0.4;
h=2;
module dragon(nivel) {
if (nivel <= 0) {
translate([0.5,0]) square([1+ancho,ancho], center=true);
}
else {
rotate(-45) scale(1/sqrt(2)) dragon(nivel-1);
translate([1,0])
rotate(-135) scale(1/sqrt(2)) dragon(nivel-1);
}
}
linear_extrude(h) scale(50) dragon(nivel);
























