Category: Electronics Workbench

Electrical & Electronic gadgets

Vacuum Tube LEDs: Ersatz Tube Sockets

Even vacuum tubes destined to be decorations need sockets:

Vacuum Tube Bases - solid models — Vacuum Tube Bases – solid models

They’re entirely plastic, of course, but they match the dimensions of “real” tube sockets pretty closely. The bosses around the pins have hard-inch dimensions, so you (well, I) can unleash Genuine Greenlee Radio Chassis Punches on sheet metal.

All the key dimensions come from a table, so you can build whatever sockets you need. These four seem to cover the most common relics of the Hollow State Empire:

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,        11/16 * inch,  18.0,  5.0, 22.5],
    ["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,          7/8 * inch,  21.0,  5.0, 28.0],
    ["Duodecar", 13,   19.10, 1.05,    9.0,  32.0,         1.25 * inch,  38.0, 12.5, 39.0],
];

Given that the tubes lack electrical connections, I omitted the base keying: plug them in for best visual effect.

The hole through the middle passes light from a knockoff Neopixel on a 10 mm OD PCB:

Vacuum Tube LEDs - Octal base - top — Vacuum Tube LEDs – Octal base – top

Seen from the bottom, each base traps a pair of 6-32 nuts for chassis mounting and has a Neopixel press-fit in the middle:

Vacuum Tube LEDs - Duodecar base - bottom — Vacuum Tube LEDs – Duodecar base – bottom

Those recesses require support structures:

Vacuum Tube Bases - solid models - support — Vacuum Tube Bases – solid models – support

The Miniature 7-pin socket has the least space for the 10 mm OD Neopixel PCB and shows the thin layer between the bottom of the pin holes and the top of the openings.

Vacuum Tube Base - Mini7 - solid model section — Vacuum Tube Base – Mini7 – solid model section

You see half of the eight holes in the “7 pin” socket, because it has the eighth hole where a standard socket has a gap between pins 1 and 7.

Somewhat to my surprise, punching the support spiders out with a 6-32 stud (grabbed in the drill press) worked perfectly:

Vacuum Tube Base - nut trap overhang - detail — Vacuum Tube Base – nut trap overhang – detail

They look like I intended to build tiny decorations:

Vacuum Tube Base - support structure - detail — Vacuum Tube Base – support structure – detail

The cookies held on tenuously, then released with a loud bang! as I gradually increased the pressure. A PETG support structure in a blind recess wouldn’t pop out nearly so well.

The OpenSCAD source code as a GitHub gist:

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

	Layout = "Sockets"; // Cap LampBase USBPort Socket(s)

	Section = true; // 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

	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, 11/16 * inch, 18.0, 5.0, 22.5],
	["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, 7/8 * inch, 21.0, 5.0, 28.0],
	["Duodecar", 13, 19.10, 1.05, 9.0, 32.0, 1.25 * inch, 38.0, 12.5, 39.0],
	];

	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,8.0,3.0]; // socket mounting nut recess

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

	//———————-
	// 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);
	}

	}

	//———————-
	// 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 = [0.107 * inch, // 6-32 mounting screws
	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 = "Mini7") {

	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*Nut[OD],$fn=NumSides);
	}
	cylinder(d=TubeData[Tube][T_PUNCHOD],h=OAH,$fn=NumSides);
	}

	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
	translate([i*TubeData[Tube][T_SCREWOC]/2,0,-Protrusion]) {
	PolyCyl(Nut[OD],(Nut[LENGTH] + Protrusion),6);
	PolyCyl(Nut[ID],(OAH + 2*Protrusion),6);
	}

	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 == "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-02-10

Raspberry Pi Model B+ Reset Connector

Turns out Raspberry Pi boards have provision for a Reset switch, but you gotta dig for it. On the Model B+, it’s labeled RUN:

Raspberry Pi BPlus – RUN header

Soldering in that 2-pin header and plugging a pushbutton switch on a short cable will suffice until I get around to thinking of / scrounging a suitable case.

Poking the button forces a power-on reset, which you shouldn’t do with the RPi running, lest you trash the filesystem. After shutting down with sudo halt, however, the switch does exactly what’s needed: restarts the CPU from scratch.

The RPi draws little enough power that there’s no point in actually pulling the plug; stressing that Micro-B connector is definitely a Bad Idea.

2016-02-07
Hollow State Electronics: Desk Decorations

I did a lightning talk / show-n-tell last Tuesday at the MHV LUG meeting and covered one end of a table with the Neopixel-lit bulbs & vacuum tubes & hard drive platters I’ve been playing with:

MHVLUG – Hollow State Decorations – Lightning Talk

Some of the posts won’t go live for a week, but here’s a peek into the future:

Vacuum Tube LEDs – IBM 21HB5A Beam Power Tube – violet amber phase

Dang, that came out well…

2016-02-06
Vacuum Tube LEDs: Halogen Lamp Success

The Neopixel-illuminated halogen lamp looks much, much better than I expected:

Vacuum Tube LEDs – halogen lamp – red phase

The ceramic ring screws down around the socket shell and pulls it up against the base; the threads have only as much precision as required to keep it from falling off. I may need to add a leveling shim just so I don’t have to explain why it’s always crooked.

2016-02-05

Monthly Science: Hard Drive Mood Light Thermal Coefficient

Having that knockoff Neopixel fail from overheating prompted me to measure what was going on. Because the LEDs sink most of their heat into the package leads, the back of the LED strip should be the hottest part of the package and the Mood Light’s central pillar should be pretty nearly isothermal. Despite that, I figured I should measure the temperature closer to the back of the strip, sooo I drilled a hole for the thermocouple…

Clamp the whole Mood Light to the Sherline’s tooling plate with the pillar sides mostly square to the axes and line up the spindle 2 mm behind the LED strip:

Mood Light - aligning thermocouple hole — Mood Light – aligning thermocouple hole

The two clamp pads are CD chunks, under just enough pressure to anchor the Mood Light.

Screw the cap in place (to match-drill both holes at once) and drill a 2 mm (#46, close enough) hole down past the top LED:

Mood Light - drilling thermocouple hole — Mood Light – drilling thermocouple hole

I tucked the Mood Light into a box to ward off breezes, jammed one thermocouple into the new hole, let another float over the top platter, then forced the Neopixels to display constant grayscale PWM values (R=G=B) while recording the LED and air temperatures every five minutes:

Hard Drive Mood Light - temp vs power data — Hard Drive Mood Light – temp vs power data

That was easier and faster than screwing around with automated data collection. The data has some glaring gaps where I went off to do other things during the day.

I turned those numbers into a graph, printed it out, puzzled over it for a bit, then annotated it with useful numbers:

Hard Drive Mood Light - temp vs power data - graph — Hard Drive Mood Light – temp vs power data – graph

That first little blip over on the left comes from a minute or two at PWM 32; the cooling time constant works out to be a bit under 10 minutes. The warming time constant looks to be somewhat longer, but not by much.

Eyeballing the endpoint temperatures for each PWM value, feeding in the current measurements, and creating a small table:

VCC	5	V
Current	0.057	A
Package	0.285	W
Total	3.42	W
PWM	Duty	Nom Power	Failed LEDs	Net Power	°C Rise
0	0.00	0.00	0	0.00	0
32	0.13	0.43	0	0.43	6
64	0.25	0.86	0	0.86	12
85	0.33	1.14	1	1.04	16
128	0.50	1.71	1	1.62	24
192	0.75	2.57	1	2.47	35
255	1.00	3.41	4	3.03	42

The same blue LED that failed earlier dropped out again, plus another package (on a different strip) went completely dark shortly after I clobbered the LEDs with full power at PWM 255. The Net Power column deducts the power not used by the failed LEDs, under the reasonable assumption that the total heating depends on the number of active LEDs.

All the failed LEDs worked fine when they cooled to room temperature, so, whatever the failure mode might be, it’s not permanent. The skimpy WS2812B datasheet says bupkis about a protective thermal shutdown circuit, although it specs an 80 °C maximum operating junction temperature. I’ll stipulate a 20 °C temperature difference from junction to thermocouple at PWM 255, but that doesn’t explain the first blue LED failure at PWM 85.

Methinks these knockoffs will be much happier operating in the mid-30s.

Turning the last two columns of that table into a graph (minus the PWM 0 line to let the intercept float around) looks like I’m faking it:

Hard Drive Mood Light - Temperature vs Power — Hard Drive Mood Light – Temperature vs Power

The Y intercept is off by less than 1 °C, which seems pretty good under the circumstances. The kink at PWM 85 shows that I probably didn’t allow enough time for the temperature to stabilize after the blue LED failed.

So, in round numbers, the thermal coefficient for a dozen knockoff Neopixels on a plastic pillar inside a stack of hard drive platters works out to 14 °C/W.

The raised sine waves in the Mood Light produce a long-term average PWM half of their maximum PWM. They’ve been perfectly happy with MaxPWM = 64 pushing them barely 6 °C over ambient, so they should continue to work fine at PWM 128 for a 12 °C rise… except, perhaps, during the hottest of mid-summer days.

Obviously, I should jam a thermistor inside the column and have the Arduino wrap a feedback loop around the column temperature…

2016-02-01

Vacuum Tube LEDs: Halogen Lamp Base

This lamp needs a base for its (minimal) electronics:

Vacuum Tube LEDs - plate lead - overview — Vacuum Tube LEDs – plate lead – overview

The solid model won’t win many stylin’ points:

Vacuum Tube Lights - lamp base solid model — Vacuum Tube Lights – lamp base solid model

It’s big and bulky, with a thick wall and base, because that ceramic lamp socket wants to screw down onto something solid. The screw holes got tapped 6-32, the standard electrical box screw size.

The odd little hole on the far side accommodates a USB-to-serial adapter that both powers the lamp and lets you reprogram the Arduino Pro Mini without tearing the thing apart:

Vacuum Tube Lights - USB adapter cutout — Vacuum Tube Lights – USB adapter cutout

The sloped roof makes the hole printable in the obvious orientation:

Lamp Base - USB port — Lamp Base – USB port

There’s an ugly story behind the horizontal line just above the USB adapter that I’ll explain in a bit.

The adapter hole begins 1.2 mm above the interior floor to let the adapter sit on a strip of double-sticky foam tape. I removed the standard header socket and wired the adapter directly to the Arduino Pro Mini with 24 AWG U-wires:

Lamp Base - interior — Lamp Base – interior

I didn’t want to use pin connectors on the lamp cable leads, but without those you (well, I) can’t take the base off without un-/re-soldering the wires in an awkward location; the fact that I hope to never take it apart is irrelevant. Next time, I’ll use a longer wire from the plate cap and better connectors, but this was a trial fit that became Good Enough for the purpose.

And then It Just Worked… although black, rather than cyan, plastic would look spiffier.

Bluish phases look icy cold:

Vacuum Tube LEDs - halogen lamp - purple phase — Vacuum Tube LEDs – halogen lamp – purple phase

Reddish phases look Just Right for a hot lamp:

Vacuum Tube LEDs - halogen lamp - red phase — Vacuum Tube LEDs – halogen lamp – red phase

A ring of white double sided foam tape now holds the plate cap in place; that should be black, too.

The OpenSCAD source code adds the base to the plate cap as a GitHub gist:

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

	Layout = "LampBase"; // Show Build Cap LampBase USBPort

	Section = true; // cross-section the object

	//- 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);


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

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


	//———————-
	// 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);
	}

	}

	//———————-
	// 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 = 5.0;
	Base = [3.75inch,4.5inch,25.0 + Bottom];
	Sides = 12*4;

	Stud = [0.107 * inch,15.0,Base[LENGTH]]; // 6-32 mounting screws, OD = ceramic boss size
	StudOC = 3.5 * inch;

	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/8)
	difference() {
	cylinder(d=Stud[OD],h=Stud[LENGTH],$fn=8);
	translate([0,0,Bottom])
	PolyCyl(Stud[ID],(Stud[LENGTH] – (Bottom – Protrusion)),6);
	}
	}
	}


	//———————-
	// 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 == "LampBase")
	LampBase();

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

	if (Layout == "Build") {
	Cap();
	Spigot();
	}

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

2016-01-29

Vacuum Tube LEDS: Neopixel Plate Cap

[Edit: Welcome Hackaday! You might prefer real vacuum tubes; searching for “vacuum tube leds” will turn up more posts about this long-running project. And, yes, I lit up a tube, just for old time’s sake, and have some plans for that huge triode.]

A single (knockoff) Neopixel hovers over a defunct halogen bulb:

The Arduino code comes from stripping down the Hard Drive Platter Mood Light to suit just one Neopixel, with the maximum PWM values favoring the red-blue-purple end of the color wheel:

	Pixels[RED].Prime = 3;
	Pixels[GREEN].Prime = 5;
	Pixels[BLUE].Prime = 7;
	printf("Primes: (%d,%d,%d)\r\n",Pixels[RED].Prime,Pixels[GREEN].Prime,Pixels[BLUE].Prime);

	Pixels[RED].MaxPWM = 255;
	Pixels[GREEN].MaxPWM = 64;
	Pixels[BLUE].MaxPWM = 255;

Unlike the Mood Light’s dozen Neopixels jammed into the platter’s hub ring, running one Neopixel at full throttle atop the tube doesn’t overheat the poor controller. In a 22 °C room, PWM 255 white raises the cap’s interior temperature to 35 °C, which looks like a horrific 40 °C/W thermal coefficient if you figure the dissipation at 300 mW = 5 V x 60 mA.

Feeding those parameters into the raised sine wave equation causes the cap to tick along at 27 °C for an average dissipation of 120 mW, which sounds about right:

113 mW = 5 V x (20 + 20 + 5 mA) / 2

The effect is striking in a dark room, but it’s hard to photograph; the halogen capsule inside the bulb resembles a Steampunk glass jellyfish:

Vacuum Tube LEDs - plate lead - detail — Vacuum Tube LEDs – plate lead – detail

That ceramic light socket should stand on a round base with room for the Arduino controller. I think powering it from a wall wart through a USB cable makes sense, with a USB-to-serial converter epoxied inside the box for reprogramming.

It looks pretty good, methinks, should you like that sort of thing.

The Arduino source code as a GitHub gist:

	// Neopixel mood lighting for vacuum tubes
	// Ed Nisley – KE4ANU – January 2016

	#include <Adafruit_NeoPixel.h>

	//———-
	// Pin assignments

	const byte PIN_NEO = 6; // DO – data out to first Neopixel

	const byte PIN_HEARTBEAT = 13; // DO – Arduino LED

	//———-
	// Constants

	#define UPDATEINTERVAL 25ul
	const unsigned long UpdateMS = UPDATEINTERVAL – 1ul; // update LEDs only this many ms apart minus loop() overhead

	// number of steps per cycle, before applying prime factors
	#define RESOLUTION 100

	// want to randomize the startup a little?
	#define RANDOMIZE true

	//———-
	// Globals

	// instantiate the Neopixel buffer array

	Adafruit_NeoPixel strip = Adafruit_NeoPixel(1, PIN_NEO, NEO_GRB + NEO_KHZ800);

	uint32_t FullWhite = strip.Color(255,255,255);
	uint32_t FullOff = strip.Color(0,0,0);

	struct pixcolor_t {
	byte Prime;
	unsigned int NumSteps;
	unsigned int Step;
	float StepSize;
	byte MaxPWM;
	};

	unsigned int PlatterSteps;

	// colors in each LED
	enum pixcolors {RED, GREEN, BLUE, PIXELSIZE};

	struct pixcolor_t Pixels[PIXELSIZE]; // all the data for each pixel color intensity

	unsigned long MillisNow;
	unsigned long MillisThen;

	//– Figure PWM based on current state

	byte StepColor(byte Color, float Phi) {

	byte Value;

	Value = (Pixels[Color].MaxPWM / 2.0) * (1.0 + sin(Pixels[Color].Step * Pixels[Color].StepSize + Phi));

	// Value = (Value) ? Value : Pixels[Color].MaxPWM; // flash at dimmest points

	return Value;
	}


	//– Helper routine for printf()

	int s_putc(char c, FILE *t) {
	Serial.write(c);
	}

	//——————
	// Set the mood

	void setup() {

	pinMode(PIN_HEARTBEAT,OUTPUT);
	digitalWrite(PIN_HEARTBEAT,LOW); // show we arrived

	Serial.begin(57600);
	fdevopen(&s_putc,0); // set up serial output for printf()

	printf("Vacuum Tube Mood Light with Neopixels\r\nEd Nisley – KE4ZNU – January 2016\r\n");

	/// set up Neopixels

	strip.begin();
	strip.show();

	// lamp test: a brilliant white dot

	printf("Lamp test: flash white\r\n");

	for (byte i=0; i<3 ; i++) {
	for (int j=0; j < strip.numPixels(); j++) { // fill LEDs with white
	strip.setPixelColor(j,FullWhite);
	}
	strip.show();
	delay(500);

	for (int j=0; j < strip.numPixels(); j++) { // fill LEDs with black
	strip.setPixelColor(j,FullOff);
	}
	strip.show();
	delay(500);
	}

	// set up the color generators

	MillisNow = MillisThen = millis();
	if (RANDOMIZE)
	randomSeed(MillisNow + analogRead(7));
	else
	printf("Start not randomized\r\n");
	printf("First random number: %ld\r\n",random(10));

	Pixels[RED].Prime = 3;
	Pixels[GREEN].Prime = 5;
	Pixels[BLUE].Prime = 7;
	printf("Primes: (%d,%d,%d)\r\n",Pixels[RED].Prime,Pixels[GREEN].Prime,Pixels[BLUE].Prime);

	Pixels[RED].MaxPWM = 255;
	Pixels[GREEN].MaxPWM = 64;
	Pixels[BLUE].MaxPWM = 255;

	for (byte c=0; c < PIXELSIZE; c++) {
	Pixels[c].NumSteps = RESOLUTION * (unsigned int) Pixels[c].Prime;
	Pixels[c].Step = (RANDOMIZE) ? random(Pixels[c].NumSteps) : (3*Pixels[c].NumSteps)/4;
	Pixels[c].StepSize = TWO_PI / Pixels[c].NumSteps; // in radians per step

	printf("c: %d Steps: %d Init: %d",c,Pixels[c].NumSteps,Pixels[c].Step);
	printf(" PWM: %d\r\n",Pixels[c].MaxPWM);
	}


	}

	//——————
	// Run the mood

	void loop() {

	MillisNow = millis();
	if ((MillisNow – MillisThen) > UpdateMS) {
	digitalWrite(PIN_HEARTBEAT,HIGH);

	for (byte c=0; c < PIXELSIZE; c++) { // step to next increment in each color
	if (++Pixels[c].Step >= Pixels[c].NumSteps) {
	Pixels[c].Step = 0;
	printf("Cycle %d steps %d at %8ld delta %ld ms\r\n",c,Pixels[c].NumSteps,MillisNow,(MillisNow – MillisThen));
	}
	}

	byte Value[PIXELSIZE];
	for (byte c=0; c < PIXELSIZE; c++) { // … for each color
	Value[c] = StepColor(c,0.0); // figure new PWM value
	// Value[c] = (c == RED && Value[c] == 0) ? Pixels[c].MaxPWM : Value[c]; // flash highlight for tracking
	}
	uint32_t UniColor = strip.Color(Value[RED],Value[GREEN],Value[BLUE]);
	for (int j=0; j < strip.numPixels(); j++) { // fill LEDs with color
	strip.setPixelColor(j,UniColor);
	}
	strip.show();

	MillisThen = MillisNow;
	digitalWrite(PIN_HEARTBEAT,LOW);
	}

	}

view raw TubeMood.ino hosted with ❤ by GitHub

2016-01-27

Category: Electronics Workbench

Vacuum Tube LEDs: Ersatz Tube Sockets

Raspberry Pi Model B+ Reset Connector

Hollow State Electronics: Desk Decorations

Vacuum Tube LEDs: Halogen Lamp Success

Monthly Science: Hard Drive Mood Light Thermal Coefficient

Vacuum Tube LEDs: Halogen Lamp Base

Vacuum Tube LEDS: Neopixel Plate Cap