colorpie/scad/wedge.scad

256 lines
6.8 KiB
OpenSCAD

//
// colorpie.scad
// 2026-03-06 ChatGPT
// $Header$
//
// Preview:
// openscad colorpie.scad
//
// STL export:
// openscad -o output.stl wedge.scad
//
$fn = 90;
// ------------------------------------------------------------
// Global parameters
// ------------------------------------------------------------
slice_count = 10;
slice_angle = 360 / slice_count; // 36 degrees
explode_gap = 10;
// Footprint
inner_r = 22;
outer_r = 82;
thickness = 6;
// Crown profile across the wedge width
crown_height = 10;
table_frac = 0.42; // fraction of width occupied by table
shoulder_frac = 0.18; // fraction on each side used by bevel/shoulder
stations = 13; // more stations = more facet slices across width
// Labeling
label_size = 8;
label_depth = 1.0;
label_font = "Liberation Sans:style=Bold";
// Small geometry tolerance
eps = 0.01;
// ------------------------------------------------------------
// Helper functions
// ------------------------------------------------------------
function deg(a) = a;
function lerp(a,b,t) = a + (b-a)*t;
// u is normalized from 0 at left cut face to 1 at right cut face
// This defines the outside-elevation style profile:
//
// low edge -> bevel up -> flat table -> bevel down -> low edge
//
function crown_profile(u) =
let(
t0 = shoulder_frac,
t1 = 0.5 - table_frac/2,
t2 = 0.5 + table_frac/2,
t3 = 1.0 - shoulder_frac
)
(u <= t0) ? lerp(0.00, 0.70, u / t0) :
(u <= t1) ? lerp(0.70, 1.00, (u - t0) / max(eps, t1 - t0)) :
(u <= t2) ? 1.00 :
(u <= t3) ? lerp(1.00, 0.70, (u - t2) / max(eps, t3 - t2)) :
lerp(0.70, 0.00, (u - t3) / max(eps, 1.0 - t3));
// Z value of top surface at station u
function top_z(u) = thickness + crown_height * crown_profile(u);
// Angle at station i
function station_angle(i) = slice_angle * i / (stations - 1);
// Polar point helpers
function p_inner(a,z) = [ inner_r * cos(a), inner_r * sin(a), z ];
function p_outer(a,z) = [ outer_r * cos(a), outer_r * sin(a), z ];
// Indices for point grid
// per station:
// 0 = bottom inner
// 1 = bottom outer
// 2 = top inner
// 3 = top outer
function idx_bi(i) = 4*i + 0;
function idx_bo(i) = 4*i + 1;
function idx_ti(i) = 4*i + 2;
function idx_to(i) = 4*i + 3;
// ------------------------------------------------------------
// Master wedge as a polyhedron
// Top shape traverses the wedge width
// ------------------------------------------------------------
module wedge_body() {
pts = [
for (i = [0:stations-1])
let(
a = station_angle(i),
u = i / (stations - 1),
zt = top_z(u)
)
each [
p_inner(a, 0), // bottom inner
p_outer(a, 0), // bottom outer
p_inner(a, zt), // top inner
p_outer(a, zt) // top outer
]
];
faces = concat(
// bottom, triangulated
[
for (i = [0:stations-2]) each [
[ idx_bi(i), idx_bi(i+1), idx_bo(i+1) ],
[ idx_bi(i), idx_bo(i+1), idx_bo(i) ]
]
],
// top, triangulated
[
for (i = [0:stations-2]) each [
[ idx_ti(i), idx_to(i), idx_to(i+1) ],
[ idx_ti(i), idx_to(i+1), idx_ti(i+1) ]
]
],
// inner radius face, triangulated
[
for (i = [0:stations-2]) each [
[ idx_bi(i), idx_ti(i), idx_ti(i+1) ],
[ idx_bi(i), idx_ti(i+1), idx_bi(i+1) ]
]
],
// outer radius face, triangulated
[
for (i = [0:stations-2]) each [
[ idx_bo(i), idx_bo(i+1), idx_to(i+1) ],
[ idx_bo(i), idx_to(i+1), idx_to(i) ]
]
],
// left cut face, triangulated
[
[ idx_bi(0), idx_bo(0), idx_to(0) ],
[ idx_bi(0), idx_to(0), idx_ti(0) ]
],
// right cut face, triangulated
[
[ idx_bi(stations-1), idx_ti(stations-1), idx_to(stations-1) ],
[ idx_bi(stations-1), idx_to(stations-1), idx_bo(stations-1) ]
]
);
polyhedron(points = pts, faces = faces, convexity = 12);
}
// ------------------------------------------------------------
// raised bottom label so readable and not engulged/hidden
// ------------------------------------------------------------
module wedge_label_raise_OLD(label_txt="0") {
mid_r = (inner_r + outer_r) / 2;
mid_a = slice_angle / 2;
x = mid_r * cos(mid_a);
y = mid_r * sin(mid_a);
translate([x, y, 0])
rotate([0, 0, mid_a - 90])
linear_extrude(height = 1.2)
text(label_txt,
size = 18,
font = label_font,
halign = "center",
valign = "center");
}
// If the text is too close to the middle or too large, use this instead:
module wedge_label_raise_optional(label_txt="0") {
mid_r = inner_r + (outer_r - inner_r) * 0.63;
mid_a = slice_angle / 2;
x = mid_r * cos(mid_a);
y = mid_r * sin(mid_a);
translate([x, y, 0])
rotate([0, 0, mid_a - 90])
linear_extrude(height = 10.2)
text(label_txt,
size = 18,
font = label_font,
halign = "center",
valign = "center");
}
module wedge_label_raise(label_txt="0") {
mid_r = inner_r + (outer_r - inner_r) * 0.63;
mid_a = slice_angle / 2;
x = mid_r * cos(mid_a);
y = mid_r * sin(mid_a);
translate([x, y, -3.2])
rotate([0, 0, mid_a - 90])
mirror([1,0,0])
linear_extrude(height = 3)
text(label_txt,
size = 16,
font = label_font,
halign = "center",
valign = "center");
}
// ------------------------------------------------------------
// One numbered wedge
// ------------------------------------------------------------
module wedge_unit(idx=0) {
wedge_body();
wedge_label_raise(str(idx));
//wedge_label_raise_optional(str(idx));
}
// ------------------------------------------------------------
// Assemble 10 wedges around the center
// Each wedge is exploded outward along its centerline
// ------------------------------------------------------------
module wheel_10() {
for (i = [0:slice_count-1]) {
a = i * slice_angle;
mid_a = a + slice_angle/2;
dx = explode_gap * cos(mid_a);
dy = explode_gap * sin(mid_a);
translate([dx, dy, 0])
rotate([0,0,a])
wedge_unit(i);
}
}
// ------------------------------------------------------------
// Top level
// ------------------------------------------------------------
wheel_10();