I'm going to avoid doing too many 3D printed projects because not everyone has access to a 3D printer. The openscad script is down below. I used natural/transparent PLA.
Main openSCAD website here:-
https://www.openscad.org/
To find the slow colour change RGB LEDs:-
https://www.ebay.com/sch/i.html?_from=R40&_nkw=100pcs+5mm+diffused+led+rgb+slow&_sacat=0&_sop=15
If you enjoy these videos you can help support the channel with a dollar for coffee, cookies and random gadgets for disassembly at:-
http://www.bigclive.com/coffee.htm
This also keeps the channel independent of YouTube's advertising algorithms allowing it to be a bit more dangerous and naughty.
Copy and paste the script below into openscad to make a crystal.
//Big Clive 21/Jan/2020 LED quartz
difference(){
union(){
difference(){
union(){
//six sub crystals
rotate([45, 0, 0])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 0])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 60])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 60])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 120])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 120])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 180])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 180])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 240])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 240])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 300])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 300])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
//main central crystal
translate([0, 0, 0])
cylinder(h =100, d1 = 50,d2 = 20,$fn=6);
//main crystal tip
translate([0, 0, 100])
cylinder(h =10,d1=20,d2=0,$fn=6);
}
//remove central crystal core
translate([0, 0, -1])
cylinder(h =101.1, d1 = 48,d2 = 18,$fn=6);
//remove centre crystal tip
translate([0, 0, 100])
cylinder(h =9,d1=18,d2=0,$fn=6);
//six sub crystal core removal
rotate([45, 0, 0])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 0])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 60])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 60])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 120])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 120])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 180])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 180])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 240])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 240])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 300])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 300])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
}
//Second solid additions
//Add base cone
translate([0,0,3])
cylinder(h =45, d1 = 100,d2 = 7,$fn=6);
//led plinths
rotate([45, 0, 0])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 60])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 120])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 180])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 240])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 300])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
//cable entry
translate([0,-35,10])
rotate([45, 0, 0])
sphere (d=10,$fn=20);
}
//Second removals
//Inner base area
translate([0,0,2])
cylinder(h =45, d1 = 100,d2 = 6,$fn=6);
//base removal cube
translate([-50,-50,-47])
cube ([100,100,50]);
//LED hole removal
rotate([45, 0, 0])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 60])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 120])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 180])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 240])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 300])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
//main pillar LED hole
translate([0,0,40])
cylinder(h =10,d1=5,d2=5,$fn=20);
//cable entry
translate([0,-35,10])
rotate([45,0,0])
cylinder(h =20, d1 = 4,d2 = 4,$fn=20);
}
Main openSCAD website here:-
https://www.openscad.org/
To find the slow colour change RGB LEDs:-
https://www.ebay.com/sch/i.html?_from=R40&_nkw=100pcs+5mm+diffused+led+rgb+slow&_sacat=0&_sop=15
If you enjoy these videos you can help support the channel with a dollar for coffee, cookies and random gadgets for disassembly at:-
http://www.bigclive.com/coffee.htm
This also keeps the channel independent of YouTube's advertising algorithms allowing it to be a bit more dangerous and naughty.
Copy and paste the script below into openscad to make a crystal.
//Big Clive 21/Jan/2020 LED quartz
difference(){
union(){
difference(){
union(){
//six sub crystals
rotate([45, 0, 0])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 0])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 60])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 60])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 120])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 120])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 180])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 180])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 240])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 240])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
rotate([45, 0, 300])
cylinder(h =80, d1 = 30,d2 = 20,$fn=6);
rotate([45, 0, 300])
translate([0,0,80])
cylinder(h =10, d1 = 20,d2 = 0,$fn=6);
//main central crystal
translate([0, 0, 0])
cylinder(h =100, d1 = 50,d2 = 20,$fn=6);
//main crystal tip
translate([0, 0, 100])
cylinder(h =10,d1=20,d2=0,$fn=6);
}
//remove central crystal core
translate([0, 0, -1])
cylinder(h =101.1, d1 = 48,d2 = 18,$fn=6);
//remove centre crystal tip
translate([0, 0, 100])
cylinder(h =9,d1=18,d2=0,$fn=6);
//six sub crystal core removal
rotate([45, 0, 0])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 0])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 60])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 60])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 120])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 120])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 180])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 180])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 240])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 240])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
rotate([45, 0, 300])
translate([0,0,0])
cylinder(h =80.1, d1 = 28,d2 = 18,$fn=6);
rotate([45, 0, 300])
translate([0,0,80])
cylinder(h =9, d1 = 18,d2 = 0,$fn=6);
}
//Second solid additions
//Add base cone
translate([0,0,3])
cylinder(h =45, d1 = 100,d2 = 7,$fn=6);
//led plinths
rotate([45, 0, 0])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 60])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 120])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 180])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 240])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
rotate([45, 0, 300])
translate([0,0,30])
cylinder(h =5.5, d1 = 20,d2 = 8,$fn=20);
//cable entry
translate([0,-35,10])
rotate([45, 0, 0])
sphere (d=10,$fn=20);
}
//Second removals
//Inner base area
translate([0,0,2])
cylinder(h =45, d1 = 100,d2 = 6,$fn=6);
//base removal cube
translate([-50,-50,-47])
cube ([100,100,50]);
//LED hole removal
rotate([45, 0, 0])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 60])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 120])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 180])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 240])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
rotate([45, 0, 300])
translate([0,0,26])
cylinder(h =10,d1=5,d2=5,$fn=20);
//main pillar LED hole
translate([0,0,40])
cylinder(h =10,d1=5,d2=5,$fn=20);
//cable entry
translate([0,-35,10])
rotate([45,0,0])
cylinder(h =20, d1 = 4,d2 = 4,$fn=20);
}
Turn it into a solar window light. I would love to see it!
nice build, looks like another type of led to try, I have often felt the same way about life being made to fix things
I didn't have a clue until the color change demonstration in the finished product. Wiping my drink off the screen now…
Stl files?
I love your views on relationships. I totally feel the same way
24hrs vid makes it a 21st century Yule Log (itโs an American thing google it) – Nicely done, I shall craft one myself. Thanks BC
This video popped up in my recommended and when I saw the thumbnail I was like โWHO GOT A PICTURE OF MY CRYSTAL?!โ
Then I realized it was the OG video. ๐ mine looks EXACTLY like that.
thats pretty damn cool …………I actually have a natural quartz crystal about 7 inches long and 2.5 inches thick , it's been cut flat at the bottom so it stands up straight , I'm tempted to drill a hole in the bottom and stick a RGB diode in that , pretty sure I have a diamond hole drill around the right size in me box of tricks………
Your candour is a gift.
In 1978 I did my own office software in Basic. I have done Dbase3+ and Quattro Pro. this was before there was a lot of proprietary software. Now, of course, one must try to chose from among hundreds of systems…
omfg thank you so much clive. ive been looking for crystals for my fishtank and I always forget i have a 3d printer. its just one of those tools that you forget you have when you need it
Nice one! It's a good thing you made the print walls so thin and without infill, otherwise it would be more opaque and/or the infill would be visible. Which could be an interesting effect in its own right I suppose. I believe PLA is dairy-based? I think it stands for Poly-Lactic Acid in any case.
Heh, the way you talk about romantic relationships is something I can relate to ๐
Just curious, do you identify as asexual and/or aromantic? Or know of it?
Finally, my crystal is done ๐บ I printed it over 6 months ago, today I soldered it together ๐ธ
Thanks for the idea and the code to print from, it worked perfect ๐บ
Merry christmas!
Very nice.
That is really nice!