challenge-bot.com Git - ozzloy@gmail.com/3d-printables/blob - spin-data.scad

   1 /* GNU AGPLv3 (or later at your option)
   2    see bottom for more license info */
   3
   4 /* spin thing that erin likes */
   5 $fn = 50;
   6
   7 layer_height = 0.15;
   8
   9 weight = "penny";
  10 // weight = "608zz";
  11 bearing = "608zz";
  12 weight_lip_overhang = 0.3;
  13 bearing_lip_overhang = weight_lip_overhang;
  14 // TODO: switch wall_thickness -> wall
  15 wall_thickness = 3;
  16 wall = 3;
  17 penny_thickness = 1.52;
  18 penny_radius = 19.05 / 2;
  19
  20 _608zz_radius = 22 / 2;
  21 _608zz_inner_radius = 8.1 / 2;
  22 _608zz_cover_radius = 19.4 / 2;
  23 _608zz_cap_footprint_radius = 12 / 2;
  24 _608zz_thickness = 7;
  25
  26 weight_radius = (weight == "penny") ? penny_radius : _608zz_radius;
  27 weight_thickness = (weight == "penny") ?
  28      penny_thickness * 5 : _608zz_thickness;
  29
  30 bearing_radius = (bearing == "608zz") ? _608zz_radius : 1/0;
  31 bearing_inner_radius = (bearing == "608zz") ? _608zz_inner_radius : 1/0;
  32 bearing_cover_radius = (bearing == "608zz")
  33                        ? _608zz_cover_radius + wall
  34                        : 1/0;
  35 bearing_cap_footprint_radius =
  36      (bearing == "608zz") ? _608zz_cap_footprint_radius : 1/0;
  37 bearing_thickness = (bearing == "608zz") ? _608zz_thickness : 1/0;
  38
  39 spinner_height = penny_thickness * 5 + 2;
  40 arms = 3;
  41
  42 module cap(bearing_inner_radius,
  43            bearing_cap_footprint_radius,
  44            bearing_cover_radius,
  45            bearing_thickness) {
  46   footprint_height = 1.6;
  47   footprint_radius_safety = 0.25;
  48   cap_height = 3;
  49   bearing_cover_radius_safety = 0.75;
  50   bearing_thickness_safety = 0.2;
  51
  52   difference() {
  53     union() {
  54       cylinder(r1 = bearing_cover_radius - tan(30) * cap_height,
  55                r2 = bearing_cover_radius,
  56                h = cap_height);
  57       linear_extrude(height = cap_height + footprint_height) {
  58         circle(bearing_cap_footprint_radius - footprint_radius_safety); }
  59       linear_extrude(height = cap_height
  60                               + footprint_height
  61                               + bearing_thickness / 2
  62                               - bearing_thickness_safety) {
  63         circle(bearing_inner_radius); } }
  64     translate([0, 0, -0.01]) {
  65       cylinder(r1 = bearing_inner_radius + tan(30) * (cap_height - 1),
  66                r2 = bearing_inner_radius,
  67                h = cap_height - 1); } } }
  68
  69 module fillet(r) {
  70   offset(r = -r) { offset(delta = r) { children(); } } }
  71
  72 module spin_footprint(weight_radius,
  73                       bearing_radius,
  74                       round_extra,
  75                       wall,
  76                       arms) {
  77   thinner_radius = (bearing_radius < weight_radius)?
  78     bearing_radius : weight_radius;
  79   fillet(thinner_radius / 2) {
  80     for(arm = [0 : arms - 1]) {
  81       hull() {
  82         circle(bearing_radius + round_extra);
  83         rotate( (arm / arms) * 360 ) {
  84           translate([bearing_radius + wall + weight_radius, 0]) {
  85             circle(weight_radius + round_extra); } } } } } }
  86
  87 module mirrored(axis) {
  88   children();
  89   mirror(axis) children(); }
  90
  91 module spin(weight_radius,
  92             weight_thickness,
  93             bearing_radius,
  94             bearing_thickness,
  95             weight_lip_overhang = 0.3,
  96             bearing_lip_overhang = 0.3,
  97             wall = 3,
  98             arms = 3) {
  99   layer_height = 0.15;
 100   thicker_thickness = (bearing_thickness > weight_thickness) ?
 101     bearing_thickness : weight_thickness;
 102   calculated_height = thicker_thickness + 2 * wall;
 103   layers = 2 * ceil(ceil(calculated_height / layer_height) / 2);
 104   actual_height = layers * layer_height;
 105   round_radius = actual_height / 2;
 106
 107   old_start = 0;
 108   old_end = (layers / 2) - 1;
 109
 110   new_start = old_end / 16;
 111   new_end = old_end;
 112
 113   old_range = old_end - old_start;
 114   new_range = new_end - new_start;
 115
 116   factor = new_range / old_range;
 117
 118   initial_adjacent = round_radius - (new_start * layer_height);
 119   initial_angle = acos(initial_adjacent / round_radius);
 120   initial_round_extra = initial_adjacent * tan(initial_angle);
 121
 122   mirrored([0, 0, 1]) {
 123     for(layer = [0 : (layers / 2) - 1]) {
 124       translate([0, 0, layer * layer_height - actual_height / 2]) {
 125         linear_extrude(height = layer_height) {
 126           new_layer = (layer - old_start) * factor + new_start;
 127           adjacent = round_radius - (new_layer * layer_height);
 128           angle = acos(adjacent / round_radius);
 129           round_extra = adjacent * tan(angle) - initial_round_extra;
 130           echo(round_extra);
 131           spin_footprint(weight_radius,
 132                          bearing_radius,
 133                          round_extra,
 134                          wall,
 135                          arms); } } } } }
 136
 137 /*
 138   This file is part of 3d-printables.
 139
 140   3d-printables is free software: you can redistribute it and/or modify
 141   it under the terms of the GNU Affero General Public License as published by
 142   the Free Software Foundation, either version 3 of the License, or
 143   (at your option) any later version.
 144
 145   3d-printables is distributed in the hope that it will be useful,
 146   but WITHOUT ANY WARRANTY; without even the implied warranty of
 147   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 148   GNU Affero General Public License for more details.
 149
 150   You should have received a copy of the GNU Affero General Public License
 151   along with challenge-bot.  If not, see <http://www.gnu.org/licenses/>.
 152 */