# モデル2: スプーン(ティースプーン)
# 楕円体を半分に切ってすくう部分を作り、平たい柄をつなぐ。
# すくう部分の縁が z=0、柄の上面も z=0 にそろえる。
@param 30..50 desc:"すくう部分の長さ (mm)"
bowl_l = 40
@param 20..36 desc:"すくう部分の幅 (mm)"
bowl_w = 28
@param 5..12 desc:"すくう部分の深さ (mm)"
bowl_d = 8
@param 1.2..3 step:0.1 desc:"肉厚 (mm)"
wall_t = 1.6
@param 80..160 desc:"柄の長さ (mm)"
handle_l = 100
@param 2..5 step:0.5 desc:"柄の厚み (mm)"
handle_t = 3
$rx = bowl_l / 2
$ry = bowl_w / 2
# すくう部分: 楕円体の下半分
$outer = sphere 1
| scale $rx $ry bowl_d
| inter (box 60 60 20 at:(0, 0, -10))
$inner = sphere 1
| scale ($rx - wall_t) ($ry - wall_t) (bowl_d - wall_t)
# 柄: 根元は細く、先端に向かって広がり、丸く終わる
$x0 = 0 - $rx + 4
$x1 = $x0 - handle_l
$handle = sketch [
($x0, 4.5),
($x0 - 25, 3.5),
spline [($x1 + 25, 5.5), ($x1 + 8, 7.5)],
arc ($x1 + 8, 7.5) ($x1, 0) ($x1 + 8, -7.5),
spline [($x1 + 25, -5.5), ($x0 - 25, -3.5)],
($x0, -4.5)
] | extrude handle_t | translate 0 0 (0 - handle_t)
($outer + $handle) - $inner
