/*
Generated by Text-to-CAD:
A solid sphere with a radius of 15mm.
*/
@settings(defaultLengthUnit = mm)

// Parameters
radius = 15
diameter = 2 * radius

// Sketch a semicircle profile for the sphere
sketch = startSketchOn(XY)
profile = startProfile(sketch, at = [-radius, 0])
  |> xLine(length = diameter)
  |> arc(angleStart = 0, angleEnd = 180, radius = radius)
  |> close()

// Revolve to create the solid sphere
sphere = revolve(profile, axis = X, angle = 360)