From f06da987208c58569850dcfec2afb238d5e43770 Mon Sep 17 00:00:00 2001
From: daniel watson <ozzloy@gmail.com>
Date: Fri, 19 Jan 2018 21:55:44 -0800
Subject: [PATCH] make shoulder and elbow supports

---
 mk2-haribo-spool-holder.scad | 27 +++++++++++++++++++++------
 1 file changed, 21 insertions(+), 6 deletions(-)

diff --git a/mk2-haribo-spool-holder.scad b/mk2-haribo-spool-holder.scad
index b409fd0..2518ff5 100644
--- a/mk2-haribo-spool-holder.scad
+++ b/mk2-haribo-spool-holder.scad
@@ -80,24 +80,39 @@ module forearm_profile() {
       translate([-20, -20]) {
         square(151); } } } }
 
+module shoulder_hull() {
+  hull() {
+    translate([-20, -20, 0]) {
+      cube([40, 40, 35]); }
+    difference() {
+      upper_arm_hull();
+      translate([-30, 30, -10]) {
+        cube(300); } } } }
+
 module upper_arm_hull() {
   linear_extrude(height = 15) {
     upper_arm_profile(); } }
 
+module elbow_hull() {
+  hull(){
+    difference() {
+      upper_arm_hull();
+      translate([-50, -300 + 120, -1]) {
+        cube(300); } }
+    difference() {
+      forearm_hull();
+      translate([0, 0, 30]) {
+        cube(300); } } } }
+
 module forearm_hull() {
   linear_extrude(height = 120.5) {
     forearm_profile(); } }
 
-module shoulder_hull() {
-  translate([-20, -20, 0]) {
-    cube([40, 40, 35]); } }
-
 shoulder_hull();
 upper_arm_hull();
+elbow_hull();
 forearm_hull();
 
-original_spool_holder();
-
 module original_forearm_profile() {
   %projection(true) {
     translate([-315, 0, -80]) {
-- 
2.30.2