2016-01-11 21:39:27 +00:00
//!OpenSCAD
/* preprocessor */
2024-11-12 03:43:45 +00:00
IN = 25.4 ;
MM = 1 ;
function R ( diameter ) = diameter / 2.0 ;
function IN2MM ( in ) = in * IN ;
function MM2IN ( mm ) = mm / IN ;
module hex ( diag = 10 , h = 1 ) {
cylinder ( r = diag / 2 , h = h , center = true , $fn = 6 ) ;
}
2016-01-11 21:39:27 +00:00
module tube ( o = 1 , i = 0 , h = 1 , center = false , $fn = 12 ) {
$fn = $fn ;
union ( ) {
difference ( ) {
cylinder ( r = o , h = h , center = center ) ;
cylinder ( r = i , h = h , center = center ) ;
}
}
}
module rounded_cube ( cube_arr = [ 1 , 1 , 1 ] , d = 0 , center = false ) {
off_x = 0 ;
off_y = 0 ;
r = d / 2 ;
union ( ) {
cube ( [ cube_arr [ 0 ] - d , cube_arr [ 1 ] , cube_arr [ 2 ] ] , center = center ) ;
cube ( [ cube_arr [ 0 ] , cube_arr [ 1 ] - d , cube_arr [ 2 ] ] , center = center ) ;
translate ( [ 1 * ( cube_arr [ 0 ] / 2 ) - r , 1 * ( cube_arr [ 1 ] / 2 ) - r , 0 ] ) cylinder ( r = r , h = cube_arr [ 2 ] , center = center ) ;
translate ( [ - 1 * ( cube_arr [ 0 ] / 2 ) + r , - 1 * ( cube_arr [ 1 ] / 2 ) + r , 0 ] ) cylinder ( r = r , h = cube_arr [ 2 ] , center = center ) ;
translate ( [ 1 * ( cube_arr [ 0 ] / 2 ) - r , - 1 * ( cube_arr [ 1 ] / 2 ) + r , 0 ] ) cylinder ( r = r , h = cube_arr [ 2 ] , center = center ) ;
translate ( [ - 1 * ( cube_arr [ 0 ] / 2 ) + r , 1 * ( cube_arr [ 1 ] / 2 ) - r , 0 ] ) cylinder ( r = r , h = cube_arr [ 2 ] , center = center ) ;
}
}
/*rounded_cube mikowski - avoid on web for triangulation errors\
NOT READY FOR PRIMETIME
module round_cube_minkowski ( c = [ 1 , 1 , 1 ] , diameter = 1 ) {
minkowski ( ) {
cube ( [ c [ 0 ] - diameter , c [ 1 ] - diameter , diameter ( c [ 2 ] ) ] , center = true ) ;
cylinder ( r = diameter ( diameter ) , h = c [ 2 ] / 2 , center = true ) ;
}
}
* /
module c_battery ( ) {
/* C Cell battery, 26.1 ×
x = 26.1 ;
x_fuzz = . 3 ;
y = 50 ;
y_fuzz = 2 ;
cylinder ( r = ( x + x_fuzz ) / 2 , h = y + y_fuzz , center = true ) ;
}
module sub_c_battery ( ) {
/* Sub C Cell battery, 22.2 ×
x = 22.2 ;
x_fuzz = . 3 ;
y = 42.9 ;
y_fuzz = 2 ;
cylinder ( r = ( x + x_fuzz ) / 2 , h = y + y_fuzz , center = true ) ;
}
module hex ( r = 1 , h = 1 , center = false ) {
cylinder ( r = r , h = h , center = center , $fn = 6 ) ;
}
module triangle ( a = 1 , b = 1 , c = 1 , h = 1 , center = false ) {
}
module cone_45 ( d = 1 , center = false ) {
cylinder ( r1 = d / 2 , r2 = 0 , h = d , center = center ) ;
}
module decoys ( d = 10 , z = 0 , number = 4 , cube_size = 4 , debug = false ) {
for ( i = [ 0 : number ] ) {
rotate ( [ 0 , 0 , ( 360 / number ) * i ] ) translate ( [ d , 0 , z ] ) cube ( [ cube_size , cube_size , cube_size ] , center = true ) ;
if ( debug && i = = 0 ) {
rotate ( [ 0 , 0 , ( 360 / number ) * i ] ) translate ( [ d , 0 , z ] ) cube ( [ cube_size * 5 , cube_size * 5 , cube_size ] , center = true ) ;
}
}
}
//////////////////////////////////////////////////////////////////////////////////////////////
// Paraboloid module for OpenScad
//
// Copyright (C) 2013 Lochner, Juergen
// http://www.thingiverse.com/Ablapo/designs
//
// This program is free software. It is
// licensed under the Attribution - Creative Commons license.
// http://creativecommons.org/licenses/by/3.0/
//////////////////////////////////////////////////////////////////////////////////////////////
module paraboloid ( y = 10 , f = 5 , rfa = 0 , fc = 1 , detail = 44 ) {
// y = height of paraboloid
// f = focus distance
// fc : 1 = center paraboloid in focus point(x=0, y=f); 0 = center paraboloid on top (x=0, y=0)
// rfa = radius of the focus area : 0 = point focus
// detail = $fn of cone
hi = ( y + 2 * f ) / sqrt ( 2 ) ; // height and radius of the cone -> alpha = 45° -> sin(45°)=1/sqrt(2)
x = 2 * f * sqrt ( y / f ) ; // x = half size of parabola
translate ( [ 0 , 0 , - f * fc ] ) // center on focus
rotate_extrude ( convexity = 10 , $fn = detail ) // extrude paraboild
translate ( [ rfa , 0 , 0 ] ) // translate for fokus area
difference ( ) {
union ( ) { // adding square for focal area
projection ( cut = true ) // reduce from 3D cone to 2D parabola
translate ( [ 0 , 0 , f * 2 ] ) rotate ( [ 45 , 0 , 0 ] ) // rotate cone 45° and translate for cutting
translate ( [ 0 , 0 , - hi / 2 ] ) cylinder ( h = hi , r1 = hi , r2 = 0 , center = true , $fn = detail ) ; // center cone on tip
translate ( [ - ( rfa + x ) , 0 ] ) square ( [ rfa + x , y ] ) ; // focal area square
}
translate ( [ - ( 2 * rfa + x ) , - 1 / 2 ] ) square ( [ rfa + x , y + 1 ] ) ; // cut of half at rotation center
}
}
//Spiral Notes
//-------------------------------------------------------------------
//Height = center to center height of the end spheres which form the spirals. Ends will need to be flattened by the user as desired. Actual height of the rendering is Height+2*baseRadius
//Radius = the maximum distance from the axis of the spiral (the z axis) to the center of the sphere(s) forming the spiral
//baseRadius = cross sectional radius of the spiral
//frequency = the number of complete revolutions about the axis made by the spiral, whole numbers will result in spirals whose tops end directly above their bases
//resolution = integer number of spheres, not to be confused with $fn. The greater the number of spheres, the smoother the spiral will be (also longer render times!). Recommended that this number be 8*frequency or greater.
//numSpirals = integer number of spirals used in the spiralMulti modules spaced evenly around the axis (3 spirals are spaced 120 degrees apart, 4 spirals: 90 degrees apart, etc.)
//Instructions
//------------------------------------------------------------------
//1. Place spiral.scad in the "libraries" folder of your openscad installation. Find the libraries folder by File -> Show Library Folder...
//2. Then create a new or open one of your existing scad files and include spiral.scad with the following code:
//use<spiral.scad>;
//3. Then call the modules in your files with code similar to the following:
//spiral(20,20,3,1,25);
//spiralCone(20,20,3,1,25);
//spiralEllipse(20,20,3,1,25);
//spiralMulti(20,20,3,1,25,3);
//spiralMultiCone(20,20,3,1,25,3);
//spiralMultiEllipse(40,60,3,1,32,3);
//-------------------------------------------------------------
//simple spiral
module spiral ( height = 20 , Radius = 20 , baseRadius = 3 , frequency = 1 , resolution = 25 , $fn = 50 ) {
union ( ) {
translate ( [ 0 , 0 , - ( height / 2 ) ] ) {
for ( i = [ 0 : resolution - 2 ] ) {
hull ( ) {
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * i ] ) translate ( [ Radius , 0 , i * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * ( i + 1 ) ] ) translate ( [ Radius , 0 , ( i + 1 ) * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
}
}
}
}
}
//cone spiral
module spiralCone ( height = 20 , Radius = 20 , baseRadius = 3 , frequency = 1 , resolution = 25 , $fn = 50 ) {
union ( ) {
translate ( [ 0 , 0 , - ( height / 2 ) ] ) {
for ( i = [ 0 : resolution - 2 ] ) {
hull ( ) {
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * i ] ) translate ( [ Radius - ( i - 1 ) * Radius / resolution , 0 , i * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * ( i + 1 ) ] ) translate ( [ Radius - i * Radius / resolution , 0 , ( i + 1 ) * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
}
}
}
}
}
//ellipse spiral
module spiralEllipse ( height = 20 , Radius = 20 , baseRadius = 3 , frequency = 1 , resolution = 25 , $fn = 50 ) {
union ( ) {
translate ( [ 0 , 0 , - ( height / 2 ) ] ) {
for ( i = [ 0 : resolution - 2 ] ) {
hull ( ) {
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * i ] ) translate ( [ Radius * sqrt ( 1 - ( i / ( resolution - 1 ) * ( i / ( resolution - 1 ) ) ) ) , 0 , i * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * ( i + 1 ) ] ) translate ( [ Radius * sqrt ( 1 - ( ( i + 1 ) / ( resolution - 1 ) * ( ( i + 1 ) / ( resolution - 1 ) ) ) ) , 0 , ( i + 1 ) * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
}
}
}
}
}
// Multiple spirals arranged radially around the axis
module spiralMulti ( height = 20 , Radius = 20 , baseRadius = 3 , frequency = 1 , resolution = 25 , numSpirals = 3 , $fn = 50 ) {
shiftAngle = 360 / numSpirals ;
for ( total = [ 0 : numSpirals - 1 ] ) {
union ( ) {
translate ( [ 0 , 0 , - ( height / 2 ) ] ) {
for ( i = [ 0 : resolution - 2 ] ) {
hull ( ) {
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * i + shiftAngle * total ] ) translate ( [ Radius , 0 , i * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * ( i + 1 ) + shiftAngle * total ] ) translate ( [ Radius , 0 , ( i + 1 ) * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
}
}
}
}
}
}
// Multiple spirals arranged radially around the axis tapering in towards the axis
module spiralMultiCone ( height = 20 , Radius = 20 , baseRadius = 3 , frequency = 1 , resolution = 25 , numSpirals = 3 , $fn = 50 ) {
shiftAngle = 360 / numSpirals ;
for ( total = [ 0 : numSpirals - 1 ] ) {
union ( ) {
translate ( [ 0 , 0 , - ( height / 2 ) ] ) {
for ( i = [ 0 : resolution - 2 ] ) {
hull ( ) {
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * i + shiftAngle * total ] ) translate ( [ Radius - ( i - 1 ) * Radius / resolution , 0 , i * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * ( i + 1 ) + shiftAngle * total ] ) translate ( [ Radius - i * Radius / resolution , 0 , ( i + 1 ) * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
}
}
}
}
}
}
//multiple ellipse spiral
module spiralMultiEllipse ( height = 20 , Radius = 20 , baseRadius = 3 , frequency = 1 , resolution = 25 , numSpirals = 3 , $fn = 50 ) {
shiftAngle = 360 / numSpirals ;
for ( total = [ 0 : numSpirals - 1 ] ) {
union ( ) {
translate ( [ 0 , 0 , - ( height / 2 ) ] ) {
for ( i = [ 0 : resolution - 2 ] ) {
hull ( ) {
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * i + shiftAngle * total ] ) translate ( [ Radius * sqrt ( 1 - ( i / ( resolution - 1 ) * ( i / ( resolution - 1 ) ) ) ) , 0 , i * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
rotate ( [ 0 , 0 , frequency * 360 / ( resolution - 1 ) * ( i + 1 ) + shiftAngle * total ] ) translate ( [ Radius * sqrt ( 1 - ( ( i + 1 ) / ( resolution - 1 ) * ( ( i + 1 ) / ( resolution - 1 ) ) ) ) , 0 , ( i + 1 ) * height / ( resolution - 1 ) ] ) sphere ( r = baseRadius , center = true ) ;
}
}
}
}
}
}
