arnholm

arnholm

// AngelCAD
double f(double sign, double x, double n)
{
   double xn  = pow(x,n);
   double x1n = pow(1-x,n);
   return sign*(xn/(xn+x1n) + 0.5);
}

shape@ main_shape()

arnholm

// OpenSCAD script
extrude_height = 0.5;
scale_factor = 1.0;
 
linear_extrude(height=extrude_height)
scale(scale_factor)
mayan_haab_15_inch_dxf();
 
module mayan_haab_15_inch_dxf()
{

arnholm

AngelCAD code for the model at https://en.wikipedia.org/wiki/Constructive_solid_geometry

// AngelCAD code sample: csg_wikipedia.as
// https://en.wikipedia.org/wiki/Constructive_solid_geometry
// https://arnholm.github.io/angelcad-docs/

shape@ main_shape()
{

arnholm

Drop with sweep (AngelCAD source code)

double pi = 4.0*atan(1.0);

// radius and height
double r(double t) { return 0.5*(1-cos(pi*t))*sin(pi*t) + 0.005; }
double z(double t) { return 80 + 80*cos(pi*t); }

// profile direction 
vec3d@ dir(double t, double exp) 

arnholm

Cube minus sphere

shape@ main_shape()
{
   solid@ myShape = cube(size:100,center:true) - sphere(r:64);
   return myShape;
}

void main()
{