User:Mths/sdr ldr
Helmet #1
helmet #1 is a surround light to sound converting apparatus,
that plays with the spatial perception of the user.
11 speakers are mounted on a grid, with the form of a icosahedron, around the head.
on each vertex of the structure
is a small oscillator circuit attached
that converts with ldrs light into sound.
video
Circuit
Reverse bias Oscillator. Only a battery, one capacitor, one transistor, one lightresistor and a small speaker are necessary.
Code
Code for creation of a vertex in OPENSCAD
hoehe2 = 18;
hoehe = -8;
abstand = 10;
laengestab = 10;
wert = 200;
winkel = 58.2;
//31,8
//69.1
module test001()
{
union() {
difference() {
union() {
cylinder(r = 20,h = 13, center = true,$fn=wert);
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 7, h = laengestab, center = true,$fn=wert);
rotate(72, [0, 0, 1])
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 7, h = laengestab, center = true,$fn=wert);
rotate(144, [0, 0, 1])
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 7, h = laengestab, center = true,$fn=wert);
rotate(216, [0, 0, 1])
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 7, h = laengestab, center = true,$fn=wert);
rotate(288, [0, 0, 1])
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 7, h = laengestab, center = true,$fn=wert);
}
union() {
translate([0,0,2])
rotate(90, [0, 0, 0])
cylinder(r = 11.1, h = 9, center = true,$fn=wert);
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 3.25, h = laengestab, center = true,$fn=wert);
rotate(72, [0, 0, 1])
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 3.25, h = laengestab, center = true,$fn=wert);
rotate(144, [0, 0, 1])
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 3.25, h = laengestab, center = true,$fn=wert);
rotate(216, [0, 0, 1])
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 3.25, h = laengestab, center = true,$fn=wert);
rotate(288, [0, 0, 1])
rotate(winkel, [1, 0, 0])
translate([0,hoehe,hoehe2])
cylinder(r = 3.25, h = laengestab, center = true,$fn=wert);
}
}
}
}
test001();