Tag: M2

Using and tweaking a Makergear M2 3D printer

Square Chain Mail Armor: Back From The Abyss

After a Slic3r commit fixed the bridging regression, I ran off chain mail patches to celebrate:

Square Chain Mail Armor - 3.3 3.5 4.0 thread bars — Square Chain Mail Armor – 3.3 3.5 4.0 thread bars

Two more Scli3r improvements calculate thin-wall and gap infill based on the available space, then vary the extrusion width to make the answers come out right for a given nozzle diameter. As a result, infill between close-set perimeter walls works much better than before; some of my long-held assumptions became invalid.

The only differences between the sheets: tweaking the BarWidth and SheetSize parameters. The links recalculate themselves around those values.

The OpenSCAD source code as a GitHub gist:

	// Chain Mail Armor Buttons
	// Ed Nisley KE4ZNU – December 2014

	Layout = "Build"; // Link Button LB Joiner Joiners Build PillarMod

	//——-
	//- Extrusion parameters must match reality!
	// Print with 1 shell and 2+2 solid layers

	ThreadThick = 0.25;
	ThreadWidth = 0.40;

	HoleWindage = 0.2;

	Protrusion = 0.1; // make holes end cleanly

	function IntegerMultiple(Size,Unit) = Unit * ceil(Size / Unit);

	//——-
	// Dimensions

	//- Set maximum sheet size

	SheetSizeX = 125; // 170 for full sheet on M2
	SheetSizeY = 125; // 230 …

	//- Diamond or rectangular sheet?

	Diamond = false; // true = rotate 45 degrees, false = 0 degrees for square

	BendAround = "X"; // X or Y = maximum flexibility around designated axis

	Cap = true; // true = build bridge layers over links
	CapThick = 4 * ThreadThick; // flat cap on link: >= 3 layers for solid bridging

	Armor = true && Cap; // true = build armor button atop (required) cap
	ArmorThick = IntegerMultiple(2.0,ThreadThick); // height above cap surface

	ArmorSides = 4;
	ArmorAngle = true ? 180/ArmorSides : 0; // true -> rotate half a side for best alignment

	//- Link bar sizes

	BarThick = 3 * ThreadThick;
	BarWidth = 3.3 * ThreadWidth;

	BarClearance = 3 * ThreadThick; // vertical clearance above & below bars

	VertexHack = false; // true to slightly reduce openings to avoid coincident vertices

	//- Compute link sizes from those values

	//- Absolute minimum base link: bar width + corner angle + build clearance around bars
	// rounded up to multiple of thread width to ensure clean filling
	BaseSide = IntegerMultiple((4BarWidth + 2BarWidth/sqrt(2) + 3(2ThreadWidth)),ThreadWidth);

	BaseHeight = 2*BarThick + BarClearance; // both bars + clearance

	echo(str("BaseSide: ",BaseSide," BaseHeight: ",BaseHeight));
	//echo(str(" Base elements: ",4BarWidth,", ",2BarWidth/sqrt(2),", ",3(2ThreadWidth)));
	//echo(str(" total: ",(4BarWidth + 2BarWidth/sqrt(2) + 3(2ThreadWidth))));

	BaseOutDiagonal = BaseSide*sqrt(2) – BarWidth;
	BaseInDiagonal = BaseSidesqrt(2) – 2(BarWidth/2 + BarWidth*sqrt(2));

	echo(str("Outside diagonal: ",BaseOutDiagonal));

	//- On-center distance measured along coordinate axis
	// the links are interlaced, so this is half of what you think it should be…

	LinkOC = BaseSide/2 + ThreadWidth;

	LinkSpacing = Diamond ? (sqrt(2)*LinkOC) : LinkOC;
	echo(str("Base spacing: ",LinkSpacing));

	//- Compute how many links fit in sheet

	MinLinksX = ceil((SheetSizeX – (Diamond ? BaseOutDiagonal : BaseSide)) / LinkSpacing);
	MinLinksY = ceil((SheetSizeY – (Diamond ? BaseOutDiagonal : BaseSide)) / LinkSpacing);
	echo(str("MinLinks X: ",MinLinksX," Y: ",MinLinksY));

	NumLinksX = ((0 == (MinLinksX % 2)) && !Diamond) ? MinLinksX + 1 : MinLinksX;
	NumLinksY = ((0 == (MinLinksY % 2) && !Diamond)) ? MinLinksY + 1 : MinLinksY;
	echo(str("Links X: ",NumLinksX," Y: ",NumLinksY));

	//- Armor button base

	ButtonHeight = BaseHeight + BarClearance + CapThick;
	echo(str("ButtonHeight: ",ButtonHeight));

	//- Armor ornament size & shape
	// Fine-tune OD & ID to suit the number of sides…

	TotalHeight = ButtonHeight + ArmorThick;
	echo(str("Overall Armor Height: ",TotalHeight));

	ArmorOD = 1.0 * BaseSide; // tune for best base fit
	ArmorID = 10 * ThreadWidth; // make the tip blunt & strong

	//——-

	module ShowPegGrid(Space = 10.0,Size = 1.0) {

	RangeX = floor(95 / Space);
	RangeY = floor(125 / Space);

	for (x=[-RangeX:RangeX])
	for (y=[-RangeY:RangeY])
	translate([xSpace,ySpace,Size/2])
	%cube(Size,center=true);

	}


	//——-
	// Create link with armor button as needed

	module Link(Topping = false) {

	LinkHeight = (Topping && Cap) ? ButtonHeight : BaseHeight;

	render(convexity=3)
	rotate((BendAround == "X") ? 90 : 0)
	rotate(Diamond ? 45 : 0)
	union() {
	difference() {
	translate([0,0,LinkHeight/2]) // outside shape
	intersection() {
	cube([BaseSide,BaseSide,LinkHeight],center=true);
	rotate(45)
	cube([BaseOutDiagonal,BaseOutDiagonal,(LinkHeight + 2*Protrusion)],center=true);
	}

	translate([0,0,(BaseHeight + BarClearance + 0*ThreadThick – Protrusion)/2])
	intersection() { // inside shape
	cube([(BaseSide – 2*BarWidth),
	(BaseSide – 2*BarWidth),
	(BaseHeight + BarClearance + 0*ThreadThick + (VertexHack ? Protrusion/2 : 0))],
	center=true);
	rotate(45)
	cube([BaseInDiagonal,
	BaseInDiagonal,
	(BaseHeight + BarClearance + 0*ThreadThick + (VertexHack ? Protrusion/2 : 0))],
	center=true);
	}

	translate([0,0,((BarThick + 2*BarClearance)/2 + BarThick)]) // openings for bars
	cube([(BaseSide – 2BarWidth – 2BarWidth/sqrt(2) – (VertexHack ? Protrusion/2 : 0)),
	(2*BaseSide),
	BarThick + 2*BarClearance – Protrusion],
	center=true);

	translate([0,0,(BaseHeight/2 – BarThick)])
	cube([(2*BaseSide),
	(BaseSide – 2BarWidth – 2BarWidth/sqrt(2) – (VertexHack ? Protrusion/2 : 0)),
	BaseHeight],
	center=true);

	}

	if (Topping && Armor)
	translate([0,0,(ButtonHeight – Protrusion)]) // sink slightly into the cap
	rotate(ArmorAngle)
	cylinder(d1=ArmorOD,d2=ArmorID,h=(ArmorThick + Protrusion), $fn=ArmorSides);
	}

	}


	//——-
	// Create split buttons to join sheets

	module Joiner() {

	translate([-LinkSpacing,0,0])
	difference() {
	Link(false);
	translate([0,0,BarThick + BarClearance + TotalHeight/2 – Protrusion])
	cube([2LinkSpacing,2LinkSpacing,TotalHeight],center=true);
	}

	translate([LinkSpacing,0,0])
	intersection() {
	translate([0,0,-(BarThick + BarClearance)])
	Link(true);
	translate([0,0,TotalHeight/2])
	cube([2LinkSpacing,2LinkSpacing,TotalHeight],center=true);
	}

	}


	//——-
	// Build it!

	//ShowPegGrid();

	if (Layout == "Link") {
	Link(false);
	}

	if (Layout == "Button") {
	Link(true);
	}

	if (Layout == "LB") {
	color("Brown") Link(true);
	translate([LinkSpacing,LinkSpacing,0])
	color("Orange") Link(false);
	}

	if (Layout == "Build")
	for (ix = [0:(NumLinksX – 1)],
	iy = [0:(NumLinksY – 1)]) {
	x = (ix – (NumLinksX – 1)/2)*LinkSpacing;
	y = (iy – (NumLinksY – 1)/2)*LinkSpacing;
	translate([x,y,0])
	color([(ix/(NumLinksX – 1)),(iy/(NumLinksY – 1)),1.0])
	if (Diamond)
	Link((ix + iy) % 2); // armor at odd,odd & even,even points
	else
	if ((iy % 2) && (ix % 2)) // armor at odd,odd points
	Link(true);
	else if (!(iy % 2) && !(ix % 2)) // connectors at even,even points
	Link(false);
	}

	if (Layout == "Joiner")
	Joiner();

	if (Layout == "Joiners") {
	NumJoiners = max(MinLinksX,MinLinksY)/2;
	for (iy = [0:(NumJoiners – 1)]) {
	y = (iy – (NumJoiners – 1)/2)2LinkSpacing + LinkSpacing/2;
	translate([0,y,0])
	color([0.5,(iy/(NumJoiners – 1)),1.0])
	Joiner();
	}
	}

	if (Layout == "PillarMod") // Slic3r modification volume to eliminate pillar infill
	translate([0,0,(BaseHeight + BarClearance)/2])
	cube([1.5SheetSizeX,1.5SheetSizeY,BaseHeight + BarClearance],center=true);

view raw Chain Mail Square Armor.scad hosted with ❤ by GitHub

2016-03-30

Knurled Inserts: Epoxy Anchoring

After taking the incandescent lamp socket off its base, I drilled the tapped (yeah, in plastic) 6-32 holes out to a firm press fit for the knurled 6-32 inserts, buttered the inserts with epoxy, and pressed them firmly in place:

Lamp Base – epoxy knurled insert

Fast forward a day and they’re stuck in there like they were glued. You can see a bit of the epoxy around the right rim of the insert; I wiped a bit more off around the other one.

Putting The Right Amount of epoxy on the insert requires dialing back my “The bigger the blob, the better the job” enthusiasm, but wasn’t all that difficult. It’s certainly more tedious than just ramming the inserts into a printed hole and might actually produce better retention. I doubt that will make the least difference for (almost) anything I build.

On the whole, they look good…

2016-03-14
Vacuum Tube LEDs: Octal Tube on a CD

Mounting an octal tube socket in a CD requires nothing more than printing one from the same OpenSCAD code that produced the Noval socket:

Vacuum Tube Lights – octal socket – Slic3r preview

Then apply a 1-1/8 inch Greenleee punch to a randomly chosen scrap CD, match-drill two screw holes, push the knurled inserts into the socket, and screw everything together:

Octal socket in CD – screw detail

I totally forgot about the raised ring around the central hole, so the OpenSCAD source code now moves the screws outward to 47 mm OC for a bit of head clearance. The 6-32 screws don’t look nearly so large next to that big Bakelite base.

The 2.36 mm tube pins fit perfectly into the (square!) socket holes without reaming.

This 6SN7GTB would definitely benefit from a ersatz plate cap with an LED shining down on the mica spacer; fortunately, the getter flash is on the side, not the top. You can see the plate cap atop the adjacent duodecar tube diffracted in the grooves, so a CD “chassis” will add some pizzazz to a rather drab tube:

$Octal socket in CD - LED diffraction$
Octal socket in CD – LED diffraction

In person, you see distinct RGB spots, not a continuous spectrum.

This tube has a completely broken-off base spigot (the keyed cylinder around the evacuation tip), so (I think) more light gets through the base than from a cut-off spigot end. Perhaps the plate cap will add enough light to turn the base LEDs into an accent.

2016-03-09
Vacuum Tube LEDs: Fire in the Noval

Replacing the original Noval socket in the string with the platter-friendly version, bracing the wiring with duct tape, balancing it on my desk, and firing it up:

Noval socket – red phase

The green phase looks nice, too:

Noval socket – green phase

Those screws are too big.

The getter flash covers the entire top of the tube; shining an LED down through the evacuation tip won’t work and even a laser doesn’t do much. That saves me the trouble of trying to create a cap that doesn’t wreck the tube’s good looks.

I originally planned to use white / natural PETG for the socket, but the more I see of those things, the more I think black is the new white. The sockets should vanish into the background, to let the tubes (and their reflections) carry the show.

The (yet to be designed) base must vanish under the platter edge, too, which puts a real crimp on its overall height. I’m not sure how to fit an Arduino Pro Mini and an FTDI board beside the existing socket; perhaps this calls for a unified socket-base design held on by those screws, rather than a separate socket inside a base enclosure.

Even though I know the tubes are inert and cool, I still hesitate before removing them from their sockets with the Neopixels running: you simply do not unplug a hot, powered device!

2016-03-08

Vacuum Tube LEDs: Noval Tube on a Platter

Replacing the hex nut traps with knurled insert cylinders slims the ends of the socket:

Noval Socket - knurled inserts - bottom - Slic3r preview — Noval Socket – knurled inserts – bottom – Slic3r preview

Making the raised part of the socket fit the 25 mm ID of a hard drive platter swells the midsection of the socket~~, but the platter won’t need any machining or punching~~:

Noval Socket - knurled inserts - top - Slic3r preview — Noval Socket – knurled inserts – top – Slic3r preview

The octal and duodecar sockets will require a punch to open up the platter hole and all sockets require two drilled clearance holes for the screws. Given that I’ll eventually do this on the Sherline, maybe milling the hole for the bigger tubes will be faster & easier than manually punching them.

I moved the screw centers to 35 mm (from the historically accurate 28 mm) to accommodate the larger center, not that anybody will ever notice, and enlarged the central hole to 7.5 mm (from 5.0 mm) to let more light into the tube base.

The support structures inside the (now much smaller) knurled insert cylinders might not be strictly necessary, but I left them in place to see how well they built. Which was perfectly, as it turns out, and they popped out with a slight push:

Noval socket - knurled inserts - support structures — Noval socket – knurled inserts – support structures

They’re just the cutest little things (those are 0.100 inch grid squares in the background):

Noval socket - support structures — Noval socket – support structures

Anyhow, the knurled inserts pressed into their holes with a slight shove:

Noval socket - installing knurled insert — Noval socket – installing knurled insert

The chuck jaws were loose on the screw cutoff stud and stopped at the surface, putting the knurled inserts perfectly flush with the socket:

Noval socket - knurled inserts - installed — Noval socket – knurled inserts – installed

The surface looks very slightly distorted around the inserts, although it’s still smooth to the touch, and I think the PETG will slowly relax around the knurls. Even without heat or epoxy, they’re now impossible to pull out with any force I’m willing to apply to the screws threaded into them. Given that the platter screws will (be trying to) pull the inserts through the socket, I think a dry install will suffice for my simple needs.

Match-mark, drill #27 6-32 clearance holes, and the screws drop right in:

Noval socket - installed — Noval socket – installed

Those stainless steel pan-head 6-32 screws seem a bit large in comparison with the socket. Perhaps I should use 4-40 screws, even though they’re not, ahem, historically accurate.

The tube pin holes get hand-reamed with a #53 drill = 1.5 mm. That’s a bit over the nominal 1.1 mm pin diameter, but seems to provide both easy insertion and firm retention. For permanent installation, an adhesive would be in order.

Buff off the fingerprints, stick the tube in place, and it looks pretty good:

Noval socket - tube on platter — Noval socket – tube on platter

Yeah, those screws are too big. Maybe a brace of black M3 socket head screws would look better, despite a complete lack of historicity.

Now to wire it up and ponder how to build a base.

The OpenSCAD source code as a GitHub Gist:

	// Vacuum Tube LED Lights
	// Ed Nisley KE4ZNU February 2016

	Layout = "Socket"; // Cap LampBase USBPort Socket(s) (Build)FinCap
	DefaultSocket = "Noval";

	Section = false; // cross-section the object

	Support = true;

	//- Extrusion parameters must match reality!

	ThreadThick = 0.25;
	ThreadWidth = 0.40;

	HoleWindage = 0.2;

	Protrusion = 0.1; // make holes end cleanly

	inch = 25.4;

	function IntegerMultiple(Size,Unit) = Unit * ceil(Size / Unit);

	//———————-
	// Dimensions
	// https://en.wikipedia.org/wiki/Tube_socket#Summary_of_Base_Details
	// punch & screw OC modified for drive platter chassis plate
	// platter = 25 mm ID

	T_NAME = 0; // common name
	T_NUMPINS = 1; // total, with no allowance for keying
	T_PINBCD = 2; // tube pin circle diameter
	T_PINOD = 3; // … diameter
	T_PINLEN = 4; // … length (overestimate)
	T_HOLEOD = 5; // nominal panel hole from various sources
	T_PUNCHOD = 6; // panel hole optimized for inch-size Greenlee punches
	T_TUBEOD = 7; // envelope or base diameter
	T_PIPEOD = 8; // light pipe from LED to tube base
	T_SCREWOC = 9; // mounting screw holes

	// Name pins BCD dia length hole punch env pipe screw
	TubeData = [
	["Mini7", 8, 9.53, 1.016, 7.0, 16.0, 25.0, 18.0, 5.0, 35.0], // punch 11/16, screw 22.5 OC
	["Octal", 8, 17.45, 2.36, 10.0, 36.2, (8 + 1)/8 * inch, 32.0, 11.5, 39.0],
	["Noval", 10, 11.89, 1.1016, 7.0, 22.0, 25.0 , 21.0, 7.5, 35.0], // punch 7/8, screw 28.0 OC
	["Duodecar", 13, 19.10, 1.05, 9.0, 32.0, (4 + 1)/4 * inch, 38.0, 12.5, 39.0], // aka Compactron
	];

	ID = 0;
	OD = 1;
	LENGTH = 2;

	Pixel = [7.0,10.0,3.0]; // ID = contact patch, OD = PCB dia, LENGTH = overall thickness

	Nut = [3.5,5.2,7.2]; // socket mounting nut recess — threaded insert
	NutSides = 8;

	BaseShim = 2*ThreadThick; // between pin holes and pixel top
	SocketFlange = 2.0; // rim around socket below punchout
	PanelThick = 1.5; // socket extension through punchout

	FinCutterOD = 1/8 * inch;
	FinCapSize = [(Pixel[OD] + 2FinCutterOD),30.0,(10.0 + 2Pixel[LENGTH])];


	//———————-
	// Useful routines

	module PolyCyl(Dia,Height,ForceSides=0) { // based on nophead's polyholes

	Sides = (ForceSides != 0) ? ForceSides : (ceil(Dia) + 2);

	FixDia = Dia / cos(180/Sides);

	cylinder(r=(FixDia + HoleWindage)/2,h=Height,$fn=Sides);
	}

	//———————-
	// Tube cap

	CapTube = [4.0,3/16 * inch,10.0]; // brass tube for flying lead to cap LED

	CapSize = [Pixel[ID],(Pixel[OD] + 3.0),(CapTube[OD] + 2*Pixel[LENGTH])];

	CapSides = 6*4;

	module Cap() {

	difference() {
	union() {
	cylinder(d=CapSize[OD],h=(CapSize[LENGTH]),$fn=CapSides); // main cap body
	translate([0,0,CapSize[LENGTH]]) // rounded top
	scale([1.0,1.0,0.65])
	sphere(d=CapSize[OD]/cos(180/CapSides),$fn=CapSides); // cos() fixes slight undersize vs cylinder
	cylinder(d1=(CapSize[OD] + 23ThreadWidth),d2=CapSize[OD],h=1.5*Pixel[LENGTH],$fn=CapSides); // skirt
	}

	translate([0,0,-Protrusion]) // bore for wiring to LED
	PolyCyl(CapSize[ID],(CapSize[LENGTH] + 3*ThreadThick + Protrusion),CapSides);

	translate([0,0,-Protrusion]) // PCB recess with clearance for tube dome
	PolyCyl(Pixel[OD],(1.5*Pixel[LENGTH] + Protrusion),CapSides);

	translate([0,0,(1.5*Pixel[LENGTH] – Protrusion)]) // small step + cone to retain PCB
	cylinder(d1=(Pixel[OD]/cos(180/CapSides)),d2=Pixel[ID],h=(Pixel[LENGTH] + Protrusion),$fn=CapSides);

	translate([0,0,(CapSize[LENGTH] – CapTube[OD]/(2*cos(180/8)))]) // hole for brass tube holding wire loom
	rotate([90,0,0]) rotate(180/8)
	PolyCyl(CapTube[OD],CapSize[OD],8);
	}

	}

	//———————-
	// Heatsink tube cap


	module FinCap() {

	CableOD = 3.5; // cable + braid diameter
	BulbOD = 3.75 * inch; // bulb OD; use 10 inches for flat

	echo(str("Fin Cutter: ",FinCutterOD));
	FinSides = 2*4;

	BulbRadius = BulbOD / 2;
	BulbDepth = BulbRadius – sqrt(pow(BulbRadius,2) – pow(FinCapSize[OD],2)/4);
	echo(str("Bulb OD: ",BulbOD," recess: ",BulbDepth));

	NumFins = floor(PIFinCapSize[ID] / (2FinCutterOD));
	FinAngle = 360 / NumFins;
	echo(str("NumFins: ",NumFins," angle: ",FinAngle," deg"));

	difference() {
	union() {
	cylinder(d=FinCapSize[ID],h=FinCapSize[LENGTH],$fn=2*NumFins); // main body

	for (i = [0:NumFins – 1]) // fins
	rotate(i * FinAngle)
	hull() {
	translate([FinCapSize[ID]/2,0,0])
	rotate(180/FinSides)
	cylinder(d=FinCutterOD,h=FinCapSize[LENGTH],$fn=FinSides);
	translate([(FinCapSize[OD] – FinCutterOD)/2,0,0])
	rotate(180/FinSides)
	cylinder(d=FinCutterOD,h=FinCapSize[LENGTH],$fn=FinSides);
	}

	rotate(FinAngle/2) // cable entry boss
	translate([FinCapSize[ID]/2,0,FinCapSize[LENGTH]/2])
	cube([FinCapSize[OD]/4,FinCapSize[OD]/4,FinCapSize[LENGTH]],center=true);
	}

	for (i = [1:NumFins – 1]) // fin inner gullets, omit cable entry side
	rotate(i * FinAngle + FinAngle/2) // joint isn't quite perfect, but OK
	translate([FinCapSize[ID]/2,0,-Protrusion])
	rotate(0*180/FinSides)
	cylinder(d=FinCutterOD/cos(180/FinSides),h=(FinCapSize[LENGTH] + 2*Protrusion),$fn=FinSides);

	translate([0,0,-Protrusion]) // PCB recess
	PolyCyl(Pixel[OD],(1.5*Pixel[LENGTH] + Protrusion),FinSides);

	PolyCyl(Pixel[ID],(FinCapSize[LENGTH] – 3*ThreadThick),FinSides); // bore for LED wiring

	translate([0,0,(FinCapSize[LENGTH] – 3ThreadThick – 2CableOD/(2*cos(180/8)))]) // cable inlet
	rotate(FinAngle/2) rotate([0,90,0]) rotate(180/8)
	PolyCyl(CableOD,FinCapSize[OD],8);

	if (BulbOD <= 10.0 * inch) // curve for top of bulb
	translate([0,0,-(BulbRadius – BulbDepth + 2*ThreadThick)]) // … slightly flatten tips
	sphere(d=BulbOD,$fn=16*FinSides);
	}

	}


	//———————-
	// Aperture for USB-to-serial adapter snout
	// These are all magic numbers, of course

	module USBPort() {

	translate([0,28.0])
	rotate([90,0,0])
	linear_extrude(height=28.0)
	polygon(points=[
	[0,0],
	[8.0,0],
	[8.0,4.0],
	// [4.0,4.0],
	[4.0,6.5],
	[-4.0,6.5],
	// [-4.0,4.0],
	[-8.0,4.0],
	[-8.0,0],
	]);
	}


	//———————-
	// Box for Leviton ceramic lamp base

	module LampBase() {

	Bottom = 3.0;
	Base = [4.0inch,4.5inch,20.0 + Bottom];
	Sides = 12*4;

	Retainer = [3.5,11.0,1.0]; // flat fiber washer holding lamp base screws in place

	StudSides = 8;
	StudOC = 3.5 * inch;
	Stud = [Nut[OD], // 6-32 tapped brass insert
	min(15.0,1.5*(Base[ID] – StudOC)/cos(180/StudSides)), // OD = big enough to merge with walls
	(Base[LENGTH] – Retainer[LENGTH])]; // leave room for retainer


	union() {
	difference() {
	rotate(180/Sides)
	cylinder(d=Base[OD],h=Base[LENGTH],$fn=Sides);
	rotate(180/Sides)
	translate([0,0,Bottom])
	cylinder(d=Base[ID],h=Base[LENGTH],$fn=Sides);
	translate([0,-Base[OD]/2,Bottom + 1.2]) // mount on double-sided foam tape
	rotate(0)
	USBPort();
	}
	for (i = [-1,1])
	translate([i*StudOC/2,0,0])
	rotate(180/StudSides)
	difference() {
	cylinder(d=Stud[OD],h=Stud[LENGTH],$fn=StudSides);
	translate([0,0,Bottom])
	PolyCyl(Stud[ID],(Stud[LENGTH] – (Bottom – Protrusion)),6);
	}
	}
	}

	//———————-
	// Tube Socket

	module Socket(Name = DefaultSocket) {

	NumSides = 6*4;

	Tube = search([Name],TubeData,1,0)[0];
	echo(str("Building ",TubeData[Tube][0]," socket"));
	echo(str(" Punch: ",TubeData[ID][T_PUNCHOD]," mm = ",TubeData[ID][T_PUNCHOD]/inch," inch"));
	echo(str(" Screws: ",TubeData[ID][T_SCREWOC]," mm =",TubeData[ID][T_SCREWOC]/inch," inch OC"));

	OAH = Pixel[LENGTH] + BaseShim + TubeData[Tube][T_PINLEN];
	BaseHeight = OAH – PanelThick;

	difference() {
	union() {
	linear_extrude(height=BaseHeight)
	hull() {
	circle(d=(TubeData[Tube][T_PUNCHOD] + 2*SocketFlange),$fn=NumSides);
	for (i=[-1,1])
	translate([i*TubeData[Tube][T_SCREWOC]/2,0])
	circle(d=2.0*Nut[OD],$fn=NumSides);
	}
	cylinder(d=TubeData[Tube][T_PUNCHOD],h=OAH,$fn=NumSides); // boss in chassis punch hole
	}

	for (i=[0:(TubeData[Tube][T_NUMPINS] – 1)]) // tube pins
	rotate(i*360/TubeData[Tube][T_NUMPINS])
	translate([TubeData[Tube][T_PINBCD]/2,0,(OAH – TubeData[Tube][T_PINLEN])])
	rotate(180/4)
	PolyCyl(TubeData[Tube][T_PINOD],(TubeData[Tube][T_PINLEN] + Protrusion),4);

	for (i=[-1,1]) // mounting screw holes & nut traps / threaded inserts
	translate([i*TubeData[Tube][T_SCREWOC]/2,0,-Protrusion]) {
	PolyCyl(Nut[OD],(Nut[LENGTH] + Protrusion),NutSides);
	PolyCyl(Nut[ID],(OAH + 2*Protrusion),NutSides);
	}

	translate([0,0,-Protrusion]) { // LED recess
	PolyCyl(Pixel[OD],(Pixel[LENGTH] + Protrusion),8);
	}

	translate([0,0,(Pixel[LENGTH] – Protrusion)]) { // light pipe
	rotate(180/TubeData[Tube][T_NUMPINS])
	PolyCyl(TubeData[Tube][T_PIPEOD],(OAH + 2*Protrusion),TubeData[Tube][T_NUMPINS]);
	}
	}

	// Totally ad-hoc support structures …

	if (Support) {
	color("Yellow") {
	for (i=[-1,1]) // nut traps
	translate([i*TubeData[Tube][T_SCREWOC]/2,0,(Nut[LENGTH] – ThreadThick)/2])
	for (a=[0:5])
	rotate(a*30 + 15)
	cube([2ThreadWidth,0.9Nut[OD],(Nut[LENGTH] – ThreadThick)],center=true);

	if (Pixel[OD] > TubeData[Tube][T_PIPEOD]) // support pipe only if needed
	translate([0,0,(Pixel[LENGTH] – ThreadThick)/2])
	for (a=[0:7])
	rotate(a*22.5)
	cube([2ThreadWidth,0.9Pixel[OD],(Pixel[LENGTH] – ThreadThick)],center=true);

	}
	}

	}

	//———————-
	// Build it

	if (Layout == "Cap") {
	if (Section)
	difference() {
	Cap();
	translate([-CapSize[OD],0,CapSize[LENGTH]])
	cube([2CapSize[OD],2CapSize[OD],3*CapSize[LENGTH]],center=true);
	}
	else
	Cap();
	}

	if (Layout == "FinCap") {
	if (Section) render(convexity=5)
	difference() {
	FinCap();
	// translate([0,-FinCapSize[OD],FinCapSize[LENGTH]])
	// cube([2FinCapSize[OD],2FinCapSize[OD],3*FinCapSize[LENGTH]],center=true);
	translate([-FinCapSize[OD],0,FinCapSize[LENGTH]])
	cube([2FinCapSize[OD],2FinCapSize[OD],3*FinCapSize[LENGTH]],center=true);
	}
	else
	FinCap();
	}

	if (Layout == "BuildFinCap")
	translate([0,0,FinCapSize[LENGTH]])
	rotate([180,0,0])
	FinCap();

	if (Layout == "LampBase")
	LampBase();

	if (Layout == "USBPort")
	USBPort();

	if (Layout == "Socket")
	if (Section) {
	difference() {
	Socket();
	translate([-100/2,0,-Protrusion])
	cube([100,50,50],center=false);
	}
	}
	else
	Socket();

	if (Layout == "Sockets") {
	translate([0,50,0])
	Socket("Mini7");
	translate([0,20,0])
	Socket("Octal");
	translate([0,-15,0])
	Socket("Duodecar");
	translate([0,-50,0])
	Socket("Noval");
	}

view raw Vacuum Tube Lights.scad hosted with ❤ by GitHub

2016-03-07

Improved Lip Balm / Lipstick Holder

Mary asked for a less angular version of the Lip Balm Holder, which gave me a chance to practice my list comprehension:

You hand the OpenSCAD program a list of desired tube diameters in the order you want them, the program plunks the first one (ideally, the largest diameter) in the middle, arranges the others around it counterclockwise from left to right, then slips a lilypad under each tube.

As long as you don’t ask for anything egregiously stupid, the results look reasonably good:

Improved Lipstick and Balm Holder - 8 tubes — Improved Lipstick and Balm Holder – 8 tubes

As before, each tube length is 1.5 times its diameter; the lipsticks / balms fit loosely and don’t flop around.

Given the tube diameters and the wall thickness, list comprehensions simplify creating lists of the radii from the center tube to each surrounding tube, the center-to-center distances between each of the outer tubes, and the angles between successive tubes:

// per-tube info, first element forced to 0 to make entries match RawDia vector indexes

Radius = [0, for (i=[1:NumTubes-1]) (TubeRad[0] + TubeRad[i] + Wall)];			// Tube[i] distance to center pointRadius = [0, for (i=[1:NumTubes-1]) (TubeRad[0] + TubeRad[i] + Wall)];			// Tube[i] distance to center point
echo(str("Radius: ",Radius));

CtrToCtr = [0, for (i=[1:NumTubes-2]) (TubeRad[i] + TubeRad[i+1] + Wall)];		// Tube[i] distance to Tube[i+1]
echo(str("CtrToCtr: ",CtrToCtr));

Angle = [0, for (i=[1:NumTubes-2]) acos((pow(Radius[i],2) + pow(Radius[i+1],2) - pow(CtrToCtr[i],2)) / (2 * Radius[i] * Radius[i+1]))];
echo(str("Angle: ",Angle));

TotalAngle = sumv(Angle,len(Angle)-1);
echo(str("TotalAngle: ",TotalAngle));

The angles come from the oblique triangle solution when you know all three sides (abc) and want the angle (C) between a and b:

C = arccos( (a² + b² - c²) / (2ab) )

Peering down inside, the Slic3r preview shows the lily pads are the tops of squashed spheres:

Improved Lipstick and Balm Holder - Slic3r preview — Improved Lipstick and Balm Holder – Slic3r preview

The pads are 2.0 times the tube diameter, which seemed most pleasing to the eye. They top out at 2.0 mm thick, which might make the edges too thin for comfort.

Update: Here’s what it looks like with a convex hull wrapped around all the lilypads:

Improved Lipstick and Balm Holder - hulled base — Improved Lipstick and Balm Holder – hulled base

I’m awaiting reports from My Spies concerning the typical diameter(s) of lipstick tubes, then I’ll run off a prototype and see about the lily pad edges.

The OpenSCAD source code as a GitHub gist:

	// Lipstick and Balm Tube Holder
	// Ed Nisley KE4ZNU – February 2016

	//- Extrusion parameters – must match reality!

	ThreadThick = 0.25;
	ThreadWidth = 0.40;

	function IntegerMultiple(Size,Unit) = Unit * ceil(Size / Unit);

	Protrusion = 0.1;

	HoleWindage = 0.2;

	//——
	// Dimensions

	RawDia = [26,21,19,17,19,21]; // actual tube diameters in desired order, center = largest first
	NumTubes = len(RawDia);

	Clearance = 2.0;

	TubeDia = [for (i=[0:NumTubes-1]) (RawDia[i] + Clearance)]; // actual tube diameters
	TubeRad = TubeDia / 2;

	echo(str("NumTubes: ",NumTubes));

	Wall = 2.0;

	BaseThick = 2.0;
	BaseFactor = 2.0;

	NumSides = 8*4;

	// per-tube info, first element forced to 0 to make entries match RawDia vector indexes

	Radius = [0, for (i=[1:NumTubes-1]) (TubeRad[0] + TubeRad[i] + Wall)]; // Tube[i] distance to center point
	echo(str("Radius: ",Radius));

	CtrToCtr = [0, for (i=[1:NumTubes-2]) (TubeRad[i] + TubeRad[i+1] + Wall)]; // Tube[i] distance to Tube[i+1]
	echo(str("CtrToCtr: ",CtrToCtr));

	Angle = [0, for (i=[1:NumTubes-2]) acos((pow(Radius[i],2) + pow(Radius[i+1],2) – pow(CtrToCtr[i],2)) / (2 * Radius[i] * Radius[i+1]))];
	echo(str("Angle: ",Angle));

	TotalAngle = sumv(Angle,len(Angle)-1);
	echo(str("TotalAngle: ",TotalAngle));


	//———————-
	// Useful routines

	// vector sum cribbed from doc

	function sumv(v,i,s=0) = (i==s ? v[i] : v[i] + sumv(v,i-1,s));

	//———————-
	//- Build it

	for (i=[0:NumTubes-1])
	rotate(90 – TotalAngle/2 + sumv(Angle, (i>0) ? (i-1) : 0))
	translate([Radius[i],0,0]) {
	resize([0,0,2*BaseThick]) // bases
	difference() {
	sphere(r=BaseFactor*TubeRad[i],$fn=NumSides);
	translate([0,0,-BaseFactor*TubeDia[i]])
	cube(2BaseFactorTubeDia[i],center=true);
	}
	difference() { // tubes
	cylinder(r=TubeRad[i] + Wall,h=1.5*TubeDia[i] + BaseThick,$fn=NumSides);
	cylinder(d=TubeDia[i],h=1.5*TubeDia[i] + BaseThick + Protrusion,$fn=NumSides);
	}
	}

view raw Improved Lipstick and Balm Holder.scad hosted with ❤ by GitHub

2016-02-23

Knurled Inch Inserts
Tagging along behind the metric inserts, a sack of knurled brass inch-size screw inserts arrived:

Threaded Inserts – metric and inch

The nice stainless steel screws on the right range from 4-40 to 10-32, which suffice for nearly everything I build around here.

Unlike the splined metric inserts on the left, these inserts have actual knurls and ridges that should hold them firmly in place. The specs give hard-inch dimensions, of course, that (seem to) correspond to the root diameter of the knurls. You can find nice engineering drawings of precise tapered holes (by drilling down into the Heat-Set Inserts for Plastics item on that page), but a few metric measurements of the actual parts on hand should suffice for my simple needs.

Thread: overall length x small rim OD x (knurl length x larger knurl OD)
- 4-40: 5.8 x 3.9 x (4.0 x 4.6)
- 6-32: 7.1 x 4.7 x (4.6 x 5.5)
- 8-32: 8.1 x 5.5 x (5.9 x 6.3)
- 10-32: 9.5 x 6.3 x (7.0 x 7.1)
Rather than fussing with a tapered hole, just punch a cylinder with the small rim OD (to clear the screw) through the part and put a cylinder with the knurl OD x length at the surface.

Using cylinders without diameter correction will make them slightly undersized for heat bonding. The usual 3D printing tolerances don’t justify anything fussier than that.

Using PolyCyl diameter correction will make the holes nearly spot on for epoxy bonding: butter ’em up, ram ’em in, pause for curing, done.

That’s the plan, anyhow…
2016-02-16

Tag: M2

Square Chain Mail Armor: Back From The Abyss

Knurled Inserts: Epoxy Anchoring

Vacuum Tube LEDs: Octal Tube on a CD

Vacuum Tube LEDs: Fire in the Noval

Vacuum Tube LEDs: Noval Tube on a Platter

Improved Lip Balm / Lipstick Holder

Knurled Inch Inserts