mirror of
https://github.com/BelfrySCAD/BOSL2.git
synced 2024-12-29 16:29:40 +00:00
20 lines
638 B
OpenSCAD
20 lines
638 B
OpenSCAD
include <BOSL2/std.scad>
|
|
include <BOSL2/beziers.scad>
|
|
|
|
// Makes a pseudo-sphere from a rectangular patch and its mirror.
|
|
s = 50/sqrt(2);
|
|
d = [[1,1,0],[-1,1,0],[-1,-1,0],[1,-1,0]];
|
|
p = s * d;
|
|
q = s * 0.55 * d;
|
|
u = s * 2.5 * UP;
|
|
patch1 = [
|
|
[p[2], p[2]+q[3], p[3]+q[2], p[3] ],
|
|
[p[2]+q[1], p[2]+q[2]+u, p[3]+q[3]+u, p[3]+q[0]],
|
|
[p[1]+q[2], p[1]+q[1]+u, p[0]+q[0]+u, p[0]+q[3]],
|
|
[p[1], p[1]+q[0], p[0]+q[1], p[0] ],
|
|
];
|
|
patch2 = patch_reverse(zflip(p=patch1));
|
|
trace_bezier_patches([patch1, patch2], splinesteps=16, style="quincunx");
|
|
|
|
|
|
// vim: expandtab tabstop=4 shiftwidth=4 softtabstop=4 nowrap
|