sixteenmillimeter-tools/models/s8_16mm_reel_adapter/s8_16mm_reel_adapter.scad

54 lines
1.9 KiB
OpenSCAD

time = 0;
/**
* Super-8 to 16mm Reel Adapter. Designed to be used on a JK optical
* printer, but will work with rewinds as well.
*
**/
module s8_16mm_reel_adapter () {
BOTTOM_D = 21.53;
BOTTOM_H = 1.5;
D = 12.72;
H = 10;
SQUARE = 8.2;
TAPER = 1.4;
PEG_H = 9;
PEG_L = 3.18;
PEG_W = 2;
$fn = 200;
difference () {
union () {
cylinder(r = BOTTOM_D / 2, h = BOTTOM_H, center = true);
translate([0, 0, (BOTTOM_H / 2) + H / 2]) cylinder(r = D / 2, h = H, center = true);
translate([0, 0, (BOTTOM_H / 2) + H + (TAPER / 2)]) cylinder(r1 = D / 2, r2 = (D / 2) - TAPER, h = TAPER, center = true);
}
rotate([0, 0, 45]) cube([SQUARE, SQUARE, 60], center = true);
translate([0, 10, 0]) cube([3, 20, 60], center = true);
}
for (i = [1 : 2]) {
rotate([0, 0, i * 120]) translate([0, (D / 2) + (PEG_L / 2) - (PEG_W / 2), (BOTTOM_H / 2) + (PEG_H / 2)]) cube([PEG_W, PEG_L, PEG_H], center = true);
rotate([0, 0, i * 120]) translate([0, (D / 2) + (PEG_L / 2) + (PEG_W / 3), (BOTTOM_H / 2) + (PEG_H / 2)]) cylinder(r = PEG_W / 2, h = PEG_H, center = true, $fn = 40);
}
}
module reel_reference () {
SQUARE = 7.95;
translate([0, 0, 12.3 - 1]) {
difference() {
union() {
translate([0, 0, -(12.3 / 2)]) cube([SQUARE, SQUARE, 12.3], center = true);
rotate([0, 90, 0]) cylinder(r = SQUARE / 2, h =8, center = true);
rotate([0, 90, 90]) cylinder(r = SQUARE / 2, h =8, center = true);
}
for (i = [0 : 4]) {
rotate([0, 0, i * 90]) translate([0, 4.9, 1]) rotate([12, 0, 0]) cube([SQUARE, 2, 10], center = true);
}
}
}
translate([0, 0, (39 / 2)]) cylinder(r = 6.57 / 2, h = 39, center = true, $fn = 60);
}
rotate([0, 0, time]) s8_16mm_reel_adapter();
//color("red") translate([0, 0, -2]) reel_reference();