kcl-samples → car-wheel →
car-wheel
![car-wheel](/kcl-samples/screenshots/car-wheel.png)
KCL
// Car Wheel
// A sports car wheel with a circular lug pattern and spokes.
// Define constants
// Base units for this model are in inches
const lugCount = 5
const lugSpacing = 114.3 * mm()
const offset = -35 * mm()
const backSpacing = 6.38 // inches
const wheelWidth = 9.5 // inches
const wheelDiameter = 19 // inches
const spokeGap = 0.1
const spokeAngle = 0.05
const spokeThickness = 0.85
// Create the wheel center
const lugBase = startSketchOn('XZ')
|> circle([0, 0], (lugSpacing + 1.5) / 2, %)
|> extrude(wheelWidth / 20, %)
const baseCenter = startSketchOn(lugBase, 'END')
|> circle([0, 0], (lugSpacing - 1.5) / 2, %)
|> extrude(-wheelWidth / 20, %)
const lugExtrusion = startSketchOn(lugBase, 'END')
|> circle([0, 0], (lugSpacing + 1.5) / 2, %)
|> extrude(wheelWidth / 10, %)
const baseCenter1 = startSketchOn(lugExtrusion, 'END')
|> circle([0, 0], (lugSpacing - 1.5) / 2, %)
|> extrude(-wheelWidth / 10, %)
// Create the circular pattern for the lug holes
const lugClearance = startSketchOn(lugExtrusion, 'END')
|> circle([lugSpacing / 2, 0], 1.2 / 2, %)
|> patternCircular2d({
arcDegrees: 360,
center: [0, 0],
repetitions: lugCount - 1,
rotateDuplicates: true
}, %)
|> extrude(-wheelWidth / 10, %)
const lugHoles = startSketchOn(lugBase, 'END')
|> circle([lugSpacing / 2, 0], 16 * mm() / 2, %)
|> patternCircular2d({
arcDegrees: 360,
center: [0, 0],
repetitions: lugCount - 1,
rotateDuplicates: true
}, %)
|> extrude(-wheelWidth / 20, %)
// Add detail to the wheel center by revolving curved edge profiles
const wheelCenterInner = startSketchOn('XY')
|> startProfileAt([(lugSpacing - 1.5) / 2, 0], %)
|> yLine(-wheelWidth / 10 - (wheelWidth / 20), %)
|> bezierCurve({
to: [-0.4, 0.3],
control1: [-0.3, 0],
control2: [0, 0.3]
}, %)
|> yLineTo(0, %)
|> lineTo([profileStartX(%), profileStartY(%)], %)
|> close(%)
|> revolve({ axis: 'y' }, %)
const wheelCenterOuter = startSketchOn('XY')
|> startProfileAt([(lugSpacing + 1.5) / 2, 0], %)
|> yLine(-wheelWidth / 10 - (wheelWidth / 20), %)
|> bezierCurve({
to: [0.4, -0.1],
control1: [0.3, 0],
control2: [0.2, -0.3]
}, %)
|> yLineTo(-wheelWidth / 20, %)
|> lineTo([profileStartX(%), profileStartY(%)], %)
|> close(%)
|> revolve({ axis: 'y' }, %)
// Write a function that defines the spoke geometry, patterns and extrudes it
fn spoke = (spokeGap, spokeAngle, spokeThickness) => {
// Seperating the spoke base planes
const plane001 = {
plane: {
origin: [0.0, 0.0, spokeGap / 2],
xAxis: [1.0, 0.0, spokeAngle],
yAxis: [0.0, 1.0, 0.0],
zAxis: [0.0, 0.0, 1.0]
}
}
// Spoke cross sections
const spokeProfile = startSketchOn(plane001)
|> startProfileAt([(lugSpacing + 2) / 2, -0.7], %)
|> yLine(-wheelWidth / 13, %)
|> line([
(wheelDiameter - lugSpacing - 2.9) / 2,
offset
], %)
|> yLine(wheelWidth / 15, %)
|> lineTo([profileStartX(%), profileStartY(%)], %)
|> close(%)
// Circular pattern spokes
const spokePattern = extrude(spokeThickness, spokeProfile)
|> patternCircular3d({
axis: [0, 1, 0],
center: [0, -2000, 0],
repetitions: 5,
arcDegrees: 360,
rotateDuplicates: true
}, %)
return spokePattern
}
spoke(spokeGap, spokeAngle, spokeThickness)
spoke(-spokeGap, -spokeAngle, -spokeThickness)
// Define and revolve wheel exterior
const wheelOuterRevolve = startSketchOn('XY')
|> startProfileAt([
wheelDiameter / 2,
-wheelWidth + backSpacing + offset
], %)
|> yLine(wheelWidth * 0.25, %)
|> line([-wheelWidth * 0.02, wheelWidth * 0.02], %)
|> yLine(wheelWidth * 0.25, %)
|> line([wheelWidth * 0.02, wheelWidth * 0.02], %)
|> yLineTo(backSpacing + offset, %)
|> line([wheelWidth * 0.05, wheelWidth * .01], %)
|> yLine(wheelWidth * 0.05, %)
|> xLine(-wheelWidth * 0.03, %)
|> yLine(-wheelWidth * 0.02, %)
|> line([-wheelWidth * 0.05, -wheelWidth * 0.01], %)
|> yLine(-backSpacing * 0.7, %)
|> line([
-wheelDiameter * 0.01,
-wheelWidth * 0.02
], %)
|> yLineTo(offset - 0.2, %)
|> line([
-wheelDiameter * 0.03,
-wheelWidth * 0.02
], %)
|> yLine(-wheelWidth * 0.02, %)
|> line([
wheelDiameter * 0.03,
-wheelWidth * 0.1
], %)
|> yLine(-wheelWidth * 0.05, %)
|> line([wheelWidth * 0.02, -wheelWidth * 0.02], %)
|> yLineTo(-wheelWidth + backSpacing + offset - 0.28, %)
|> line([wheelWidth * 0.05, -wheelWidth * 0.01], %)
|> yLine(-wheelWidth * 0.02, %)
|> xLine(wheelWidth * 0.03, %)
|> yLine(wheelWidth * 0.05, %)
|> close(%)
|> revolve({ axis: 'y' }, %)