1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
use <../lib/bezier.scad>;
$fn = 100;
base_radius = 3/8;
top_radius = base_radius * 0.75;
top_height = top_radius * 2;
total_height = 7.5;
stem_height = total_height - top_height;
cylinder(stem_height, base_radius, top_radius);
control_points = [
[top_radius, 0],
[0.125, top_height/4],
[0.125, top_height/2],
[0.125, top_height],
[0, top_height]
];
// adjust curve_facets for low & odd $fn values
curve_facets = $fn/2;
head_curve = bezier_curve(control_points, $fn=curve_facets);
top_curve = concat(head_curve, [[0, 0]]);
translate([0, 0, stem_height])
rotate_extrude()
polygon(top_curve);
|
