From f1ab4d72e04a99c52ae571493933a088797c7d0a Mon Sep 17 00:00:00 2001
From: Christian Hodgden <chrhodgden@gmail.com>
Date: Wed, 24 Jul 2024 14:24:12 +0000
Subject: chess: pawn - added an optional collar parameter

I personally don't like it.
---
 chess/pawn.scad | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'chess/pawn.scad')

diff --git a/chess/pawn.scad b/chess/pawn.scad
index 49f2da4..40b70de 100644
--- a/chess/pawn.scad
+++ b/chess/pawn.scad
@@ -26,11 +26,17 @@ stem_base_radius = base_radius / 2;
 head_radius = 1;
 stem_height = total_height - base_height - head_radius;
 
+// collar_check enables collar
+collar_check = 0;
+collar_radius = head_radius * collar_check;
+
 cylinder(base_height/2, base_radius, base_radius);
 translate([0, 0, base_height/2]) 
 	cylinder(base_height, base_radius, 0);
 translate([0, 0, base_height])
 	cylinder(stem_height, stem_base_radius, stem_radius);
-translate([0, 0, 4])
+translate([0, 0, total_height - head_radius])
 	sphere(head_radius);
+translate([0, 0, total_height - (2 * head_radius)])
+	cylinder(0.25, collar_radius, 0);
 
-- 
cgit v1.2.3