initial go

Signed-off-by: Jess Frazelle <github@jessfraz.com>

fixes

Signed-off-by: Jess Frazelle <github@jessfraz.com>

better

Signed-off-by: Jess Frazelle <github@jessfraz.com>

typo

Signed-off-by: Jess Frazelle <github@jessfraz.com>

updates

Signed-off-by: Jess Frazelle <github@jessfraz.com>

updates

Signed-off-by: Jess Frazelle <github@jessfraz.com>

updates

Signed-off-by: Jess Frazelle <github@jessfraz.com>

updates

Signed-off-by: Jess Frazelle <github@jessfraz.com>

updates

Signed-off-by: Jess Frazelle <github@jessfraz.com>

.github/workflows/build-apps.yml

@@ -13,7 +13,7 @@ env:
   IS_NIGHTLY: ${{ github.event_name == 'push' && github.ref == 'refs/heads/main' }}
 
 concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
+  group: ${{ github.workflow }}-${{ github.ref }}
   cancel-in-progress: true
 
 jobs:

.github/workflows/e2e-tests.yml

@@ -234,10 +234,16 @@ jobs:
             shardTotal: 8
           - os: namespace-profile-macos-8-cores
             shardIndex: 1
-            shardTotal: 1
+            shardTotal: 2
+          - os: namespace-profile-macos-8-cores
+            shardIndex: 2
+            shardTotal: 2
           - os: windows-latest-8-cores
             shardIndex: 1
-            shardTotal: 1
+            shardTotal: 2
+          - os: windows-latest-8-cores
+            shardIndex: 2
+            shardTotal: 2
     runs-on: ${{ matrix.os }}
     steps:
       - uses: actions/checkout@v4

README.md

@@ -34,7 +34,7 @@ The 3D view in Design Studio is just a video stream from our hosted geometry eng
   - WebSockets (via [KittyCAD TS client](https://github.com/KittyCAD/kittycad.ts))
 - Code Editor
   - [CodeMirror](https://codemirror.net/)
-  - Custom WASM LSP Server
+  - [Custom WASM LSP Server](https://github.com/KittyCAD/modeling-app/tree/main/rust/kcl-lib/src/lsp/kcl)
 - Modeling
   - [KittyCAD TypeScript client](https://github.com/KittyCAD/kittycad.ts)
 

e2e/playwright/code-pane-and-errors.spec.ts

@@ -158,10 +158,14 @@ extrude001 = extrude(sketch001, length = 5)`
     await expect(
       page
         .getByText(
-          'Modeling command failed: [ApiError { error_code: InternalEngine, message: "Solid3D revolve failed:  sketch profile must lie entirely on one side of the revolution axis" }]'
+          'Solid3D revolve failed:  sketch profile must lie entirely on one side of the revolution axis'
         )
         .first()
     ).toBeVisible()
+
+    // Make sure ApiError is not on the page.
+    // This ensures we didn't nest the json
+    await expect(page.getByText('ApiError')).not.toBeVisible()
   })
 
   test('When error is not in view WITH LINTS you can click the badge to scroll to it', async ({

e2e/playwright/desktop-export.spec.ts

@@ -58,12 +58,6 @@ test(
       await expect(submitButton).toBeVisible()
       await page.keyboard.press('Enter')
 
-      // Look out for the toast message
-      const exportingToastMessage = page.getByText(`Exporting...`)
-      const alreadyExportingToastMessage = page.getByText(`Already exporting`)
-      await expect(exportingToastMessage).toBeVisible()
-      await expect(alreadyExportingToastMessage).not.toBeVisible()
-
       // Expect it to succeed
       const errorToastMessage = page.getByText(`Error while exporting`)
       const engineErrorToastMessage = page.getByText(`Nothing to export`)
@@ -72,7 +66,6 @@ test(
 
       const successToastMessage = page.getByText(`Exported successfully`)
       await expect(successToastMessage).toBeVisible()
-      await expect(exportingToastMessage).not.toBeVisible()
 
       // Check for the exported file
       const firstFileFullPath = path.resolve(

e2e/playwright/fixtures/cmdBarFixture.ts

@@ -155,6 +155,12 @@ export class CmdBarFixture {
     }
   }
 
+  closeCmdBar = async () => {
+    const cmdBarCloseBtn = this.page.getByTestId('command-bar-close-button')
+    await cmdBarCloseBtn.click()
+    await expect(this.cmdBarElement).not.toBeVisible()
+  }
+
   get cmdSearchInput() {
     return this.page.getByTestId('cmd-bar-search')
   }
@@ -298,4 +304,27 @@ export class CmdBarFixture {
       `Monitoring text-to-cad API requests. Output will be saved to: ${outputPath}`
     )
   }
+
+  async toBeOpened() {
+    // Check that the command bar is opened
+    await expect(this.cmdBarElement).toBeVisible({ timeout: 10_000 })
+  }
+
+  async expectArgValue(value: string) {
+    // Check the placeholder project name exists
+    const actualArgument = await this.cmdBarElement
+      .getByTestId('cmd-bar-arg-value')
+      .inputValue()
+    const expectedArgument = value
+    expect(actualArgument).toBe(expectedArgument)
+  }
+
+  async expectCommandName(value: string) {
+    // Check the placeholder project name exists
+    const actual = await this.cmdBarElement
+      .getByTestId('command-name')
+      .textContent()
+    const expected = value
+    expect(actual).toBe(expected)
+  }
 }

e2e/playwright/fixtures/homePageFixture.ts

@@ -24,6 +24,7 @@ export class HomePageFixture {
   projectTextName!: Locator
   sortByDateBtn!: Locator
   sortByNameBtn!: Locator
+  appHeader!: Locator
   tutorialBtn!: Locator
 
   constructor(page: Page) {
@@ -44,6 +45,7 @@ export class HomePageFixture {
 
     this.sortByDateBtn = this.page.getByTestId('home-sort-by-modified')
     this.sortByNameBtn = this.page.getByTestId('home-sort-by-name')
+    this.appHeader = this.page.getByTestId('app-header')
     this.tutorialBtn = this.page.getByTestId('home-tutorial-button')
   }
 
@@ -125,4 +127,11 @@ export class HomePageFixture {
 
     await this.createAndGoToProject(name)
   }
+
+  isNativeFileMenuCreated = async () => {
+    await expect(this.appHeader).toHaveAttribute(
+      'data-native-file-menu',
+      'true'
+    )
+  }
 }

e2e/playwright/fixtures/sceneFixture.ts

@@ -46,6 +46,7 @@ export class SceneFixture {
   public networkToggleConnected!: Locator
   public engineConnectionsSpinner!: Locator
   public startEditSketchBtn!: Locator
+  public appHeader!: Locator
 
   constructor(page: Page) {
     this.page = page
@@ -57,6 +58,7 @@ export class SceneFixture {
     this.startEditSketchBtn = page
       .getByRole('button', { name: 'Start Sketch' })
       .or(page.getByRole('button', { name: 'Edit Sketch' }))
+    this.appHeader = this.page.getByTestId('app-header')
   }
   private _serialiseScene = async (): Promise<SceneSerialised> => {
     const camera = await this.getCameraInfo()
@@ -280,6 +282,13 @@ export class SceneFixture {
     await expect(buttonToTest).toBeVisible()
     await buttonToTest.click()
   }
+
+  isNativeFileMenuCreated = async () => {
+    await expect(this.appHeader).toHaveAttribute(
+      'data-native-file-menu',
+      'true'
+    )
+  }
 }
 
 function isColourArray(

e2e/playwright/projects.spec.ts

@@ -1818,7 +1818,6 @@ test(
         'extrude-custom-plane.kcl',
         'extrude-inside-fn-with-tags.kcl',
         'fillet-and-shell.kcl',
-        'fillet_duplicate_tags.kcl',
         'focusrite_scarlett_mounting_bracket.kcl',
         'function_sketch.kcl',
         'function_sketch_with_position.kcl',
@@ -1826,7 +1825,6 @@ test(
         'helix_defaults.kcl',
         'helix_defaults_negative_extrude.kcl',
         'helix_with_length.kcl',
-        'i_shape.kcl',
         'kittycad_svg.kcl',
         'lego.kcl',
         'lsystem.kcl',

e2e/playwright/regression-tests.spec.ts

@@ -51,8 +51,11 @@ test.describe('Regression tests', () => {
     // the close doesn't work
     // when https://github.com/KittyCAD/modeling-app/issues/3268 is closed
     // this test will need updating
-    const crypticErrorText = `ApiError`
+    const crypticErrorText = `Cannot close a path that is non-planar or with duplicate vertices.
+Internal engine error on request`
     await expect(page.getByText(crypticErrorText).first()).toBeVisible()
+    // Ensure we didn't nest the json.
+    await expect(page.getByText('ApiError')).not.toBeVisible()
   })
   test('user should not have to press down twice in cmdbar', async ({
     page,
@@ -329,10 +332,10 @@ extrude002 = extrude(profile002, length = 150)
       )
 
       const websocketPromise = page.waitForEvent('websocket')
-      await toolbar.closePane('code')
       await page.setBodyDimensions({ width: 1000, height: 500 })
 
       await homePage.goToModelingScene()
+      await toolbar.closePane('code')
       const websocket = await websocketPromise
 
       await scene.connectionEstablished()
@@ -545,14 +548,15 @@ extrude002 = extrude(profile002, length = 150)
         expect(alreadyExportingToastMessage).not.toBeVisible(),
       ])
 
-      await expect(successToastMessage).toHaveCount(2)
+      const count = await successToastMessage.count()
+      await expect(count).toBeGreaterThanOrEqual(2)
     })
   })
 
   test(
     `Network health indicator only appears in modeling view`,
     { tag: '@electron' },
-    async ({ context, page }, testInfo) => {
+    async ({ context, page }) => {
       await context.folderSetupFn(async (dir) => {
         const bracketDir = path.join(dir, 'bracket')
         await fsp.mkdir(bracketDir, { recursive: true })
@@ -561,9 +565,7 @@ extrude002 = extrude(profile002, length = 150)
           path.join(bracketDir, 'main.kcl')
         )
       })
-
       await page.setBodyDimensions({ width: 1200, height: 500 })
-      const u = await getUtils(page)
 
       // Locators
       const projectsHeading = page.getByRole('heading', {
@@ -583,10 +585,8 @@ extrude002 = extrude(profile002, length = 150)
       })
 
       await test.step('Check the modeling view', async () => {
+        await expect(projectsHeading).not.toBeVisible()
         await expect(networkHealthIndicator).toBeVisible()
-        await expect(networkHealthIndicator).toContainText('Problem')
-        await u.waitForPageLoad()
-        await expect(networkHealthIndicator).toContainText('Connected')
       })
     }
   )

e2e/playwright/sketch-tests.spec.ts

@@ -3496,6 +3496,73 @@ profile001 = startProfile(sketch001, at = [-102.72, 237.44])
     ).toBeVisible()
   })
 
+  // Ensure feature tree is not showing previous file's content when switching to a file with KCL errors.
+  test('Feature tree shows correct sketch count per file', async ({
+    context,
+    homePage,
+    scene,
+    toolbar,
+    cmdBar,
+    page,
+  }) => {
+    const u = await getUtils(page)
+
+    // Setup project with files.
+    const GOOD_KCL = `sketch001 = startSketchOn(XZ)
+profile001 = startProfile(sketch001, at = [220.81, 253.8])
+  |> line(end = [132.84, -151.31])
+  |> line(end = [25.51, 167.15])
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+sketch002 = startSketchOn(XZ)
+profile002 = startProfile(sketch002, at = [158.35, -70.82])
+  |> line(end = [73.9, -152.19])
+  |> line(end = [85.33, 135.48])
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()`
+
+    const ERROR_KCL = `sketch001 = startSketchOn(XZ)
+profile001 = startProfile(sketch001, at = [127.56, 179.02])
+  |> line(end = [132.84, -112.6])
+  |> line(end = [85.33, 234.01])
+  |> line(enfd = [-137.23, -54.55])`
+
+    await context.folderSetupFn(async (dir) => {
+      const projectDir = path.join(dir, 'multi-file-sketch-test')
+      await fs.mkdir(projectDir, { recursive: true })
+      await Promise.all([
+        fs.writeFile(path.join(projectDir, 'good.kcl'), GOOD_KCL, 'utf-8'),
+        fs.writeFile(path.join(projectDir, 'error.kcl'), ERROR_KCL, 'utf-8'),
+      ])
+    })
+
+    await page.setBodyDimensions({ width: 1000, height: 800 })
+
+    await homePage.openProject('multi-file-sketch-test')
+    await scene.connectionEstablished()
+    await scene.settled(cmdBar)
+
+    await u.closeDebugPanel()
+
+    await toolbar.openFeatureTreePane()
+    await toolbar.openPane('files')
+
+    await toolbar.openFile('good.kcl')
+
+    await expect(
+      toolbar.featureTreePane.getByRole('button', { name: 'Sketch' })
+    ).toHaveCount(2)
+
+    await toolbar.openFile('error.kcl')
+
+    // Ensure filetree is populated
+    await scene.settled(cmdBar)
+
+    await expect(
+      toolbar.featureTreePane.getByRole('button', { name: 'Sketch' })
+    ).toHaveCount(0)
+  })
+
   test('adding a syntax error, recovers after fixing', async ({
     page,
     homePage,

e2e/playwright/snapshot-tests.spec.ts

@@ -834,7 +834,13 @@ test('theme persists', async ({ page, context }) => {
 })
 
 test.describe('code color goober', { tag: '@snapshot' }, () => {
-  test('code color goober', async ({ page, context, scene, cmdBar }) => {
+  test('code color goober', async ({
+    page,
+    context,
+    scene,
+    cmdBar,
+    editor,
+  }) => {
     const u = await getUtils(page)
     await context.addInitScript(async () => {
       localStorage.setItem(
@@ -879,6 +885,7 @@ sweepSketch = startSketchOn(XY)
     context,
     scene,
     cmdBar,
+    editor,
   }) => {
     const u = await getUtils(page)
     await context.addInitScript(async () => {

e2e/playwright/test-utils.ts

@@ -21,6 +21,7 @@ export const token = process.env.token || ''
 
 import type { ProjectConfiguration } from '@rust/kcl-lib/bindings/ProjectConfiguration'
 
+import type { ElectronZoo } from '@e2e/playwright/fixtures/fixtureSetup'
 import { isErrorWhitelisted } from '@e2e/playwright/lib/console-error-whitelist'
 import { TEST_SETTINGS, TEST_SETTINGS_KEY } from '@e2e/playwright/storageStates'
 import { test } from '@e2e/playwright/zoo-test'
@@ -809,8 +810,6 @@ export const doExport = async (
 
   await page.getByRole('button', { name: 'Submit command' }).click()
 
-  // This usually happens immediately after. If we're too slow we don't
-  // catch it.
   await expect(page.getByText('Exported successfully')).toBeVisible()
 
   if (exportFrom === 'sidebarButton' || exportFrom === 'commandBar') {
@@ -1151,3 +1150,77 @@ export function perProjectSettingsToToml(
   // eslint-disable-next-line no-restricted-syntax
   return TOML.stringify(settings as any)
 }
+
+export async function clickElectronNativeMenuById(
+  tronApp: ElectronZoo,
+  menuId: string
+) {
+  const clickWasTriggered = await tronApp.electron.evaluate(
+    async ({ app }, menuId) => {
+      if (!app || !app.applicationMenu) {
+        return false
+      }
+      const menu = app.applicationMenu.getMenuItemById(menuId)
+      if (!menu) return false
+      menu.click()
+      return true
+    },
+    menuId
+  )
+  expect(clickWasTriggered).toBe(true)
+}
+
+export async function findElectronNativeMenuById(
+  tronApp: ElectronZoo,
+  menuId: string
+) {
+  const found = await tronApp.electron.evaluate(async ({ app }, menuId) => {
+    if (!app || !app.applicationMenu) {
+      return false
+    }
+    const menu = app.applicationMenu.getMenuItemById(menuId)
+    if (!menu) return false
+    return true
+  }, menuId)
+  expect(found).toBe(true)
+}
+
+export async function openSettingsExpectText(page: Page, text: string) {
+  const settings = page.getByTestId('settings-dialog-panel')
+  await expect(settings).toBeVisible()
+  // You are viewing the user tab
+  const actualText = settings.getByText(text)
+  await expect(actualText).toBeVisible()
+}
+
+export async function openSettingsExpectLocator(page: Page, selector: string) {
+  const settings = page.getByTestId('settings-dialog-panel')
+  await expect(settings).toBeVisible()
+  // You are viewing the keybindings tab
+  const settingsLocator = settings.locator(selector)
+  await expect(settingsLocator).toBeVisible()
+}
+
+/**
+ * A developer helper function to make playwright send all the console logs to stdout
+ * Call this within your E2E test and pass in the page or the tronApp to get as many
+ * logs piped to stdout for debugging
+ */
+export async function enableConsoleLogEverything({
+  page,
+  tronApp,
+}: { page?: Page; tronApp?: ElectronZoo }) {
+  page?.on('console', (msg) => {
+    console.log(`[Page-log]: ${msg.text()}`)
+  })
+
+  tronApp?.electron.on('window', async (electronPage) => {
+    electronPage.on('console', (msg) => {
+      console.log(`[Renderer] ${msg.type()}: ${msg.text()}`)
+    })
+  })
+
+  tronApp?.electron.on('console', (msg) => {
+    console.log(`[Main] ${msg.type()}: ${msg.text()}`)
+  })
+}

e2e/playwright/testing-samples-loading.spec.ts

@@ -33,8 +33,8 @@ test.describe('Testing loading external models', () => {
 
       // Locators and constants
       const newSample = {
-        file: 'parametric-bearing-pillow-block' + FILE_EXT,
-        title: 'Parametric Bearing Pillow Block',
+        file: 'pillow-block-bearing' + FILE_EXT,
+        title: 'Pillow Block Bearing',
       }
       const commandBarButton = page.getByRole('button', { name: 'Commands' })
       const samplesCommandOption = page.getByRole('option', {
@@ -100,9 +100,9 @@ test.describe('Testing loading external models', () => {
 
       // Locators and constants
       const sampleOne = {
-        file: 'parametric-bearing-pillow-block' + FILE_EXT,
-        title: 'Parametric Bearing Pillow Block',
-        file1: 'parametric-bearing-pillow-block-1' + FILE_EXT,
+        file: 'ball-bearing' + FILE_EXT,
+        title: 'Ball Bearing',
+        file1: 'ball-bearing-1' + FILE_EXT,
       }
       const projectCard = page.getByRole('link', { name: 'bracket' })
       const overwriteWarning = page.getByText(

flake.nix

@@ -74,7 +74,7 @@
         LIBCLANG_PATH = "${pkgs.libclang.lib}/lib";
         ELECTRON_OVERRIDE_DIST_PATH =
           if pkgs.stdenv.isDarwin
-          then "${pkgs.electron}/Applications"
+          then "${pkgs.electron}/Applications/Electron.app/Contents/MacOS/"
           else "${pkgs.electron}/bin";
         PLAYWRIGHT_SKIP_VALIDATE_HOST_REQUIREMENTS = true;
         PLAYWRIGHT_CHROMIUM_EXECUTABLE_PATH = "${pkgs.playwright-driver.browsers}/chromium-1091/chrome-linux/chrome";

packages/codemirror-lsp-client/src/client/index.ts

@@ -41,6 +41,14 @@ interface LSPRequestMap {
     LSP.DefinitionParams,
     LSP.Definition | LSP.DefinitionLink[] | null,
   ]
+  'textDocument/documentColor': [
+    LSP.DocumentColorParams,
+    LSP.ColorInformation[] | null,
+  ]
+  'textDocument/colorPresentation': [
+    LSP.ColorPresentationParams,
+    LSP.ColorPresentation[] | null,
+  ]
 }
 
 // Client to server
@@ -229,6 +237,22 @@ export class LanguageServerClient {
     return await this.request('textDocument/definition', params)
   }
 
+  async textDocumentDocumentColor(params: LSP.DocumentColorParams) {
+    const serverCapabilities = this.getServerCapabilities()
+    if (!serverCapabilities.colorProvider) {
+      return null
+    }
+    return await this.request('textDocument/documentColor', params)
+  }
+
+  async textDocumentColorPresentation(params: LSP.ColorPresentationParams) {
+    const serverCapabilities = this.getServerCapabilities()
+    if (!serverCapabilities.colorProvider) {
+      return null
+    }
+    return await this.request('textDocument/colorPresentation', params)
+  }
+
   attachPlugin(plugin: LanguageServerPlugin) {
     this.plugins.push(plugin)
   }

packages/codemirror-lsp-client/src/index.ts

@@ -21,6 +21,7 @@ export {
   lspRenameEvent,
   lspSemanticTokensEvent,
   lspCodeActionEvent,
+  lspColorUpdateEvent,
 } from './plugin/annotation'
 export {
   LanguageServerPlugin,

packages/codemirror-lsp-client/src/plugin/annotation.ts

@@ -6,6 +6,7 @@ export enum LspAnnotation {
   Diagnostics = 'diagnostics',
   Rename = 'rename',
   CodeAction = 'code-action',
+  ColorUpdate = 'color-update',
 }
 
 const lspEvent = Annotation.define<LspAnnotation>()
@@ -14,3 +15,4 @@ export const lspFormatCodeEvent = lspEvent.of(LspAnnotation.FormatCode)
 export const lspDiagnosticsEvent = lspEvent.of(LspAnnotation.Diagnostics)
 export const lspRenameEvent = lspEvent.of(LspAnnotation.Rename)
 export const lspCodeActionEvent = lspEvent.of(LspAnnotation.CodeAction)
+export const lspColorUpdateEvent = lspEvent.of(LspAnnotation.ColorUpdate)

packages/codemirror-lsp-client/src/plugin/colors.ts

@@ -0,0 +1,278 @@
+import {
+  StateEffect,
+  StateField,
+  type Extension,
+  type Range,
+} from '@codemirror/state'
+import {
+  Decoration,
+  type DecorationSet,
+  EditorView,
+  ViewPlugin,
+  WidgetType,
+  type ViewUpdate,
+} from '@codemirror/view'
+
+import type { LanguageServerPlugin } from './lsp'
+import { lspColorUpdateEvent } from './annotation'
+import { isArray } from '../lib/utils'
+import { offsetToPos, posToOffset, posToOffsetOrZero } from './util'
+import type * as LSP from 'vscode-languageserver-protocol'
+
+/* ------------------------------------------------------------------ */
+/* ----------  original helpers / widget / color utilities  ---------- */
+/* ------------------------------------------------------------------ */
+
+interface PickerState {
+  from: number
+  to: number
+  red: number
+  green: number
+  blue: number
+  alpha: number
+}
+
+export interface WidgetOptions extends PickerState {
+  color: string
+}
+
+export type ColorData = Omit<WidgetOptions, 'from' | 'to'>
+
+const pickerState = new WeakMap<HTMLInputElement, PickerState>()
+
+function rgbaToHex(color: LSP.Color): string {
+  return (
+    '#' +
+    [color.red, color.green, color.blue]
+      .map((c) =>
+        Math.round(c * 255)
+          .toString(16)
+          .padStart(2, '0')
+      )
+      .join('')
+  )
+}
+
+function hexToRGBComponents(hex: string): number[] {
+  const r = hex.slice(1, 3)
+  const g = hex.slice(3, 5)
+  const b = hex.slice(5, 7)
+  return [parseInt(r, 16) / 255, parseInt(g, 16) / 255, parseInt(b, 16) / 255]
+}
+
+async function discoverColorsViaLsp(
+  view: EditorView,
+  plugin: LanguageServerPlugin
+): Promise<WidgetOptions | Array<WidgetOptions> | null> {
+  const responses = await plugin.requestDocumentColors()
+  if (!responses) return null
+
+  const colors: Array<WidgetOptions> = []
+  for (const color of responses) {
+    if (!color.range || !color.color) continue
+
+    const { start, end } = color.range
+    const from = posToOffset(view.state.doc, start)
+    const to = posToOffset(view.state.doc, end)
+    if (from == null || to == null) continue
+
+    colors.push({
+      color: rgbaToHex(color.color),
+      ...color.color,
+      from,
+      to,
+    })
+  }
+  return colors
+}
+
+async function colorPickersDecorations(
+  view: EditorView,
+  plugin: LanguageServerPlugin
+): Promise<DecorationSet> {
+  const widgets: Array<Range<Decoration>> = []
+  const maybe = await discoverColorsViaLsp(view, plugin)
+  if (!maybe) return Decoration.none
+
+  const optionsList = isArray(maybe) ? maybe : [maybe]
+  for (const wo of optionsList) {
+    widgets.push(
+      Decoration.widget({
+        widget: new ColorPickerWidget(wo),
+        side: 1,
+      }).range(wo.from)
+    )
+  }
+  return Decoration.set(widgets)
+}
+
+export const wrapperClassName = 'cm-css-color-picker-wrapper'
+
+class ColorPickerWidget extends WidgetType {
+  private readonly state: PickerState
+  private readonly color: string
+
+  constructor({ color, ...state }: WidgetOptions) {
+    super()
+    this.state = state
+    this.color = color
+  }
+
+  eq(other: ColorPickerWidget) {
+    return (
+      other.color === this.color &&
+      other.state.from === this.state.from &&
+      other.state.to === this.state.to &&
+      other.state.alpha === this.state.alpha
+    )
+  }
+
+  toDOM() {
+    const picker = document.createElement('input')
+    pickerState.set(picker, this.state)
+    picker.type = 'color'
+    picker.value = this.color
+
+    const wrapper = document.createElement('span')
+    wrapper.appendChild(picker)
+    wrapper.className = wrapperClassName
+    return wrapper
+  }
+
+  ignoreEvent() {
+    return false
+  }
+}
+
+export const colorPickerTheme = EditorView.baseTheme({
+  [`.${wrapperClassName}`]: {
+    display: 'inline-block',
+    outline: '1px solid #eee',
+    marginRight: '0.6ch',
+    height: '1em',
+    width: '1em',
+    transform: 'translateY(1px)',
+  },
+  [`.${wrapperClassName} input[type="color"]`]: {
+    cursor: 'pointer',
+    height: '100%',
+    width: '100%',
+    padding: 0,
+    border: 'none',
+    '&::-webkit-color-swatch-wrapper': { padding: 0 },
+    '&::-webkit-color-swatch': { border: 'none' },
+    '&::-moz-color-swatch': { border: 'none' },
+  },
+})
+
+/* ------------------------------------------------------------------ */
+/* -------------------  ✅  new state machinery  -------------------- */
+/* ------------------------------------------------------------------ */
+
+// Effect that carries a fresh DecorationSet
+const setColorDecorations = StateEffect.define<DecorationSet>()
+
+// Field that stores the current DecorationSet
+const colorDecorationsField = StateField.define<DecorationSet>({
+  create: () => Decoration.none,
+  update(value, tr) {
+    value = value.map(tr.changes)
+    for (const e of tr.effects) if (e.is(setColorDecorations)) value = e.value
+    return value
+  },
+  provide: (f) => EditorView.decorations.from(f),
+})
+
+/* ------------------------------------------------------------------ */
+/* ------------------  original ViewPlugin, patched  ---------------- */
+/* ------------------------------------------------------------------ */
+
+export const makeColorPicker = (plugin: ViewPlugin<LanguageServerPlugin>) =>
+  ViewPlugin.fromClass(
+    class ColorPickerViewPlugin {
+      plugin: LanguageServerPlugin | null
+
+      constructor(view: EditorView) {
+        this.plugin = view.plugin(plugin)
+        if (!this.plugin) return
+
+        // initial async load → dispatch decorations
+        // eslint-disable-next-line @typescript-eslint/no-floating-promises
+        colorPickersDecorations(view, this.plugin).then((deco) => {
+          view.dispatch({ effects: setColorDecorations.of(deco) })
+        })
+      }
+
+      async update(update: ViewUpdate) {
+        if (!this.plugin) return
+        if (!(update.docChanged || update.viewportChanged)) return
+
+        const deco = await colorPickersDecorations(update.view, this.plugin)
+        update.view.dispatch({ effects: setColorDecorations.of(deco) })
+      }
+    },
+    {
+      eventHandlers: {
+        change: (e: Event, view: EditorView) => {
+          // eslint-disable-next-line @typescript-eslint/no-floating-promises
+          colorPickerChange(e, view, plugin)
+        },
+      },
+    }
+  )
+
+/* ------------------------------------------------------------------ */
+/* --------------------  unchanged event handler  ------------------- */
+/* ------------------------------------------------------------------ */
+
+async function colorPickerChange(
+  e: Event,
+  view: EditorView,
+  plugin: ViewPlugin<LanguageServerPlugin>
+): Promise<boolean> {
+  const value = view.plugin(plugin)
+  if (!value) return false
+
+  const target = e.target as HTMLInputElement
+  if (
+    target.nodeName !== 'INPUT' ||
+    !target.parentElement?.classList.contains(wrapperClassName)
+  )
+    return false
+
+  const data = pickerState.get(target)!
+  const converted = target.value + data.alpha
+  const [red, green, blue] = hexToRGBComponents(converted)
+
+  const responses = await value.requestColorPresentation(
+    { red, green, blue, alpha: data.alpha },
+    {
+      start: offsetToPos(view.state.doc, data.from),
+      end: offsetToPos(view.state.doc, data.to),
+    }
+  )
+  if (!responses?.length) return false
+
+  for (const resp of responses) {
+    const changes = resp.textEdit
+      ? {
+          from: posToOffsetOrZero(view.state.doc, resp.textEdit.range.start),
+          to: posToOffsetOrZero(view.state.doc, resp.textEdit.range.end),
+          insert: resp.textEdit.newText,
+        }
+      : { from: data.from, to: data.to, insert: resp.label }
+
+    view.dispatch({ changes, annotations: [lspColorUpdateEvent] })
+  }
+  return true
+}
+
+/* ------------------------------------------------------------------ */
+/* -------------------------  public API  --------------------------- */
+/* ------------------------------------------------------------------ */
+
+export default function lspColorsExt(
+  plugin: ViewPlugin<LanguageServerPlugin>
+): Extension {
+  return [colorDecorationsField, makeColorPicker(plugin), colorPickerTheme]
+}

packages/codemirror-lsp-client/src/plugin/lsp.ts

@@ -48,6 +48,7 @@ import { isArray } from '../lib/utils'
 import lspGoToDefinitionExt from './go-to-definition'
 import lspRenameExt from './rename'
 import lspSignatureHelpExt from './signature-help'
+import lspColorsExt from './colors'
 
 const useLast = (values: readonly any[]) => values.reduce((_, v) => v, '')
 export const docPathFacet = Facet.define<string, string>({
@@ -534,6 +535,37 @@ export class LanguageServerPlugin implements PluginValue {
     })
   }
 
+  async requestDocumentColors() {
+    if (
+      !(this.client.getServerCapabilities().colorProvider && this.client.ready)
+    ) {
+      return
+    }
+
+    const result = await this.client.textDocumentDocumentColor({
+      textDocument: { uri: this.getDocUri() },
+    })
+
+    if (!result) return
+    return result
+  }
+
+  async requestColorPresentation(color: LSP.Color, range: LSP.Range) {
+    if (
+      !(this.client.getServerCapabilities().colorProvider && this.client.ready)
+    ) {
+      return
+    }
+
+    const result = await this.client.textDocumentColorPresentation({
+      textDocument: { uri: this.getDocUri() },
+      color,
+      range,
+    })
+    if (!result) return
+    return result
+  }
+
   async requestRename(
     view: EditorView,
     { line, character }: { line: number; character: number }
@@ -1318,6 +1350,7 @@ export class LanguageServerPluginSpec
     return [
       linter(null),
       lspAutocompleteExt(plugin),
+      lspColorsExt(plugin),
       lspFormatExt(plugin),
       lspGoToDefinitionExt(plugin),
       lspHoverExt(plugin),

public/kcl-samples/README.md

@@ -31,14 +31,24 @@ When you submit a PR to add or modify KCL samples, images will be generated and
 [![ball-bearing](screenshots/ball-bearing.png)](ball-bearing/main.kcl)
 #### [bench](bench/main.kcl) ([screenshot](screenshots/bench.png))
 [![bench](screenshots/bench.png)](bench/main.kcl)
+#### [bone-plate](bone-plate/main.kcl) ([screenshot](screenshots/bone-plate.png))
+[![bone-plate](screenshots/bone-plate.png)](bone-plate/main.kcl)
 #### [bottle](bottle/main.kcl) ([screenshot](screenshots/bottle.png))
 [![bottle](screenshots/bottle.png)](bottle/main.kcl)
 #### [bracket](bracket/main.kcl) ([screenshot](screenshots/bracket.png))
 [![bracket](screenshots/bracket.png)](bracket/main.kcl)
 #### [car-wheel-assembly](car-wheel-assembly/main.kcl) ([screenshot](screenshots/car-wheel-assembly.png))
 [![car-wheel-assembly](screenshots/car-wheel-assembly.png)](car-wheel-assembly/main.kcl)
+#### [cold-plate](cold-plate/main.kcl) ([screenshot](screenshots/cold-plate.png))
+[![cold-plate](screenshots/cold-plate.png)](cold-plate/main.kcl)
 #### [color-cube](color-cube/main.kcl) ([screenshot](screenshots/color-cube.png))
 [![color-cube](screenshots/color-cube.png)](color-cube/main.kcl)
+#### [counterdrilled-weldment](counterdrilled-weldment/main.kcl) ([screenshot](screenshots/counterdrilled-weldment.png))
+[![counterdrilled-weldment](screenshots/counterdrilled-weldment.png)](counterdrilled-weldment/main.kcl)
+#### [countersunk-plate](countersunk-plate/main.kcl) ([screenshot](screenshots/countersunk-plate.png))
+[![countersunk-plate](screenshots/countersunk-plate.png)](countersunk-plate/main.kcl)
+#### [cpu-cooler](cpu-cooler/main.kcl) ([screenshot](screenshots/cpu-cooler.png))
+[![cpu-cooler](screenshots/cpu-cooler.png)](cpu-cooler/main.kcl)
 #### [cycloidal-gear](cycloidal-gear/main.kcl) ([screenshot](screenshots/cycloidal-gear.png))
 [![cycloidal-gear](screenshots/cycloidal-gear.png)](cycloidal-gear/main.kcl)
 #### [dodecahedron](dodecahedron/main.kcl) ([screenshot](screenshots/dodecahedron.png))
@@ -55,8 +65,6 @@ When you submit a PR to add or modify KCL samples, images will be generated and
 [![food-service-spatula](screenshots/food-service-spatula.png)](food-service-spatula/main.kcl)
 #### [french-press](french-press/main.kcl) ([screenshot](screenshots/french-press.png))
 [![french-press](screenshots/french-press.png)](french-press/main.kcl)
-#### [gear](gear/main.kcl) ([screenshot](screenshots/gear.png))
-[![gear](screenshots/gear.png)](gear/main.kcl)
 #### [gear-rack](gear-rack/main.kcl) ([screenshot](screenshots/gear-rack.png))
 [![gear-rack](screenshots/gear-rack.png)](gear-rack/main.kcl)
 #### [gridfinity-baseplate](gridfinity-baseplate/main.kcl) ([screenshot](screenshots/gridfinity-baseplate.png))
@@ -67,6 +75,18 @@ When you submit a PR to add or modify KCL samples, images will be generated and
 [![gridfinity-bins](screenshots/gridfinity-bins.png)](gridfinity-bins/main.kcl)
 #### [gridfinity-bins-stacking-lip](gridfinity-bins-stacking-lip/main.kcl) ([screenshot](screenshots/gridfinity-bins-stacking-lip.png))
 [![gridfinity-bins-stacking-lip](screenshots/gridfinity-bins-stacking-lip.png)](gridfinity-bins-stacking-lip/main.kcl)
+#### [hammer](hammer/main.kcl) ([screenshot](screenshots/hammer.png))
+[![hammer](screenshots/hammer.png)](hammer/main.kcl)
+#### [helical-gear](helical-gear/main.kcl) ([screenshot](screenshots/helical-gear.png))
+[![helical-gear](screenshots/helical-gear.png)](helical-gear/main.kcl)
+#### [helical-planetary-gearset](helical-planetary-gearset/main.kcl) ([screenshot](screenshots/helical-planetary-gearset.png))
+[![helical-planetary-gearset](screenshots/helical-planetary-gearset.png)](helical-planetary-gearset/main.kcl)
+#### [helium-tank](helium-tank/main.kcl) ([screenshot](screenshots/helium-tank.png))
+[![helium-tank](screenshots/helium-tank.png)](helium-tank/main.kcl)
+#### [herringbone-gear](herringbone-gear/main.kcl) ([screenshot](screenshots/herringbone-gear.png))
+[![herringbone-gear](screenshots/herringbone-gear.png)](herringbone-gear/main.kcl)
+#### [herringbone-planetary-gearset](herringbone-planetary-gearset/main.kcl) ([screenshot](screenshots/herringbone-planetary-gearset.png))
+[![herringbone-planetary-gearset](screenshots/herringbone-planetary-gearset.png)](herringbone-planetary-gearset/main.kcl)
 #### [hex-nut](hex-nut/main.kcl) ([screenshot](screenshots/hex-nut.png))
 [![hex-nut](screenshots/hex-nut.png)](hex-nut/main.kcl)
 #### [i-beam](i-beam/main.kcl) ([screenshot](screenshots/i-beam.png))
@@ -83,8 +103,8 @@ When you submit a PR to add or modify KCL samples, images will be generated and
 [![mounting-plate](screenshots/mounting-plate.png)](mounting-plate/main.kcl)
 #### [multi-axis-robot](multi-axis-robot/main.kcl) ([screenshot](screenshots/multi-axis-robot.png))
 [![multi-axis-robot](screenshots/multi-axis-robot.png)](multi-axis-robot/main.kcl)
-#### [parametric-bearing-pillow-block](parametric-bearing-pillow-block/main.kcl) ([screenshot](screenshots/parametric-bearing-pillow-block.png))
-[![parametric-bearing-pillow-block](screenshots/parametric-bearing-pillow-block.png)](parametric-bearing-pillow-block/main.kcl)
+#### [pillow-block-bearing](pillow-block-bearing/main.kcl) ([screenshot](screenshots/pillow-block-bearing.png))
+[![pillow-block-bearing](screenshots/pillow-block-bearing.png)](pillow-block-bearing/main.kcl)
 #### [pipe](pipe/main.kcl) ([screenshot](screenshots/pipe.png))
 [![pipe](screenshots/pipe.png)](pipe/main.kcl)
 #### [pipe-flange-assembly](pipe-flange-assembly/main.kcl) ([screenshot](screenshots/pipe-flange-assembly.png))
@@ -93,6 +113,8 @@ When you submit a PR to add or modify KCL samples, images will be generated and
 [![pipe-with-bend](screenshots/pipe-with-bend.png)](pipe-with-bend/main.kcl)
 #### [poopy-shoe](poopy-shoe/main.kcl) ([screenshot](screenshots/poopy-shoe.png))
 [![poopy-shoe](screenshots/poopy-shoe.png)](poopy-shoe/main.kcl)
+#### [prosthetic-hip](prosthetic-hip/main.kcl) ([screenshot](screenshots/prosthetic-hip.png))
+[![prosthetic-hip](screenshots/prosthetic-hip.png)](prosthetic-hip/main.kcl)
 #### [router-template-cross-bar](router-template-cross-bar/main.kcl) ([screenshot](screenshots/router-template-cross-bar.png))
 [![router-template-cross-bar](screenshots/router-template-cross-bar.png)](router-template-cross-bar/main.kcl)
 #### [router-template-slate](router-template-slate/main.kcl) ([screenshot](screenshots/router-template-slate.png))
@@ -101,10 +123,20 @@ When you submit a PR to add or modify KCL samples, images will be generated and
 [![sheet-metal-bracket](screenshots/sheet-metal-bracket.png)](sheet-metal-bracket/main.kcl)
 #### [socket-head-cap-screw](socket-head-cap-screw/main.kcl) ([screenshot](screenshots/socket-head-cap-screw.png))
 [![socket-head-cap-screw](screenshots/socket-head-cap-screw.png)](socket-head-cap-screw/main.kcl)
+#### [spur-gear](spur-gear/main.kcl) ([screenshot](screenshots/spur-gear.png))
+[![spur-gear](screenshots/spur-gear.png)](spur-gear/main.kcl)
+#### [spur-reduction-gearset](spur-reduction-gearset/main.kcl) ([screenshot](screenshots/spur-reduction-gearset.png))
+[![spur-reduction-gearset](screenshots/spur-reduction-gearset.png)](spur-reduction-gearset/main.kcl)
+#### [surgical-drill-guide](surgical-drill-guide/main.kcl) ([screenshot](screenshots/surgical-drill-guide.png))
+[![surgical-drill-guide](screenshots/surgical-drill-guide.png)](surgical-drill-guide/main.kcl)
+#### [tooling-nest-block](tooling-nest-block/main.kcl) ([screenshot](screenshots/tooling-nest-block.png))
+[![tooling-nest-block](screenshots/tooling-nest-block.png)](tooling-nest-block/main.kcl)
 #### [utility-sink](utility-sink/main.kcl) ([screenshot](screenshots/utility-sink.png))
 [![utility-sink](screenshots/utility-sink.png)](utility-sink/main.kcl)
 #### [walkie-talkie](walkie-talkie/main.kcl) ([screenshot](screenshots/walkie-talkie.png))
 [![walkie-talkie](screenshots/walkie-talkie.png)](walkie-talkie/main.kcl)
 #### [washer](washer/main.kcl) ([screenshot](screenshots/washer.png))
 [![washer](screenshots/washer.png)](washer/main.kcl)
+#### [wing-spar](wing-spar/main.kcl) ([screenshot](screenshots/wing-spar.png))
+[![wing-spar](screenshots/wing-spar.png)](wing-spar/main.kcl)
 

public/kcl-samples/bench/bench-parts.kcl

@@ -57,9 +57,9 @@ fn connectorSketch(@plane, start) {
 
 export fn connector(@plane, length) {
   connectorSketch(plane, start = [-12, 8])
-    |> extrude(length = length)
+    |> extrude(length)
   connectorSketch(plane, start = [16, 8])
-    |> extrude(length = length)
+    |> extrude(length)
   return 0
 }
 
@@ -79,7 +79,7 @@ fn seatSlatSketch(@plane) {
 
 export fn seatSlats(@plane, length) {
   seatSlatSketch(plane)
-    |> extrude(length = length)
+    |> extrude(length)
   return 0
 }
 
@@ -99,7 +99,7 @@ fn backSlatsSketch(@plane) {
 
 export fn backSlats(@plane, length) {
   b = backSlatsSketch(plane)
-    |> extrude(length = length)
+    |> extrude(length)
   return b
 }
 

public/kcl-samples/bone-plate/main.kcl

@@ -0,0 +1,55 @@
+// Bone Plate
+// A bone plate is a medical device used in orthopedics to stabilize and fix bone fractures during the healing process. They are typically made of stainless steel or titanium and are secured to the bone with screws. Bone plates come in various types, including locking, compression, and bridge plates, each with specific applications
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define parameters
+boltSize = 4.5
+
+// Revolve the profile of a compression plate designed to fit a bone
+plateRevolve = startSketchOn(YZ)
+  |> startProfile(at = [22.9, 0])
+  |> arc(angleStart = 180, angleEnd = 176, radius = 120)
+  |> arc(angleStart = -60, angleEnd = 54, radius = 5)
+  |> arc(angleStart = 180, angleEnd = 176, radius = 120)
+  |> arc(angleStart = -60, angleEnd = 54, radius = 5)
+  |> arc(angleStart = 180, angleEnd = 176, radius = 120)
+  |> arc(angleStart = -60, angleEnd = 54, radius = 5)
+  |> arc(angleStart = 180, angleEnd = 174, radius = 170)
+  |> tangentialArc(endAbsolute = [41.8, 91.88])
+  |> tangentialArc(endAbsolute = [56.92, 117.08], tag = $seg01)
+  |> angledLine(angle = tangentToEnd(seg01), length = 23.16)
+  |> tangentialArc(endAbsolute = [60.93, 140.44], tag = $seg02)
+  |> angledLine(angle = tangentToEnd(seg02), length = 25.65)
+  |> tangentialArc(endAbsolute = [48.35, 85.53])
+  |> tangentialArc(endAbsolute = [35.2, 67.73], tag = $seg03)
+  |> angledLine(angle = tangentToEnd(seg03), length = 49.06)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> revolve(axis = Y, angle = 65, symmetric = true)
+
+// Create a hole sketch with the size and location of each bolt hole
+holeSketch = startSketchOn(XZ)
+hole01 = circle(holeSketch, center = [0, 12.25], radius = boltSize / 2)
+  |> extrude(length = -100)
+hole02 = circle(holeSketch, center = [0, 29.5], radius = boltSize / 2)
+  |> extrude(length = -100)
+hole03 = circle(holeSketch, center = [0, 46.25], radius = boltSize / 2)
+  |> extrude(length = -100)
+hole04 = circle(holeSketch, center = [0, 77], radius = boltSize / 2)
+  |> extrude(length = -100)
+hole05 = circle(holeSketch, center = [0, 100], radius = boltSize / 2)
+  |> extrude(length = -100)
+hole06 = circle(holeSketch, center = [0, 130], radius = boltSize / 2)
+  |> extrude(length = -100)
+hole07 = circle(holeSketch, center = [-20, 130], radius = boltSize / 2)
+  |> extrude(length = -100)
+hole08 = circle(holeSketch, center = [20, 130], radius = boltSize / 2)
+  |> extrude(length = -100)
+
+// Cut each guiding clearance hole from the bone plate
+solid001 = subtract([plateRevolve], tools = union([hole01, hole02]))
+solid002 = subtract([solid001], tools = union([hole03, hole04]))
+solid003 = subtract([solid002], tools = union([hole05, hole06]))
+solid004 = subtract([solid003], tools = union([hole07, hole08]))

public/kcl-samples/cold-plate/main.kcl

@@ -0,0 +1,67 @@
+// Cold Plate
+// A cold plate is a thermal management device used to remove heat from a device or component, typically by transferring heat to a liquid coolant that flows through the plate. It's a conductive cooling solution, commonly made of materials like aluminum or copper, with internal channels or tubes for the coolant
+
+// Set units
+@settings(defaultLengthUnit = in)
+
+// Define parameters
+tubeDiameter = 5 / 8
+wallThickness = 0.080
+bendRadius = 1
+
+// Create the cold plate with indentions to secure each pass of the brazed copper tube
+coldPlate = startSketchOn(YZ)
+  |> startProfile(at = [0, tubeDiameter * 2])
+  |> xLine(length = bendRadius - (tubeDiameter / 2))
+  |> yLine(length = -tubeDiameter)
+  |> tangentialArc(angle = 180, radius = tubeDiameter / 2)
+  |> yLine(length = tubeDiameter)
+  |> xLine(length = bendRadius * 2 - tubeDiameter, tag = $seg07)
+  |> yLine(length = -tubeDiameter, tag = $seg09)
+  |> tangentialArc(angle = 180, radius = tubeDiameter / 2)
+  |> yLine(length = tubeDiameter, tag = $seg08)
+  |> xLine(length = bendRadius - (tubeDiameter / 2))
+  |> angledLine(angle = -77, length = tubeDiameter / 3)
+  |> tangentialArc(angle = 77, radius = tubeDiameter, tag = $seg01)
+  |> angledLine(angle = tangentToEnd(seg01), length = 1)
+  |> yLine(endAbsolute = 0)
+  |> xLine(endAbsolute = 0)
+  |> mirror2d(axis = Y)
+  |> close()
+  |> extrude(length = 10, symmetric = true)
+
+// Sketch the path for the copper tube to follow
+copperTubePath = startSketchOn(offsetPlane(XY, offset = tubeDiameter))
+  |> startProfile(at = [-7.35, -bendRadius * 3])
+  |> xLine(length = 14.13, tag = $seg05)
+  |> tangentialArc(angle = 180, radius = bendRadius, tag = $seg02)
+  |> angledLine(angle = tangentToEnd(seg02), length = 13.02, tag = $seg06)
+  |> tangentialArc(angle = -180, radius = bendRadius, tag = $seg03)
+  |> angledLine(angle = tangentToEnd(seg03), length = segLen(seg06))
+  |> tangentialArc(angle = 180, radius = bendRadius, tag = $seg04)
+  |> angledLine(angle = tangentToEnd(seg04), length = segLen(seg05))
+
+// Create the profile for the inner and outer diameter of the hollow copper tube
+tubeWall = startSketchOn(offsetPlane(YZ, offset = -7.35))
+  |> circle(center = [-bendRadius * 3, tubeDiameter], radius = tubeDiameter / 2)
+  |> subtract2d(%, tool = circle(center = [-bendRadius * 3, tubeDiameter], radius = tubeDiameter / 2 - wallThickness))
+  |> sweep(path = copperTubePath)
+  |> appearance(color = "#b81b0a")
+
+// Model a brazed cap to cover each tube. Constrain the caps using the walls of the plate
+brazedCap = startSketchOn(YZ)
+  |> startProfile(at = segEnd(seg07))
+  |> arc(interiorAbsolute = [bendRadius * 3, tubeDiameter * 1.85], endAbsolute = segEnd(seg08))
+  |> yLine(endAbsolute = segStartY(seg08))
+  |> arc(
+       interiorAbsolute = [
+         bendRadius * 3,
+         segEndY(seg09) + tubeDiameter / 2
+       ],
+       endAbsolute = segEnd(seg09),
+     )
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> extrude(length = 10, symmetric = true)
+  |> patternLinear3d(instances = 4, distance = bendRadius * 2, axis = [0, -1, 0])
+  |> appearance(color = "#6b261e")

public/kcl-samples/counterdrilled-weldment/main.kcl

@@ -0,0 +1,120 @@
+// Counterdrilled Weldment
+// A metal weldment consisting of a counterdrilled plate, a centrally mounted housing tube, and four structural support fins.
+
+// Set units
+@settings(defaultLengthUnit = in)
+
+// Define parameters
+boltSpacingX = 5
+boltSpacingY = 3
+boltDiameter = 1 / 4
+counterdrillDiameter = 7 / 16
+counterdrillDepth = 3 / 16
+tubeInnerDiameter = 1 + 1 / 4
+tubeThickness = 0.115
+tubeHeight = 2
+stockThickness = .5
+
+// Calculate the dimensions of the block using the specified bolt spacing. The size of the block can be defined by adding a multiple of the counterdrill diameter to the bolt spacing
+blockLength = boltSpacingX + boltDiameter * 6
+blockWidth = boltSpacingY + boltDiameter * 6
+
+// Draw the base plate
+plateSketch = startSketchOn(XY)
+  |> startProfile(at = [-blockLength / 2, -blockWidth / 2])
+  |> angledLine(angle = 0, length = blockLength, tag = $rectangleSegmentA001)
+  |> angledLine(angle = segAng(rectangleSegmentA001) + 90, length = blockWidth, tag = $rectangleSegmentB001)
+  |> angledLine(angle = segAng(rectangleSegmentA001), length = -segLen(rectangleSegmentA001), tag = $rectangleSegmentC001)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $rectangleSegmentD001)
+  |> close()
+  |> subtract2d(tool = circle(center = [0, 0], radius = tubeInnerDiameter / 2))
+plateBody = extrude(plateSketch, length = stockThickness)
+  |> chamfer(
+       length = boltDiameter * 2,
+       tags = [
+         getNextAdjacentEdge(rectangleSegmentB001),
+         getNextAdjacentEdge(rectangleSegmentA001),
+         getNextAdjacentEdge(rectangleSegmentC001),
+         getNextAdjacentEdge(rectangleSegmentD001)
+       ],
+     )
+
+// Define hole positions
+holePositions = [
+  [-boltSpacingX / 2, -boltSpacingY / 2],
+  [-boltSpacingX / 2, boltSpacingY / 2],
+  [boltSpacingX / 2, -boltSpacingY / 2],
+  [boltSpacingX / 2, boltSpacingY / 2]
+]
+
+// Function to create a counterdrilled hole
+fn counterdrill(@holePosition) {
+  cbdrill = startSketchOn(plateBody, face = END)
+    |> circle(center = holePosition, radius = counterdrillDiameter / 2)
+    |> extrude(length = -counterdrillDepth)
+  cbBolt = startSketchOn(cbdrill, face = START)
+    |> circle(center = holePosition, radius = boltDiameter / 2, tag = $hole01)
+    |> extrude(length = -stockThickness + counterdrillDepth)
+    // Use a chamfer to create a 90-degree counterdrill edge
+    |> chamfer(length = (counterdrillDiameter - boltDiameter) / 2 * sqrt(2), tags = [hole01])
+  return {  }
+}
+
+// Place a counterdrilled hole at each bolt hole position
+map(holePositions, f = counterdrill)
+
+// Drill a small pin hole in the side of the tube
+pinhole = startSketchOn(YZ)
+  |> circle(center = [0, 2.2], radius = 0.125)
+  |> extrude(length = -10)
+
+// Model the central tube and subtract the pin hole
+centralTube = startSketchOn(offsetPlane(XY, offset = stockThickness))
+  |> circle(center = [0, 0], radius = tubeInnerDiameter / 2 + tubeThickness)
+  |> subtract2d(tool = circle(center = [0, 0], radius = tubeInnerDiameter / 2))
+  |> extrude(length = tubeHeight)
+  |> subtract(tools = [pinhole])
+
+// Create a function to create a fin which spans from the central tube to the bolt hole
+fn fin(@i) {
+  diagPlane = {
+    origin = [0.0, 0.0, 0.0],
+    xAxis = [
+      boltSpacingX / 2 * i,
+      boltSpacingY / 2,
+      0.0
+    ],
+    yAxis = [0.0, 0.0, 1.0]
+  }
+
+  finSketch = startSketchOn(diagPlane)
+    |> startProfile(at = [
+         tubeInnerDiameter / 2 + tubeThickness,
+         stockThickness
+       ])
+    |> xLine(endAbsolute = sqrt((boltSpacingX / 2) ^ 2 + (boltSpacingY / 2) ^ 2) - counterdrillDiameter)
+    |> yLine(length = 0.15)
+    |> line(endAbsolute = [
+         profileStartX(%) + 0.15,
+         stockThickness + tubeHeight * .8
+       ])
+    |> xLine(length = -0.15)
+    |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+    |> close()
+    |> extrude(length = tubeThickness, symmetric = true)
+
+  // Use a circular pattern to create an identical fin on the opposite side
+  otherFin = patternCircular3d(
+    finSketch,
+    instances = 2,
+    axis = [0, 0, 1],
+    center = [0, 0, 0],
+    arcDegrees = 360,
+    rotateDuplicates = true,
+  )
+  return {  }
+}
+
+// Place a pair of support fins along each diagonal axis of the bolt pattern
+fin(1)
+fin(-1)

public/kcl-samples/countersunk-plate/main.kcl

@@ -0,0 +1,50 @@
+// Plate with countersunk holes
+// A small mounting plate with a countersunk hole at each end
+
+// Set units
+@settings(defaultLengthUnit = in)
+
+// Define parameters
+boltSpacing = 5
+boltDiameter = 1 / 4
+centerHoleDiameter = 1 + 3 / 4
+plateThickness = 0.375
+
+// Check that the plate is thick enough to countersink a hole
+// assertGreaterThan(plateThickness, boltDiameter, "This plate is not thick enough for the necessary countersink dimensions")
+
+// A bit of math to calculate the tangent line between the two diameters
+r1 = centerHoleDiameter / 2 * 1.5 + .35
+r2 = boltDiameter * 2 + .25
+d = boltSpacing / 2
+tangentAngle = asin((r1 - r2) / d)
+tangentLength = (r1 - r2) / tan(tangentAngle)
+
+plateBody = startSketchOn(XY)
+  // Use polar coordinates to start the sketch at the tangent point of the larger radius
+  |> startProfile(at = polar(angle = 90 - tangentAngle, length = r1))
+  |> angledLine(angle = -tangentAngle, length = tangentLength)
+  |> tangentialArc(radius = r2, angle = (tangentAngle - 90) * 2)
+  |> angledLine(angle = tangentAngle, length = -tangentLength)
+  |> tangentialArc(radius = r1, angle = -tangentAngle * 2)
+  |> angledLine(angle = -tangentAngle, length = -tangentLength)
+  |> tangentialArc(radius = r2, angle = (tangentAngle - 90) * 2)
+  |> angledLine(angle = tangentAngle, length = tangentLength)
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> subtract2d(tool = circle(center = [0, 0], radius = centerHoleDiameter / 2 * 1.5))
+  |> extrude(%, length = plateThickness)
+
+// Function to create a countersunk hole
+fn countersink(@holePosition) {
+  startSketchOn(plateBody, face = END)
+    |> circle(center = [holePosition, 0], radius = boltDiameter / 2, tag = $hole01)
+    |> extrude(length = -plateThickness)
+    // Use a chamfer to create a 90-degree countersink
+    |> chamfer(length = boltDiameter, tags = [hole01])
+  return {  }
+}
+
+// Place a countersunk hole at each bolt hole position
+countersink(-boltSpacing / 2)
+countersink(boltSpacing / 2)

public/kcl-samples/cpu-cooler/fan-housing.kcl

@@ -0,0 +1,153 @@
+// Fan Housing
+// The plastic housing that contains the fan and the motor
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Import parameters
+import * from "parameters.kcl"
+
+// Model the housing which holds the motor, the fan, and the mounting provisions
+// Bottom mounting face
+bottomFaceSketch = startSketchOn(YZ)
+  |> startProfile(at = [-fanSize / 2, -fanSize / 2])
+  |> angledLine(angle = 0, length = fanSize, tag = $rectangleSegmentA001)
+  |> angledLine(angle = segAng(rectangleSegmentA001) + 90, length = fanSize, tag = $rectangleSegmentB001)
+  |> angledLine(angle = segAng(rectangleSegmentA001), length = -segLen(rectangleSegmentA001), tag = $rectangleSegmentC001)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $rectangleSegmentD001)
+  |> close()
+  |> subtract2d(tool = circle(center = [0, 0], radius = 4))
+  |> subtract2d(tool = circle(
+       center = [
+         mountingHoleSpacing / 2,
+         mountingHoleSpacing / 2
+       ],
+       radius = mountingHoleSize / 2,
+     ))
+  |> subtract2d(tool = circle(
+       center = [
+         -mountingHoleSpacing / 2,
+         mountingHoleSpacing / 2
+       ],
+       radius = mountingHoleSize / 2,
+     ))
+  |> subtract2d(tool = circle(
+       center = [
+         mountingHoleSpacing / 2,
+         -mountingHoleSpacing / 2
+       ],
+       radius = mountingHoleSize / 2,
+     ))
+  |> subtract2d(tool = circle(
+       center = [
+         -mountingHoleSpacing / 2,
+         -mountingHoleSpacing / 2
+       ],
+       radius = mountingHoleSize / 2,
+     ))
+  |> extrude(length = 4)
+
+// Add large openings to the bottom face to allow airflow through the fan
+airflowPattern = startSketchOn(bottomFaceSketch, face = END)
+  |> startProfile(at = [fanSize * 7 / 25, -fanSize * 9 / 25])
+  |> angledLine(angle = 140, length = fanSize * 12 / 25, tag = $seg01)
+  |> tangentialArc(radius = fanSize * 1 / 50, angle = 90)
+  |> angledLine(angle = -130, length = fanSize * 8 / 25)
+  |> tangentialArc(radius = fanSize * 1 / 50, angle = 90)
+  |> angledLine(angle = segAng(seg01) + 180, length = fanSize * 2 / 25)
+  |> tangentialArc(radius = fanSize * 8 / 25, angle = 40)
+  |> xLine(length = fanSize * 3 / 25)
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> patternCircular2d(
+       instances = 4,
+       center = [0, 0],
+       arcDegrees = 360,
+       rotateDuplicates = true,
+     )
+  |> extrude(length = -4)
+
+// Create the middle segment of the fan housing body
+housingMiddleLength = fanSize / 3
+housingMiddleRadius = fanSize / 3 - 1
+bodyMiddle = startSketchOn(bottomFaceSketch, face = END)
+  |> startProfile(at = [
+       housingMiddleLength / 2,
+       -housingMiddleLength / 2 - housingMiddleRadius
+     ])
+  |> tangentialArc(radius = housingMiddleRadius, angle = 90)
+  |> yLine(length = housingMiddleLength)
+  |> tangentialArc(radius = housingMiddleRadius, angle = 90)
+  |> xLine(length = -housingMiddleLength)
+  |> tangentialArc(radius = housingMiddleRadius, angle = 90)
+  |> yLine(length = -housingMiddleLength)
+  |> tangentialArc(radius = housingMiddleRadius, angle = 90)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> extrude(length = fanHeight - 4 - 4)
+
+// Cut a hole in the body to accommodate the fan
+bodyFanHole = startSketchOn(bodyMiddle, face = END)
+  |> circle(center = [0, 0], radius = fanSize * 23 / 50)
+  |> extrude(length = -(fanHeight - 4 - 4))
+
+// Top mounting face. Cut a hole in the face to accommodate the fan
+topFaceSketch = startSketchOn(bodyMiddle, face = END)
+topHoles = startProfile(topFaceSketch, at = [-fanSize / 2, -fanSize / 2])
+  |> angledLine(angle = 0, length = fanSize, tag = $rectangleSegmentA002)
+  |> angledLine(angle = segAng(rectangleSegmentA002) + 90, length = fanSize, tag = $rectangleSegmentB002)
+  |> angledLine(angle = segAng(rectangleSegmentA002), length = -segLen(rectangleSegmentA002), tag = $rectangleSegmentC002)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $rectangleSegmentD002)
+  |> close()
+  |> subtract2d(tool = circle(center = [0, 0], radius = fanSize * 23 / 50))
+  |> subtract2d(tool = circle(
+       center = [
+         mountingHoleSpacing / 2,
+         mountingHoleSpacing / 2
+       ],
+       radius = mountingHoleSize / 2,
+     ))
+  |> subtract2d(tool = circle(
+       center = [
+         -mountingHoleSpacing / 2,
+         mountingHoleSpacing / 2
+       ],
+       radius = mountingHoleSize / 2,
+     ))
+  |> subtract2d(tool = circle(
+       center = [
+         mountingHoleSpacing / 2,
+         -mountingHoleSpacing / 2
+       ],
+       radius = mountingHoleSize / 2,
+     ))
+  |> subtract2d(tool = circle(
+       center = [
+         -mountingHoleSpacing / 2,
+         -mountingHoleSpacing / 2
+       ],
+       radius = mountingHoleSize / 2,
+     ))
+  |> extrude(length = 4)
+
+// Create a housing for the electric motor to sit
+motorHousing = startSketchOn(bottomFaceSketch, face = END)
+  |> circle(center = [0, 0], radius = 11.2)
+  |> extrude(length = 16)
+
+startSketchOn(motorHousing, face = END)
+  |> circle(center = [0, 0], radius = 10)
+  |> extrude(length = -16)
+  |> appearance(color = "#a55e2c")
+  |> fillet(
+       radius = abs(fanSize - mountingHoleSpacing) / 2,
+       tags = [
+         getNextAdjacentEdge(rectangleSegmentA001),
+         getNextAdjacentEdge(rectangleSegmentB001),
+         getNextAdjacentEdge(rectangleSegmentC001),
+         getNextAdjacentEdge(rectangleSegmentD001),
+         getNextAdjacentEdge(rectangleSegmentA002),
+         getNextAdjacentEdge(rectangleSegmentB002),
+         getNextAdjacentEdge(rectangleSegmentC002),
+         getNextAdjacentEdge(rectangleSegmentD002)
+       ],
+     )

public/kcl-samples/cpu-cooler/fan.kcl

@@ -0,0 +1,71 @@
+// Fan
+// Spinning axial fan that moves airflow
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Import parameters
+import * from "parameters.kcl"
+
+// Model the center of the fan
+fanCenter = startSketchOn(YZ)
+  |> circle(center = [0, 0], radius = fanHeight / 2, tag = $centerBend)
+  |> extrude(%, length = fanHeight)
+  |> fillet(radius = 1.5, tags = [getOppositeEdge(centerBend)])
+
+// Create a function for a lofted fan blade cross section that rotates about the center hub of the fan
+fn fanBlade(offsetHeight, startAngle) {
+  fanBlade = startSketchOn(offsetPlane(YZ, offset = offsetHeight))
+    |> startProfile(at = [
+         15 * cos(startAngle),
+         15 * sin(startAngle)
+       ])
+    |> arc(angleStart = startAngle, angleEnd = startAngle + 14, radius = 15)
+    |> arc(
+         endAbsolute = [
+           fanSize * 22 / 50 * cos(startAngle - 20),
+           fanSize * 22 / 50 * sin(startAngle - 20)
+         ],
+         interiorAbsolute = [
+           fanSize * 11 / 50 * cos(startAngle + 3),
+           fanSize * 11 / 50 * sin(startAngle + 3)
+         ],
+       )
+    |> arc(
+         endAbsolute = [
+           fanSize * 22 / 50 * cos(startAngle - 24),
+           fanSize * 22 / 50 * sin(startAngle - 24)
+         ],
+         interiorAbsolute = [
+           fanSize * 22 / 50 * cos(startAngle - 22),
+           fanSize * 22 / 50 * sin(startAngle - 22)
+         ],
+       )
+    |> arc(
+         endAbsolute = [profileStartX(%), profileStartY(%)],
+         interiorAbsolute = [
+           fanSize * 11 / 50 * cos(startAngle - 5),
+           fanSize * 11 / 50 * sin(startAngle - 5)
+         ],
+       )
+    |> close()
+  return fanBlade
+}
+
+// Loft the fan blade cross sections into a single blade, then pattern them about the fan center
+crossSections = [
+  fanBlade(offsetHeight = 4.5, startAngle = 50),
+  fanBlade(offsetHeight = (fanHeight - 2 - 4) / 2, startAngle = 30),
+  fanBlade(offsetHeight = fanHeight - 2, startAngle = 0)
+]
+bladeLoft = loft(crossSections)
+  |> patternCircular3d(
+       instances = 9,
+       axis = [1, 0, 0],
+       center = [0, 0, 0],
+       arcDegrees = 360,
+       rotateDuplicates = true,
+     )
+
+[fanCenter, bladeLoft]
+  |> appearance(color = "#110803")

public/kcl-samples/cpu-cooler/heat-sink.kcl

@@ -0,0 +1,171 @@
+// Heat Sink
+// Conductive metal device made from brazed tubes and fins
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Import parameters
+import * from "parameters.kcl"
+
+// Draw the sweep path for the outermost tubes
+endTubePath = startSketchOn(offsetPlane(YZ, offset = -20))
+  |> startProfile(at = [fanSize / 4, fanSize + 38])
+  |> yLine(endAbsolute = bendRadius + 10, tag = $seg01)
+  |> tangentialArc(radius = bendRadius, angle = -90)
+  |> xLine(endAbsolute = 0, tag = $seg02)
+  |> xLine(length = -segLen(seg02))
+  |> tangentialArc(radius = bendRadius, angle = -90)
+  |> yLine(length = segLen(seg01))
+
+// Sweep and translate the outermost tube on each end
+endTube = startSketchOn(offsetPlane(XY, offset = fanSize + 38))
+  |> circle(center = [-20, fanSize / 4], radius = 3)
+  |> subtract2d(tool = circle(center = [-20, fanSize / 4], radius = 2.5))
+  |> sweep(path = endTubePath)
+  |> patternCircular3d(
+       %,
+       instances = 2,
+       axis = [0, 0, 1],
+       center = [0, 0, 0],
+       arcDegrees = 360,
+       rotateDuplicates = false,
+     )
+
+// Draw the sweep path for the 4 interior tubes
+centerTubePath = startSketchOn(offsetPlane(YZ, offset = -4))
+  |> startProfile(at = [fanSize / 2.67, fanSize + 38])
+  |> yLine(endAbsolute = bendRadius + 15 + 10)
+  |> tangentialArc(radius = bendRadius, angle = -45)
+  |> angledLine(angle = -135, lengthY = 15)
+  |> tangentialArc(radius = bendRadius, angle = -45)
+  |> xLine(endAbsolute = 0, tag = $seg03)
+  |> xLine(length = -segLen(seg03))
+  |> tangentialArc(radius = bendRadius, angle = -155)
+  |> tangentialArc(radius = bendRadius, angle = 65)
+  |> yLine(endAbsolute = fanSize + 38)
+
+// Draw the profile and sweep the 4 interior tubes
+centerTube = startSketchOn(offsetPlane(XY, offset = fanSize + 38))
+  |> circle(center = [-4, fanSize / 2.67], radius = 3)
+  |> subtract2d(tool = circle(center = [-4, fanSize / 2.67], radius = 2.5))
+  |> sweep(path = centerTubePath)
+  |> patternCircular3d(
+       %,
+       instances = 2,
+       axis = [0, 0, 1],
+       center = [-4 * 2, 0, 0],
+       arcDegrees = 360,
+       rotateDuplicates = true,
+     )
+  |> patternLinear3d(
+       %,
+       instances = 2,
+       distance = 4 * 4,
+       axis = [1, 0, 0],
+     )
+
+// Draw a heat fin with built-in clips to secure the mounting wire. Pattern the fin upwards by the height of the fan
+heatFins = startSketchOn(offsetPlane(XY, offset = 45))
+  |> startProfile(at = [0, -fanSize / 2])
+  |> xLine(length = 9)
+  |> angledLine(angle = -60, length = 2.5, tag = $seg04)
+  |> xLine(length = 0.75)
+  |> arc(interiorAbsolute = [lastSegX(%) + 1, lastSegY(%) + 1.2], endAbsolute = [lastSegX(%) + 2, lastSegY(%)])
+  |> xLine(length = 0.75)
+  |> angledLine(angle = 60, length = segLen(seg04))
+  |> xLine(endAbsolute = heatSinkDepth / 2 - 3)
+  |> tangentialArc(angle = 90, radius = 3)
+  |> yLine(endAbsolute = 0)
+  |> mirror2d(axis = X)
+  |> mirror2d(axis = Y)
+  |> close()
+  |> extrude(length = 1)
+  |> patternLinear3d(
+       %,
+       instances = 31,
+       distance = (fanSize - 10) / 30,
+       axis = [0, 0, 1],
+     )
+
+// Create the mounting base for the CPU cooler. The base should consist of two pieces that secure around each of the tubes at the bottom
+coolerBase = startSketchOn(-XZ)
+baseLower = startProfile(coolerBase, at = [0, 10])
+  |> xLine(length = -0.9)
+  |> arc(angleStart = 0, angleEnd = -180, radius = 3.1)
+  |> xLine(length = -1.8)
+  |> arc(angleStart = 0, angleEnd = -180, radius = 3)
+  |> xLine(length = -1.8)
+  |> arc(angleStart = 0, angleEnd = -180, radius = 3)
+  |> xLine(length = -1.8)
+  |> xLine(length = -2)
+  |> yLine(length = -10)
+  |> xLine(endAbsolute = 0)
+  |> mirror2d(axis = Y)
+  |> extrude(length = 2 * segLen(seg02), symmetric = true)
+
+baseUpper = startProfile(coolerBase, at = [0, 10])
+  |> xLine(length = -0.9)
+  |> arc(angleStart = 0, angleEnd = 180, radius = 3.1)
+  |> xLine(length = -1.8)
+  |> arc(angleStart = 0, angleEnd = 180, radius = 3)
+  |> xLine(length = -1.8)
+  |> arc(angleStart = 0, angleEnd = 180, radius = 3)
+  |> xLine(length = -1.8)
+  |> xLine(length = -1)
+  |> yLine(length = 4)
+  |> tangentialArc(angle = -90, radius = 2)
+  |> xLine(endAbsolute = 0)
+  |> mirror2d(axis = Y)
+  |> extrude(length = 2 * segLen(seg02) * 3 / 4, symmetric = true)
+
+// Create a flexible mounting bracket to secure the heat sink to the motherboard once adhered
+mountingBracket = startSketchOn(XZ)
+  |> startProfile(at = [-10, 16])
+  |> xLine(length = -20)
+  |> tangentialArc(angle = 20, radius = bendRadius)
+  |> angledLine(angle = -160, length = 14, tag = $seg09)
+  |> tangentialArc(angle = -30, radius = bendRadius + sheetThickness)
+  |> angledLine(angle = 170, length = 21.5, tag = $seg04Q)
+  |> angledLine(angle = 170 - 90, length = sheetThickness, tag = $seg08)
+  |> angledLine(angle = segAng(seg04Q) + 180, length = segLen(seg04Q), tag = $seg05E)
+  |> tangentialArc(angle = 30, radius = bendRadius)
+  |> angledLine(angle = segAng(seg09) + 180, length = segLen(seg09))
+  |> tangentialArc(angle = -20, radius = bendRadius + sheetThickness)
+  |> xLine(endAbsolute = profileStartX(%))
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $seg07)
+  |> close()
+  |> extrude(
+       length = 16,
+       symmetric = true,
+       tagEnd = $capEnd001,
+       tagStart = $capStart001,
+     )
+  |> fillet(
+       radius = 2,
+       tags = [
+         getCommonEdge(faces = [seg07, capEnd001]),
+         getCommonEdge(faces = [seg08, capEnd001]),
+         getCommonEdge(faces = [seg08, capStart001]),
+         getCommonEdge(faces = [seg07, capStart001])
+       ],
+     )
+
+// Create a clearance hole in the bracket for an M3 screw and countersink the hole
+thruHole = startSketchOn(mountingBracket, face = seg05E)
+  |> circle(center = [70, 0], radius = 3.4 / 2, tag = $seg06E)
+  |> extrude(length = -sheetThickness)
+  |> chamfer(
+       length = sheetThickness * 0.75,
+       tags = [
+         getCommonEdge(faces = [seg05E, seg06E])
+       ],
+     )
+
+  // Duplicate the bracket to the other side of the heat sink base
+  |> patternCircular3d(
+       instances = 2,
+       axis = [0, 0, 1],
+       center = [0, 0, 0],
+       arcDegrees = 360,
+       rotateDuplicates = true,
+     )

public/kcl-samples/cpu-cooler/main.kcl

@@ -0,0 +1,51 @@
+// CPU Cooler
+// A CPU cooler is a device designed to dissipate heat generated by the CPU of a computer. They consist of a brazed heat sink made from aluminum or copper alloys, and one or two axial fans to move airflow across the heat sink.
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Import all parts and parameters into assembly file
+import * from "parameters.kcl"
+import "fan-housing.kcl" as fanHousing
+import "motor.kcl" as motor
+import "fan.kcl" as fan
+import "heat-sink.kcl" as heatSink
+import "mounting-wire.kcl" as mountingWire
+import "removable-sticker.kcl" as removableSticker
+
+// Produce the model for each imported part
+heatSink
+
+fn translatePart(part) {
+  part
+    |> translate(x = heatSinkDepth / 2, z = 40 + fanSize / 2)
+    |> patternLinear3d(
+         %,
+         instances = 2,
+         distance = heatSinkDepth + fanHeight,
+         axis = [-1, 0, 0],
+       )
+  return {  }
+}
+translatePart(part = fanHousing)
+translatePart(part = motor)
+translatePart(part = fan)
+
+mountingWire
+  |> patternCircular3d(
+       %,
+       instances = 2,
+       axis = [0, 1, 0],
+       center = [0, 0, 40 + fanSize / 2],
+       arcDegrees = 360,
+       rotateDuplicates = true,
+     )
+  |> patternCircular3d(
+       %,
+       instances = 2,
+       axis = [0, 0, 1],
+       center = [0, 0, 0],
+       arcDegrees = 360,
+       rotateDuplicates = true,
+     )
+removableSticker

public/kcl-samples/cpu-cooler/motor.kcl

@@ -0,0 +1,21 @@
+// Motor
+// A small electric motor to power the fan
+
+// Set Units
+@settings(defaultLengthUnit = mm)
+
+// Import Parameters
+import * from "parameters.kcl"
+
+// Model the motor body and stem
+startPlane = offsetPlane(YZ, offset = 4)
+motorBody = startSketchOn(startPlane)
+  |> circle(center = [0, 0], radius = 10, tag = $seg04)
+  |> extrude(length = 17)
+  |> fillet(radius = 2, tags = [getOppositeEdge(seg04), seg04])
+  |> appearance(color = "#021b55")
+motorStem = startSketchOn(offsetPlane(YZ, offset = 21))
+  |> circle(center = [0, 0], radius = 1)
+  |> extrude(length = 3.8)
+  |> appearance(color = "#cbcccd")
+[motorBody, motorStem]

public/kcl-samples/cpu-cooler/mounting-wire.kcl

@@ -0,0 +1,79 @@
+// Mounting Wire
+// The flexible metal wire used to clip the fans onto the heat sink
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Import parameters
+import * from "parameters.kcl"
+
+// Draw the XZ component of the mounting wire path
+upperArm = startSketchOn(offsetPlane(XZ, offset = fanSize / 2 + 2))
+  |> startProfile(at = [-12, 40 + fanSize / 2])
+  |> yLine(length = 7)
+  |> tangentialArc(radius = 2, angle = 90)
+  |> xLine(length = -9)
+  |> tangentialArc(radius = 2, angle = -90)
+  |> yLine(length = 14)
+  |> tangentialArc(radius = 2, angle = 90)
+  |> xLine(length = -9)
+  |> tangentialArc(radius = 2, angle = -80)
+  |> angledLine(angle = 100, endAbsoluteY = 40 + fanSize / 2 + mountingHoleSpacing / 2 - 1.5)
+  |> tangentialArc(radius = 2, angle = 80, tag = $seg07)
+
+// Draw the XZ component of the mounting wire path
+lowerArm = startSketchOn(offsetPlane(XZ, offset = fanSize / 2 + 2))
+  |> startProfile(at = [-12, 40 + fanSize / 2])
+  |> yLine(length = -7)
+  |> tangentialArc(radius = 2, angle = -90)
+  |> xLine(length = -9)
+  |> tangentialArc(radius = 2, angle = 90)
+  |> yLine(length = -14)
+  |> tangentialArc(radius = 2, angle = -90)
+  |> xLine(length = -9)
+  |> tangentialArc(radius = 2, angle = 80)
+  |> angledLine(angle = -100, endAbsoluteY = 40 + fanSize / 2 - (mountingHoleSpacing / 2) + 1.5)
+  |> tangentialArc(radius = 2, angle = -80, tag = $seg08)
+
+// Create the profile of the mounting wire and sweep along the XZ path
+wireProfile = startSketchOn(offsetPlane(XY, offset = 40 + fanSize / 2))
+sweepUpperArm = circle(wireProfile, center = [-12, -fanSize / 2 - 2], radius = 1)
+  |> sweep(%, path = upperArm)
+
+sweepLowerArm = circle(wireProfile, center = [-12, -fanSize / 2 - 2], radius = 1)
+  |> sweep(%, path = lowerArm)
+
+// Draw the XY components of the mounting wire path
+upperHook = startSketchOn(offsetPlane(XY, offset = segEndY(seg07)))
+  |> startProfile(at = [segEndX(seg07), -fanSize / 2 - 2])
+  |> xLine(endAbsolute = -heatSinkDepth / 2 - fanHeight)
+  |> tangentialArc(radius = 2, angle = -90)
+  |> yLine(endAbsolute = -mountingHoleSpacing / 2 - 2)
+  |> tangentialArc(radius = 2, angle = -90)
+  |> xLine(length = fanHeight / 3)
+
+// Draw the XY components of the mounting wire path
+lowerHook = startSketchOn(offsetPlane(XY, offset = segEndY(seg08)))
+  |> startProfile(at = [segEndX(seg07), -fanSize / 2 - 2])
+  |> xLine(endAbsolute = -heatSinkDepth / 2 - fanHeight)
+  |> tangentialArc(radius = 2, angle = -90)
+  |> yLine(endAbsolute = -mountingHoleSpacing / 2 - 2)
+  |> tangentialArc(radius = 2, angle = -90)
+  |> xLine(length = fanHeight / 3)
+
+// Sweep the wire profile around the hook-shaped segments of the mounting wire
+hookProfile = startSketchOn(offsetPlane(YZ, offset = segEndX(seg07)))
+sweepUpperHook = circle(hookProfile, center = [-fanSize / 2 - 2, segEndY(seg07)], radius = 1)
+  |> sweep(%, path = upperHook)
+
+sweepLowerHook = circle(hookProfile, center = [-fanSize / 2 - 2, segEndY(seg08)], radius = 1)
+  |> sweep(%, path = lowerHook)
+
+// Union each piece of the wire into a single continuous sweep
+[
+       sweepLowerArm,
+       sweepLowerHook,
+       sweepUpperArm,
+       sweepUpperHook
+     ]
+  |> appearance(color = "#0d0d0d")

public/kcl-samples/cpu-cooler/parameters.kcl

@@ -0,0 +1,13 @@
+// Global parameters for the CPU cooler
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define Parameters
+export fanSize = 120
+export fanHeight = 25
+export mountingHoleSpacing = 105
+export mountingHoleSize = 4.5
+export bendRadius = 15
+export sheetThickness = 2.125
+export heatSinkDepth = 55

public/kcl-samples/cpu-cooler/removable-sticker.kcl

@@ -0,0 +1,25 @@
+// Removable Sticker
+// Protective sticker to be removed before adhering the heat sink to the CPU
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Create a simple body to represent the removable warning sticker. Brightly color the sticker so that the user will not forget to remove it before installing the device
+removableSticker = startSketchOn(-XY)
+  |> startProfile(at = [-12, -12])
+  |> angledLine(angle = 0, length = 24, tag = $rectangleSegmentA001)
+  |> angledLine(angle = segAng(rectangleSegmentA001) + 90, length = 24, tag = $rectangleSegmentB001)
+  |> angledLine(angle = segAng(rectangleSegmentA001), length = -segLen(rectangleSegmentA001), tag = $rectangleSegmentC001)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $rectangleSegmentD001)
+  |> close()
+  |> extrude(length = .3)
+  |> appearance(color = "#021b55")
+  |> chamfer(
+       length = 3,
+       tags = [
+         getNextAdjacentEdge(rectangleSegmentA001),
+         getNextAdjacentEdge(rectangleSegmentB001),
+         getNextAdjacentEdge(rectangleSegmentC001),
+         getNextAdjacentEdge(rectangleSegmentD001)
+       ],
+     )

public/kcl-samples/enclosure/main.kcl

@@ -15,7 +15,7 @@ holeDia = 4
 sketch001 = startSketchOn(XY)
   |> startProfile(at = [0, 0])
   |> angledLine(angle = 0, length = width, tag = $rectangleSegmentA001)
-  |> angledLine(angle = segAng(rectangleSegmentA001) + 90, length = length, tag = $rectangleSegmentB001)
+  |> angledLine(angle = segAng(rectangleSegmentA001) + 90, length, tag = $rectangleSegmentB001)
   |> angledLine(angle = segAng(rectangleSegmentA001), length = -segLen(rectangleSegmentA001), tag = $rectangleSegmentC001)
   |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $rectangleSegmentD001)
   |> close()
@@ -74,7 +74,7 @@ function001([
 sketch003 = startSketchOn(XY)
   |> startProfile(at = [width * 1.2, 0])
   |> angledLine(angle = 0, length = width, tag = $rectangleSegmentA002)
-  |> angledLine(angle = segAng(rectangleSegmentA001) + 90, length = length, tag = $rectangleSegmentB002)
+  |> angledLine(angle = segAng(rectangleSegmentA001) + 90, length, tag = $rectangleSegmentB002)
   |> angledLine(angle = segAng(rectangleSegmentA001), length = -segLen(rectangleSegmentA001), tag = $rectangleSegmentC002)
   |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $rectangleSegmentD002)
   |> close()

public/kcl-samples/gear/main.kcl

@@ -1,112 +0,0 @@
-// Spur Gear
-// A rotating machine part having cut teeth or, in the case of a cogwheel, inserted teeth (called cogs), which mesh with another toothed part to transmit torque. Geared devices can change the speed, torque, and direction of a power source. The two elements that define a gear are its circular shape and the teeth that are integrated into its outer edge, which are designed to fit into the teeth of another gear.
-
-// Set units
-@settings(defaultLengthUnit = in, kclVersion = 1.0)
-
-// Define parameters
-nTeeth = 21
-module = 0.5
-pitchDiameter = module * nTeeth
-pressureAngle = 20
-addendum = module
-deddendum = 1.25 * module
-baseDiameter = pitchDiameter * cos(pressureAngle)
-tipDiameter = pitchDiameter + 2 * module
-gearHeight = 3
-
-// Interpolate points along the involute curve
-cmo = 101
-rs = map(
-  [0..cmo],
-  f = fn(@i) {
-    return baseDiameter / 2 + i / cmo * (tipDiameter - baseDiameter) / 2
-  },
-)
-
-// Calculate operating pressure angle
-angles = map(
-  rs,
-  f = fn(@r) {
-    return units::toDegrees(acos(baseDiameter / 2 / r))
-  },
-)
-
-// Calculate the involute function
-invas = map(
-  angles,
-  f = fn(@a) {
-    return tan(a) - units::toRadians(a)
-  },
-)
-
-// Map the involute curve
-xs = map(
-  [0..cmo],
-  f = fn(@i) {
-    return rs[i] * cos(invas[i]: number(rad))
-  },
-)
-
-ys = map(
-  [0..cmo],
-  f = fn(@i) {
-    return rs[i] * sin(invas[i]: number(rad))
-  },
-)
-
-// Extrude the gear body
-body = startSketchOn(XY)
-  |> circle(center = [0, 0], radius = baseDiameter / 2)
-  |> extrude(length = gearHeight)
-
-toothAngle = 360 / nTeeth / 1.5
-
-// Plot the involute curve
-fn leftInvolute(@i, accum) {
-  j = 100 - i // iterate backwards
-  return line(accum, endAbsolute = [xs[j], ys[j]])
-}
-
-fn rightInvolute(@i, accum) {
-  x = rs[i] * cos(-toothAngle + units::toDegrees(atan(ys[i] / xs[i])))
-  y = -rs[i] * sin(-toothAngle + units::toDegrees(atan(ys[i] / xs[i])))
-  return line(accum, endAbsolute = [x, y])
-}
-
-// Draw gear teeth
-start = startSketchOn(XY)
-  |> startProfile(at = [xs[101], ys[101]])
-teeth = reduce([0..100], initial = start, f = leftInvolute)
-  |> arc(angleStart = 0, angleEnd = toothAngle, radius = baseDiameter / 2)
-  |> reduce([1..101], initial = %, f = rightInvolute)
-  |> close()
-  |> extrude(length = gearHeight)
-  |> patternCircular3d(
-       axis = [0, 0, 1],
-       center = [0, 0, 0],
-       instances = nTeeth,
-       arcDegrees = 360,
-       rotateDuplicates = true,
-     )
-
-// Define the constants of the keyway and the bore hole
-keywayWidth = 0.250
-keywayDepth = keywayWidth / 2
-holeDiam = 2
-holeRadius = 1
-startAngle = asin(keywayWidth / 2 / holeRadius)
-
-// Sketch the keyway and center hole and extrude
-keyWay = startSketchOn(body, face = END)
-  |> startProfile(at = [
-       holeRadius * cos(startAngle),
-       holeRadius * sin(startAngle)
-     ])
-  |> xLine(length = keywayDepth)
-  |> yLine(length = -keywayWidth)
-  |> xLine(length = -keywayDepth)
-  |> arc(angleStart = -1 * units::toDegrees(startAngle) + 360, angleEnd = 180, radius = holeRadius)
-  |> arc(angleStart = 180, angleEnd = units::toDegrees(startAngle), radius = holeRadius)
-  |> close()
-  |> extrude(length = -gearHeight)

public/kcl-samples/hammer/main.kcl

@@ -0,0 +1,118 @@
+// Claw Hammer
+// Often used in construction, a claw hammer is a levered metal hand tool that is used to strike and extract nails
+
+// Set units
+@settings(defaultLengthUnit = in)
+
+// Sketch the side profile of the hammer head
+headSideProfile = startSketchOn(XZ)
+  |> startProfile(at = [0.33, 11.26])
+  |> yLine(length = 0.1)
+  |> tangentialArc(endAbsolute = [0.95, 11.92])
+  |> tangentialArc(endAbsolute = [2.72, 11.26], tag = $seg01)
+  |> angledLine(angle = tangentToEnd(seg01) + 90, length = .2)
+  |> angledLine(angle = tangentToEnd(seg01) - 10, length = -0.5)
+  |> tangentialArc(endAbsolute = [-0.91, 12.78], tag = $seg03)
+  |> tangentialArc(endAbsolute = [-1.67, 12.85])
+  |> xLine(length = -.25)
+  |> tangentialArc(angle = 90, radius = .05)
+  |> yLine(length = -1.125, tag = $seg02)
+  |> tangentialArc(angle = 90, radius = .05)
+  |> xLine(length = .25, tag = $seg04)
+  |> angledLine(angle = 23, length = 0.1)
+  |> tangentialArc(endAbsolute = [-0.33, profileStartY(%)])
+  |> xLine(endAbsolute = profileStartX(%))
+  |> close()
+  |> extrude(length = 3, symmetric = true)
+
+// Sketch the top profile of the hammer head
+headTopProfile = startSketchOn(offsetPlane(XY, offset = 13))
+leftSideCut = startProfile(headTopProfile, at = [-4, -1.6])
+  |> line(endAbsolute = [segEndX(seg02), -segLen(seg02) / 2])
+  |> arc(
+       %,
+       angleStart = 180,
+       angleEnd = 270,
+       radius = .05,
+     )
+  |> xLine(endAbsolute = segEndX(seg04))
+  |> arc(interiorAbsolute = [segEndX(seg03) - .1, lastSegY(%) + .03], endAbsolute = [segEndX(seg03), lastSegY(%)])
+  |> tangentialArc(endAbsolute = [3.39, -1.15])
+  |> yLine(endAbsolute = profileStartY(%))
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> extrude(length = -14)
+
+rearCut = startProfile(headTopProfile, at = [3.39, -0.56])
+  |> angledLine(angle = 177, length = 0.1)
+  |> tangentialArc(endAbsolute = [1.86, -0.37])
+  |> tangentialArc(endAbsolute = [lastSegX(%), -lastSegY(%)])
+  |> tangentialArc(endAbsolute = [profileStartX(%), -profileStartY(%)])
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> extrude(length = -14)
+
+rightSideCut = startProfile(headTopProfile, at = [-4, 1.6])
+  |> line(endAbsolute = [segEndX(seg02), segLen(seg02) / 2])
+  |> arc(
+       %,
+       angleStart = -180,
+       angleEnd = -270,
+       radius = .05,
+     )
+  |> xLine(endAbsolute = segEndX(seg04))
+  |> arc(interiorAbsolute = [segEndX(seg03) - .1, lastSegY(%) - .03], endAbsolute = [segEndX(seg03), lastSegY(%)])
+  |> tangentialArc(endAbsolute = [3.39, 1.15])
+  |> yLine(endAbsolute = profileStartY(%))
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> extrude(length = -14)
+
+// Subtract the top profiles from the side profile to create a CSG hammer shape
+firstProfiles = subtract(
+  [headSideProfile],
+  tools = [
+    union([
+  leftSideCut,
+  union([rearCut, rightSideCut])
+])
+  ],
+)
+
+// Extrude a polygon through the center of the hammer head to create the mounting hole for the handle
+handleHole = startSketchOn(XY)
+  |> polygon(
+       %,
+       radius = .28,
+       numSides = 10,
+       center = [0, 0],
+     )
+  |> extrude(length = 14)
+
+// Add an additional fillet feature to support the handle, and union it to the rest of the head
+baseSupport = startSketchOn(offsetPlane(XY, offset = 11.5))
+  |> circle(center = [0, 0], radius = .45, tag = $seg05)
+  |> extrude(length = 1, tagStart = $capStart001)
+  |> fillet(
+       radius = .05,
+       tags = [
+         getCommonEdge(faces = [seg05, capStart001])
+       ],
+     )
+
+// Union all pieces into a single solid, then cut the handle hole
+hammerHead = union([firstProfiles, baseSupport])
+  |> subtract(tools = [handleHole])
+
+// Draw a profile for the handle, then revolve around the center axis
+handleSketch = startSketchOn(XZ)
+  |> startProfile(at = [0.01, 0])
+  |> xLine(length = 1.125 / 2)
+  |> tangentialArc(angle = 90, radius = 0.05)
+  |> tangentialArc(endAbsolute = [0.38, 12.8 / 1.612])
+  |> tangentialArc(endAbsolute = [0.28, 12.8])
+  |> xLine(endAbsolute = profileStartX(%))
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+handle = revolve(handleSketch, angle = 360, axis = Y)
+  |> appearance(color = "#f14f04")

public/kcl-samples/helical-gear/main.kcl

@@ -0,0 +1,99 @@
+// Helical Gear
+// A helical gear is a type of cylindrical gear where the teeth are slanted at an angle relative to the axis of rotation. This greatly reduces noise and wear when transmitting torque across meshed spinning gears
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define a function to create a helical gear
+fn helicalGear(nTeeth, module, pressureAngle, helixAngle, gearHeight) {
+  // Calculate gear parameters
+  pitchDiameter = module * nTeeth
+  addendum = module
+  deddendum = 1.25 * module
+  baseDiameter = pitchDiameter * cos(pressureAngle)
+  tipDiameter = pitchDiameter + 2 * module
+
+  // Define the constants of the keyway and the bore hole
+  keywayWidth = 2
+  keywayDepth = keywayWidth / 2
+  holeDiam = 7
+  holeRadius = holeDiam / 2
+  startAngle = asin(keywayWidth / 2 / holeRadius)
+
+  // Sketch the keyway and center hole
+  holeWithKeyway = startSketchOn(XY)
+    |> startProfile(at = [
+         holeRadius * cos(startAngle),
+         holeRadius * sin(startAngle)
+       ])
+    |> xLine(length = keywayDepth)
+    |> yLine(length = -keywayWidth)
+    |> xLine(length = -keywayDepth)
+    |> arc(angleStart = -1 * startAngle + 360, angleEnd = 180, radius = holeRadius)
+    |> arc(angleStart = 180, angleEnd = startAngle, radius = holeRadius)
+    |> close()
+
+  // Define a function to create a rotated gear sketch on an offset plane
+  fn helicalGearSketch(offsetHeight) {
+    // Calculate the amount to rotate each planar sketch of the gear given the gear helix angle and total gear height
+    helixCalc = acos(offsetHeight * tan(helixAngle) / (tipDiameter / 2))
+
+    // Using the gear parameters, sketch an involute tooth spanning from the base diameter to the tip diameter
+    helicalGearSketch = startSketchOn(offsetPlane(XY, offset = offsetHeight))
+      |> startProfile(at = polar(angle = helixCalc, length = baseDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = helixCalc,
+           tag = $seg01,
+         )
+      |> line(endAbsolute = polar(angle = 160 / nTeeth + helixCalc, length = tipDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = -(4 * atan(segEndY(seg01) / segEndX(seg01)) - (3 * helixCalc)),
+           reverse = true,
+         )
+
+      // Position the end line of the sketch at the start of the next tooth
+      |> line(endAbsolute = polar(angle = 360 / nTeeth + helixCalc, length = baseDiameter / 2))
+
+      // Pattern the sketch about the center by the specified number of teeth, then close the sketch
+      |> patternCircular2d(
+           %,
+           instances = nTeeth,
+           center = [0, 0],
+           arcDegrees = 360,
+           rotateDuplicates = true,
+         )
+      |> close()
+      |> subtract2d(tool = holeWithKeyway)
+    return helicalGearSketch
+  }
+
+  // Draw a gear sketch on the base plane
+  gearSketch001 = helicalGearSketch(offsetHeight = 0)
+
+  // Draw a rotated gear sketch on a middle interstitial plane
+  gearSketch002 = helicalGearSketch(offsetHeight = gearHeight / 2)
+
+  // Draw a rotated gear sketch at the gear height offset plane
+  gearSketch003 = helicalGearSketch(offsetHeight = gearHeight)
+
+  // Loft each rotated gear sketch together to form a helical gear
+  helicalGear = loft([
+    gearSketch001,
+    gearSketch002,
+    gearSketch003
+  ])
+
+  return helicalGear
+}
+
+helicalGear(
+  nTeeth = 21,
+  module = 2,
+  pressureAngle = 20,
+  helixAngle = 35,
+  gearHeight = 7,
+)

public/kcl-samples/helical-planetary-gearset/main.kcl

@@ -0,0 +1,197 @@
+// Helical Planetary Gearset
+// A helical planetary gearset is a type of planetary gear system where the teeth of the sun gear, planet gears, and/or ring gear are helical rather than straight. This design allows for smoother, quieter operation, greater load-carrying capacity, and more flexible shaft alignment.
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define a function to create a helical gear
+fn helicalGear(nTeeth, module, pressureAngle, helixAngle, gearHeight) {
+  // Calculate gear parameters
+  pitchDiameter = module * nTeeth
+  addendum = module
+  deddendum = 1.25 * module
+  baseDiameter = pitchDiameter * cos(pressureAngle)
+  tipDiameter = pitchDiameter + 2 * module
+
+  // Define the constants of the keyway and the bore hole
+  keywayWidth = 1
+  keywayDepth = keywayWidth / 2
+  holeDiam = 7
+  holeRadius = holeDiam / 2
+  startAngle = asin(keywayWidth / 2 / holeRadius)
+
+  // Sketch the keyway and center hole
+  holeWithKeyway = startSketchOn(XY)
+    |> startProfile(at = [
+         holeRadius * cos(startAngle),
+         holeRadius * sin(startAngle)
+       ])
+    |> xLine(length = keywayDepth)
+    |> yLine(length = -keywayWidth)
+    |> xLine(length = -keywayDepth)
+    |> arc(angleStart = -1 * startAngle + 360, angleEnd = 180, radius = holeRadius)
+    |> arc(angleStart = 180, angleEnd = startAngle, radius = holeRadius)
+    |> close()
+
+  // Define a function to create a rotated gear sketch on an offset plane
+  fn helicalGearSketch(offsetHeight) {
+    // Calculate the amount to rotate each planar sketch of the gear given the gear helix angle and total gear height
+    helixCalc = acos(offsetHeight * tan(helixAngle) / (tipDiameter / 2))
+
+    // Using the gear parameters, sketch an involute tooth spanning from the base diameter to the tip diameter
+    helicalGearSketch = startSketchOn(offsetPlane(XY, offset = offsetHeight))
+      |> startProfile(at = polar(angle = helixCalc, length = baseDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = helixCalc,
+           tag = $seg01,
+         )
+      |> line(endAbsolute = polar(angle = 160 / nTeeth + helixCalc, length = tipDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = -(4 * atan(segEndY(seg01) / segEndX(seg01)) - (3 * helixCalc)),
+           reverse = true,
+         )
+
+      // Position the end line of the sketch at the start of the next tooth
+      |> line(endAbsolute = polar(angle = 360 / nTeeth + helixCalc, length = baseDiameter / 2))
+
+      // Pattern the sketch about the center by the specified number of teeth, then close the sketch
+      |> patternCircular2d(
+           %,
+           instances = nTeeth,
+           center = [0, 0],
+           arcDegrees = 360,
+           rotateDuplicates = true,
+         )
+      |> close()
+      |> subtract2d(tool = holeWithKeyway)
+    return helicalGearSketch
+  }
+
+  // Draw a gear sketch on the base plane
+  gearSketch001 = helicalGearSketch(offsetHeight = 0)
+
+  // Draw a rotated gear sketch on a middle interstitial plane
+  gearSketch002 = helicalGearSketch(offsetHeight = gearHeight / 2)
+
+  // Draw a rotated gear sketch at the gear height offset plane
+  gearSketch003 = helicalGearSketch(offsetHeight = gearHeight)
+
+  // Loft each rotated gear sketch together to form a helical gear
+  helicalGear = loft([
+    gearSketch001,
+    gearSketch002,
+    gearSketch003
+  ])
+
+  return helicalGear
+}
+
+// Define a function to create a ring gear
+fn ringGear(nTeeth, module, pressureAngle, helixAngle, gearHeight) {
+  // Calculate gear parameters
+  pitchDiameter = module * nTeeth
+  addendum = module
+  deddendum = 1.25 * module
+  baseDiameter = pitchDiameter * cos(pressureAngle)
+  tipDiameter = pitchDiameter + 2 * module
+
+  // Define a function to create a rotated gear sketch on an offset plane
+  fn ringGearSketch(offsetHeight) {
+    // Calculate the amount to rotate each planar sketch of the gear given the gear helix angle and total gear height
+    helixCalc = acos(offsetHeight * tan(helixAngle) / (tipDiameter / 2))
+
+    // Using the gear parameters, sketch an involute tooth spanning from the base diameter to the tip diameter
+    ringTeeth = startSketchOn(offsetPlane(XY, offset = offsetHeight))
+      |> startProfile(at = polar(angle = helixCalc, length = baseDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = helixCalc,
+           tag = $seg01,
+         )
+      |> line(endAbsolute = polar(angle = 200 / nTeeth + helixCalc, length = tipDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = -(4 * atan(segEndY(seg01) / segEndX(seg01)) - (3 * helixCalc)),
+           reverse = true,
+         )
+
+      // Position the end line of the sketch at the start of the next tooth
+      |> line(endAbsolute = polar(angle = 360 / nTeeth + helixCalc, length = baseDiameter / 2))
+
+      // Pattern the sketch about the center by the specified number of teeth, then close the sketch
+      |> patternCircular2d(
+           %,
+           instances = nTeeth,
+           center = [0, 0],
+           arcDegrees = 360,
+           rotateDuplicates = true,
+         )
+      |> close()
+
+    // Create a circular body that is larger than the tip diameter of the gear, then subtract the gear profile from the body
+    ringGearSketch = startSketchOn(offsetPlane(XY, offset = offsetHeight))
+      |> circle(center = [0, 0], radius = tipDiameter / 1.85)
+      |> subtract2d(tool = ringTeeth)
+    return ringGearSketch
+  }
+
+  // Draw a gear sketch on the base plane
+  gearSketch001 = ringGearSketch(offsetHeight = 0)
+
+  // Draw a rotated gear sketch on a middle interstitial plane
+  gearSketch002 = ringGearSketch(offsetHeight = gearHeight / 2)
+
+  // Draw a rotated gear sketch at the gear height offset plane
+  gearSketch003 = ringGearSketch(offsetHeight = gearHeight)
+
+  // Loft each rotated gear sketch together to form a ring gear
+  ringGear = loft([
+    gearSketch001,
+    gearSketch002,
+    gearSketch003
+  ])
+
+  return ringGear
+}
+
+// Create the outer ring gear for the planetary gearset
+ringGear(
+  nTeeth = 42,
+  module = 1.5,
+  pressureAngle = 14,
+  helixAngle = -25,
+  gearHeight = 5,
+)
+
+// Create a central sun gear using a small helical gear
+helicalGear(
+  nTeeth = 12,
+  module = 1.5,
+  pressureAngle = 14,
+  helixAngle = 25,
+  gearHeight = 5,
+)
+
+// Create the helical planet gears
+numPlanetGears = 3
+helicalGear(
+       nTeeth = 12,
+       module = 1.5,
+       pressureAngle = 14,
+       helixAngle = -25,
+       gearHeight = 5,
+     )
+  |> translate(y = (12 + 12) / 2 * 1.5 + 2.7)
+  |> patternCircular3d(
+       instances = numPlanetGears,
+       axis = [0, 0, 1],
+       center = [0, 0, 0],
+       arcDegrees = 360,
+       rotateDuplicates = false,
+     )

public/kcl-samples/helium-tank/main.kcl

@@ -0,0 +1,123 @@
+// Helium Tank
+// A helium tank is a portable pressure vessel used to store and dispense helium gas for a variety of commercial and entertainment purposes
+
+// Set units
+@settings(defaultLengthUnit = in)
+
+// Define parameters
+tankHeight = 2.5ft
+tankDiameter = 9
+wallThickness = 0.125
+portDiameter = 1.25
+bracketThickness = 0.090
+boltSize = 1 / 4
+
+// Sketch the perimeter of the gas tank- inside and out, then revolve around the vertical axis.
+tankSketch = startSketchOn(YZ)
+  |> startProfile(at = [portDiameter / 2, tankHeight])
+  |> yLine(length = -0.6)
+  |> xLine(length = 0.1)
+  |> tangentialArc(angle = -110, radius = 0.1)
+  |> tangentialArc(angle = 40, radius = 0.6)
+  |> tangentialArc(angle = -110, radius = 0.1)
+  |> tangentialArc(angle = 180, radius = 0.1)
+  |> tangentialArc(angle = -90, radius = tankDiameter / 2 - lastSegX(%), tag = $seg01)
+  |> angledLine(angle = tangentToEnd(seg01), endAbsoluteY = 1.5, tag = $seg09)
+  |> tangentialArc(angle = -90, radius = 2, tag = $seg02)
+  |> angledLine(angle = tangentToEnd(seg02), endAbsoluteX = 0.001, tag = $seg08)
+  |> yLine(length = wallThickness)
+  |> xLine(length = segLen(seg08))
+  |> tangentialArc(angle = 90, radius = 2 - wallThickness)
+  |> yLine(length = segLen(seg09))
+  |> tangentialArc(angle = 90, radius = tankDiameter / 2 - wallThickness - 1.3)
+  |> xLine(endAbsolute = profileStartX(%) - .1)
+  |> yLine(endAbsolute = profileStartY(%))
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+
+// Only revolving to 220deg so that the interior of the tank is visible. It should ultimately be closed at 360deg
+tankRevolve = revolve(tankSketch, angle = 220, axis = Y)
+
+// Model the brass valve on top of the tank port
+valveBody = startSketchOn(offsetPlane(XY, offset = tankHeight - 0.5))
+  |> circle(center = [0, 0], radius = portDiameter / 1.9, tag = $seg03)
+  |> extrude(length = 1.5, tagEnd = $capEnd001)
+  |> fillet(
+       radius = 0.1,
+       tags = [
+         getCommonEdge(faces = [seg03, capEnd001])
+       ],
+     )
+
+// Model the outlet port of the valve, then union it all together
+valvePort = startSketchOn(YZ)
+  |> circle(center = [0, tankHeight + 0.3], radius = portDiameter / 3)
+  |> subtract2d(tool = circle(center = [0, tankHeight + 0.3], radius = portDiameter / 3.25))
+  |> extrude(length = 1.3)
+valve = union([valveBody, valvePort])
+  |> appearance(color = "#9a4618")
+
+// Sketch the offset profile of the mounting bracket
+bracketOffsetProfile = startSketchOn(offsetPlane(XY, offset = tankHeight * 0.67))
+  |> startProfile(at = [0, tankDiameter / 2 + wallThickness])
+  |> xLine(length = -0.1)
+  |> tangentialArc(angle = 35, radius = tankDiameter / 2 + wallThickness)
+  |> tangentialArc(angle = -135, radius = 0.25 - wallThickness, tag = $seg06)
+  |> angledLine(angle = tangentToEnd(seg06), length = tankDiameter / 7)
+  |> tangentialArc(angle = -80, radius = 0.25 - wallThickness, tag = $seg07)
+  |> angledLine(angle = tangentToEnd(seg07), endAbsoluteX = 0)
+  |> mirror2d(axis = Y)
+  |> close()
+
+// Sketch the outer perimeter of the offset bracket, then subtract the inner offset to create a constant thickness sheet metal hoop
+bracketProfile = startSketchOn(offsetPlane(XY, offset = tankHeight * 0.67))
+  |> startProfile(at = [0, tankDiameter / 2])
+  |> xLine(length = -0.1)
+  |> tangentialArc(angle = 35, radius = tankDiameter / 2)
+  |> tangentialArc(angle = -135, radius = 0.25, tag = $seg04)
+  |> angledLine(angle = tangentToEnd(seg04), length = tankDiameter / 7)
+  |> tangentialArc(angle = -80, radius = 0.25, tag = $seg05)
+  |> angledLine(angle = tangentToEnd(seg05), endAbsoluteX = 0)
+  |> mirror2d(axis = Y)
+  |> close()
+  |> subtract2d(tool = bracketOffsetProfile)
+  |> extrude(length = 1, symmetric = true)
+
+// Cut holes in the bracket for a mounting strap
+strapSleeve = startSketchOn(offsetPlane(XY, offset = tankHeight * 0.67))
+  |> circle(center = [0, .125 / 2], radius = 4.75)
+  |> subtract2d(tool = circle(center = [0, .125 / 2], radius = 4.65))
+  |> extrude(length = .8, symmetric = true)
+bracketSleeve = subtract([bracketProfile], tools = [strapSleeve])
+
+// Create holes in the bracket for anchor mounts to secure the bracket to a wall
+mountingHoles = startSketchOn(offsetPlane(XZ, offset = -tankDiameter / 1.9))
+  |> circle(center = [tankDiameter / 4.5, tankHeight * 0.67], radius = boltSize / 2)
+  |> extrude(length = -5)
+
+bracket = subtract(
+       [bracketSleeve],
+       tools = union(patternLinear3d(
+         mountingHoles,
+         instances = 2,
+         distance = tankDiameter / 2.25,
+         axis = [-1, 0, 0],
+       )),
+     )
+  |> appearance(color = "#cd0404")
+
+// Model a circular strap to secure the tank to the bracket
+mountingStrap = startSketchOn(offsetPlane(XY, offset = tankHeight * 0.67))
+  |> circle(center = [0, .155 / 2], radius = tankDiameter / 1.9)
+  |> subtract2d(tool = circle(center = [0, .155 / 2], radius = tankDiameter / 1.9 - 0.1))
+  |> extrude(length = .75, symmetric = true)
+  |> appearance(color = "#210d03")
+
+// Create a second instance of the bracket and strap at a lower point on the tank
+[bracket, mountingStrap]
+  |> patternLinear3d(
+       %,
+       instances = 2,
+       distance = tankHeight * 0.33,
+       axis = [0, 0, -1],
+     )

public/kcl-samples/herringbone-gear/main.kcl

@@ -0,0 +1,84 @@
+// Herringbone Gear
+// A herringbone, or double-helical gear, is a cylindrical gear type with angled teeth in opposing directions. This allows the quietness and smoothness of a helical gear, without applying a directional load while turning
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define a function to create a herringbone gear
+fn herringboneGear(nTeeth, module, pressureAngle, helixAngle, gearHeight) {
+  // Calculate gear parameters
+  pitchDiameter = module * nTeeth
+  addendum = module
+  deddendum = 1.25 * module
+  baseDiameter = pitchDiameter * cos(pressureAngle)
+  tipDiameter = pitchDiameter + 2 * module
+
+  // Define a function to create a rotated gear sketch on an offset plane
+  fn herringboneGearSketch(offsetHeight) {
+    // Calculate the amount to rotate each planar sketch of the gear given the gear helix angle and total gear height
+    helixCalc = acos(offsetHeight * tan(helixAngle) / (tipDiameter / 2))
+
+    // Using the gear parameters, sketch an involute tooth spanning from the base diameter to the tip diameter
+    herringboneGearSketch = startSketchOn(offsetPlane(XY, offset = offsetHeight))
+      |> startProfile(at = polar(angle = helixCalc, length = baseDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = helixCalc,
+           tag = $seg01,
+         )
+      |> line(endAbsolute = polar(angle = 160 / nTeeth + helixCalc, length = tipDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = -(4 * atan(segEndY(seg01) / segEndX(seg01)) - (3 * helixCalc)),
+           reverse = true,
+         )
+
+      // Position the end line of the sketch at the start of the next tooth
+      |> line(endAbsolute = polar(angle = 360 / nTeeth + helixCalc, length = baseDiameter / 2))
+
+      // Pattern the sketch about the center by the specified number of teeth, then close the sketch
+      |> patternCircular2d(
+           %,
+           instances = nTeeth,
+           center = [0, 0],
+           arcDegrees = 360,
+           rotateDuplicates = true,
+         )
+      |> close()
+      // Create a center hole with an 8mm diameter
+      |> subtract2d(tool = circle(center = [0, 0], radius = 4))
+    return herringboneGearSketch
+  }
+
+  // Draw a gear sketch on the base plane
+  gearSketch001 = herringboneGearSketch(offsetHeight = 0)
+
+  // Draw a gear sketch that has been rotated by the helix angle
+  gearSketch002 = herringboneGearSketch(offsetHeight = gearHeight / 2)
+
+  // Draw a gear sketch at the total gear height that reverses the angle direction
+  gearSketch003 = clone(gearSketch001)
+    |> translate(z = gearHeight)
+
+  // Loft each rotated gear sketch together to form a herringbone gear
+  herringboneGear = loft(
+    [
+      gearSketch001,
+      gearSketch002,
+      gearSketch003
+    ],
+    vDegree = 1,
+  )
+
+  return herringboneGear
+}
+
+herringboneGear(
+  nTeeth = 25,
+  module = 1,
+  pressureAngle = 14,
+  helixAngle = 40,
+  gearHeight = 8,
+)

public/kcl-samples/herringbone-planetary-gearset/main.kcl

@@ -0,0 +1,186 @@
+// Herringbone Planetary Gearset
+// A herringbone planetary gearset is a type of planetary gear system where the teeth of the sun gear, planet gears, and/or ring gear are herringbone rather than straight. This design allows for smoother, quieter operation, greater load-carrying capacity, and more flexible shaft alignment.
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define a function to create a herringbone gear
+fn herringboneGear(nTeeth, module, pressureAngle, helixAngle, gearHeight) {
+  // Calculate gear parameters
+  pitchDiameter = module * nTeeth
+  addendum = module
+  deddendum = 1.25 * module
+  baseDiameter = pitchDiameter * cos(pressureAngle)
+  tipDiameter = pitchDiameter + 2 * module
+
+  // Define a function to create a rotated gear sketch on an offset plane
+  fn herringboneGearSketch(offsetHeight) {
+    // Calculate the amount to rotate each planar sketch of the gear given the gear helix angle and total gear height
+    helixCalc = acos(offsetHeight * tan(helixAngle) / (tipDiameter / 2))
+
+    // Using the gear parameters, sketch an involute tooth spanning from the base diameter to the tip diameter
+    herringboneGearSketch = startSketchOn(offsetPlane(XY, offset = offsetHeight))
+      |> startProfile(at = polar(angle = helixCalc, length = baseDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = helixCalc,
+           tag = $seg01,
+         )
+      |> line(endAbsolute = polar(angle = 160 / nTeeth + helixCalc, length = tipDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = -(4 * atan(segEndY(seg01) / segEndX(seg01)) - (3 * helixCalc)),
+           reverse = true,
+         )
+
+      // Position the end line of the sketch at the start of the next tooth
+      |> line(endAbsolute = polar(angle = 360 / nTeeth + helixCalc, length = baseDiameter / 2))
+
+      // Pattern the sketch about the center by the specified number of teeth, then close the sketch
+      |> patternCircular2d(
+           %,
+           instances = nTeeth,
+           center = [0, 0],
+           arcDegrees = 360,
+           rotateDuplicates = true,
+         )
+      |> close()
+      // Create a center hole with an 8mm diameter
+      |> subtract2d(tool = circle(center = [0, 0], radius = 4))
+    return herringboneGearSketch
+  }
+
+  // Draw a gear sketch on the base plane
+  gearSketch001 = herringboneGearSketch(offsetHeight = 0)
+
+  // Draw a gear sketch that has been rotated by the helix angle
+  gearSketch002 = herringboneGearSketch(offsetHeight = gearHeight / 2)
+
+  // Draw a gear sketch at the total gear height that reverses the angle direction
+  gearSketch003 = clone(gearSketch001)
+    |> translate(z = gearHeight)
+
+  // Loft each rotated gear sketch together to form a herringbone gear
+  herringboneGear = loft(
+    [
+      gearSketch001,
+      gearSketch002,
+      gearSketch003
+    ],
+    vDegree = 1,
+  )
+
+  return herringboneGear
+}
+
+// Define a function to create a ring gear
+fn ringGear(nTeeth, module, pressureAngle, helixAngle, gearHeight) {
+  // Calculate gear parameters
+  pitchDiameter = module * nTeeth
+  addendum = module
+  deddendum = 1.25 * module
+  baseDiameter = pitchDiameter * cos(pressureAngle)
+  tipDiameter = pitchDiameter + 2 * module
+
+  // Define a function to create a rotated gear sketch on an offset plane
+  fn ringGearSketch(offsetHeight) {
+    // Calculate the amount to rotate each planar sketch of the gear given the gear helix angle and total gear height
+    helixCalc = acos(offsetHeight * tan(helixAngle) / (tipDiameter / 2))
+
+    // Using the gear parameters, sketch an involute tooth spanning from the base diameter to the tip diameter
+    ringTeeth = startSketchOn(offsetPlane(XY, offset = offsetHeight))
+      |> startProfile(at = polar(angle = helixCalc, length = baseDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = helixCalc,
+           tag = $seg01,
+         )
+      |> line(endAbsolute = polar(angle = 220 / nTeeth + helixCalc, length = tipDiameter / 2))
+      |> involuteCircular(
+           startRadius = baseDiameter / 2,
+           endRadius = tipDiameter / 2,
+           angle = -(4 * atan(segEndY(seg01) / segEndX(seg01)) - (3 * helixCalc)),
+           reverse = true,
+         )
+
+      // Position the end line of the sketch at the start of the next tooth
+      |> line(endAbsolute = polar(angle = 360 / nTeeth + helixCalc, length = baseDiameter / 2))
+
+      // Pattern the sketch about the center by the specified number of teeth, then close the sketch
+      |> patternCircular2d(
+           %,
+           instances = nTeeth,
+           center = [0, 0],
+           arcDegrees = 360,
+           rotateDuplicates = true,
+         )
+      |> close()
+
+    // Create a circular body that is larger than the tip diameter of the gear, then subtract the gear profile from the body
+    ringGearSketch = startSketchOn(offsetPlane(XY, offset = offsetHeight))
+      |> circle(center = [0, 0], radius = tipDiameter / 1.8)
+      |> subtract2d(tool = ringTeeth)
+    return ringGearSketch
+  }
+
+  // Draw a gear sketch on the base plane
+  gearSketch001 = ringGearSketch(offsetHeight = 0)
+
+  // Draw a rotated gear sketch on a middle interstitial plane
+  gearSketch002 = ringGearSketch(offsetHeight = gearHeight / 2)
+
+  // Draw a gear sketch at the total gear height that reverses the angle direction
+  gearSketch003 = clone(gearSketch001)
+    |> translate(z = gearHeight)
+
+  // Loft each rotated gear sketch together to form a ring gear
+  ringGear = loft(
+    [
+      gearSketch001,
+      gearSketch002,
+      gearSketch003
+    ],
+    vDegree = 1,
+  )
+
+  return ringGear
+}
+
+// Create the outer ring gear for the planetary gearset
+ringGear(
+  nTeeth = 58,
+  module = 1.5,
+  pressureAngle = 14,
+  helixAngle = -35,
+  gearHeight = 8,
+)
+
+// Create a central sun gear using a small herringbone gear
+herringboneGear(
+  nTeeth = 18,
+  module = 1.5,
+  pressureAngle = 14,
+  helixAngle = 35,
+  gearHeight = 8,
+)
+
+// Create the herringbone planet gears
+numPlanetGears = 4
+herringboneGear(
+       nTeeth = 18,
+       module = 1.5,
+       pressureAngle = 14,
+       helixAngle = -35,
+       gearHeight = 8,
+     )
+  |> translate(y = 18 * 1.5 + 1.95)
+  |> patternCircular3d(
+       instances = numPlanetGears,
+       axis = [0, 0, 1],
+       center = [0, 0, 0],
+       arcDegrees = 360,
+       rotateDuplicates = false,
+     )

public/kcl-samples/manifest.json

@@ -44,6 +44,16 @@
       "main.kcl"
     ]
   },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "bone-plate/main.kcl",
+    "multipleFiles": false,
+    "title": "Bone Plate",
+    "description": "A bone plate is a medical device used in orthopedics to stabilize and fix bone fractures during the healing process. They are typically made of stainless steel or titanium and are secured to the bone with screws. Bone plates come in various types, including locking, compression, and bridge plates, each with specific applications",
+    "files": [
+      "main.kcl"
+    ]
+  },
   {
     "file": "main.kcl",
     "pathFromProjectDirectoryToFirstFile": "bottle/main.kcl",
@@ -80,6 +90,16 @@
       "parameters.kcl"
     ]
   },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "cold-plate/main.kcl",
+    "multipleFiles": false,
+    "title": "Cold Plate",
+    "description": "A cold plate is a thermal management device used to remove heat from a device or component, typically by transferring heat to a liquid coolant that flows through the plate. It's a conductive cooling solution, commonly made of materials like aluminum or copper, with internal channels or tubes for the coolant",
+    "files": [
+      "main.kcl"
+    ]
+  },
   {
     "file": "main.kcl",
     "pathFromProjectDirectoryToFirstFile": "color-cube/main.kcl",
@@ -90,6 +110,43 @@
       "main.kcl"
     ]
   },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "counterdrilled-weldment/main.kcl",
+    "multipleFiles": false,
+    "title": "Counterdrilled Weldment",
+    "description": "A metal weldment consisting of a counterdrilled plate, a centrally mounted housing tube, and four structural support fins.",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "countersunk-plate/main.kcl",
+    "multipleFiles": false,
+    "title": "Plate with countersunk holes",
+    "description": "A small mounting plate with a countersunk hole at each end",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "cpu-cooler/main.kcl",
+    "multipleFiles": true,
+    "title": "CPU Cooler",
+    "description": "A CPU cooler is a device designed to dissipate heat generated by the CPU of a computer. They consist of a brazed heat sink made from aluminum or copper alloys, and one or two axial fans to move airflow across the heat sink.",
+    "files": [
+      "fan-housing.kcl",
+      "fan.kcl",
+      "heat-sink.kcl",
+      "main.kcl",
+      "motor.kcl",
+      "mounting-wire.kcl",
+      "parameters.kcl",
+      "removable-sticker.kcl"
+    ]
+  },
   {
     "file": "main.kcl",
     "pathFromProjectDirectoryToFirstFile": "cycloidal-gear/main.kcl",
@@ -170,16 +227,6 @@
       "main.kcl"
     ]
   },
-  {
-    "file": "main.kcl",
-    "pathFromProjectDirectoryToFirstFile": "gear/main.kcl",
-    "multipleFiles": false,
-    "title": "Spur Gear",
-    "description": "A rotating machine part having cut teeth or, in the case of a cogwheel, inserted teeth (called cogs), which mesh with another toothed part to transmit torque. Geared devices can change the speed, torque, and direction of a power source. The two elements that define a gear are its circular shape and the teeth that are integrated into its outer edge, which are designed to fit into the teeth of another gear.",
-    "files": [
-      "main.kcl"
-    ]
-  },
   {
     "file": "main.kcl",
     "pathFromProjectDirectoryToFirstFile": "gear-rack/main.kcl",
@@ -230,6 +277,66 @@
       "main.kcl"
     ]
   },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "hammer/main.kcl",
+    "multipleFiles": false,
+    "title": "Claw Hammer",
+    "description": "Often used in construction, a claw hammer is a levered metal hand tool that is used to strike and extract nails",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "helical-gear/main.kcl",
+    "multipleFiles": false,
+    "title": "Helical Gear",
+    "description": "A helical gear is a type of cylindrical gear where the teeth are slanted at an angle relative to the axis of rotation. This greatly reduces noise and wear when transmitting torque across meshed spinning gears",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "helical-planetary-gearset/main.kcl",
+    "multipleFiles": false,
+    "title": "Helical Planetary Gearset",
+    "description": "A helical planetary gearset is a type of planetary gear system where the teeth of the sun gear, planet gears, and/or ring gear are helical rather than straight. This design allows for smoother, quieter operation, greater load-carrying capacity, and more flexible shaft alignment.",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "helium-tank/main.kcl",
+    "multipleFiles": false,
+    "title": "Helium Tank",
+    "description": "A helium tank is a portable pressure vessel used to store and dispense helium gas for a variety of commercial and entertainment purposes",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "herringbone-gear/main.kcl",
+    "multipleFiles": false,
+    "title": "Herringbone Gear",
+    "description": "A herringbone, or double-helical gear, is a cylindrical gear type with angled teeth in opposing directions. This allows the quietness and smoothness of a helical gear, without applying a directional load while turning",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "herringbone-planetary-gearset/main.kcl",
+    "multipleFiles": false,
+    "title": "Herringbone Planetary Gearset",
+    "description": "A herringbone planetary gearset is a type of planetary gear system where the teeth of the sun gear, planet gears, and/or ring gear are herringbone rather than straight. This design allows for smoother, quieter operation, greater load-carrying capacity, and more flexible shaft alignment.",
+    "files": [
+      "main.kcl"
+    ]
+  },
   {
     "file": "main.kcl",
     "pathFromProjectDirectoryToFirstFile": "hex-nut/main.kcl",
@@ -317,12 +424,15 @@
   },
   {
     "file": "main.kcl",
-    "pathFromProjectDirectoryToFirstFile": "parametric-bearing-pillow-block/main.kcl",
-    "multipleFiles": false,
-    "title": "Parametric Bearing Pillow Block",
+    "pathFromProjectDirectoryToFirstFile": "pillow-block-bearing/main.kcl",
+    "multipleFiles": true,
+    "title": "Pillow Block Bearing",
     "description": "A bearing pillow block, also known as a plummer block or pillow block bearing, is a pedestal used to provide support for a rotating shaft with the help of compatible bearings and various accessories. Housing a bearing, the pillow block provides a secure and stable foundation that allows the shaft to rotate smoothly within its machinery setup. These components are essential in a wide range of mechanical systems and machinery, playing a key role in reducing friction and supporting radial and axial loads.",
     "files": [
-      "main.kcl"
+      "ball-bearing.kcl",
+      "block.kcl",
+      "main.kcl",
+      "parameters.kcl"
     ]
   },
   {
@@ -372,6 +482,16 @@
       "main.kcl"
     ]
   },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "prosthetic-hip/main.kcl",
+    "multipleFiles": false,
+    "title": "Prosthetic Hip",
+    "description": "A prosthetic hip is a surgically implanted ball-and-socket intended to replace a damaged or worn hip joint",
+    "files": [
+      "main.kcl"
+    ]
+  },
   {
     "file": "main.kcl",
     "pathFromProjectDirectoryToFirstFile": "router-template-cross-bar/main.kcl",
@@ -412,6 +532,46 @@
       "main.kcl"
     ]
   },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "spur-gear/main.kcl",
+    "multipleFiles": false,
+    "title": "Spur Gear",
+    "description": "A rotating machine part having cut teeth or, in the case of a cogwheel, inserted teeth (called cogs), which mesh with another toothed part to transmit torque. Geared devices can change the speed, torque, and direction of a power source. The two elements that define a gear are its circular shape and the teeth that are integrated into its outer edge, which are designed to fit into the teeth of another gear.",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "spur-reduction-gearset/main.kcl",
+    "multipleFiles": false,
+    "title": "Spur Reduction Gearset",
+    "description": "A pair of spur gears meshed together, with an equal module and different number of teeth",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "surgical-drill-guide/main.kcl",
+    "multipleFiles": false,
+    "title": "Surgical Drill Guide",
+    "description": "A surgical drill guide is a tool used in medical procedures to assist in drilling holes to a desired depth, ensuring proper orientation and minimizing intraosseal pressure",
+    "files": [
+      "main.kcl"
+    ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "tooling-nest-block/main.kcl",
+    "multipleFiles": false,
+    "title": "Tooling Nest Block",
+    "description": "A tooling nest block is a block-shaped tool made from high-carbon steel. It features an assortment of conical or hemispherical indentions, which are used to form or shape metal, particularly in crafting bells or jewelry",
+    "files": [
+      "main.kcl"
+    ]
+  },
   {
     "file": "main.kcl",
     "pathFromProjectDirectoryToFirstFile": "utility-sink/main.kcl",
@@ -449,5 +609,15 @@
     "files": [
       "main.kcl"
     ]
+  },
+  {
+    "file": "main.kcl",
+    "pathFromProjectDirectoryToFirstFile": "wing-spar/main.kcl",
+    "multipleFiles": false,
+    "title": "Wing Spar",
+    "description": "In a fixed-wing aircraft, the spar is often the main structural member of the wing, running spanwise at right angles (or thereabouts depending on wing sweep) to the fuselage. The spar carries flight loads and the weight of the wings while on the ground. Other structural and forming members such as ribs may be attached to the spars",
+    "files": [
+      "main.kcl"
+    ]
   }
 ]

public/kcl-samples/parametric-bearing-pillow-block/main.kcl

@@ -1,51 +0,0 @@
-// Parametric Bearing Pillow Block
-// A bearing pillow block, also known as a plummer block or pillow block bearing, is a pedestal used to provide support for a rotating shaft with the help of compatible bearings and various accessories. Housing a bearing, the pillow block provides a secure and stable foundation that allows the shaft to rotate smoothly within its machinery setup. These components are essential in a wide range of mechanical systems and machinery, playing a key role in reducing friction and supporting radial and axial loads.
-
-// Set units
-@settings(defaultLengthUnit = in, kclVersion = 1.0)
-
-// Define parameters
-length = 6
-width = 4
-height = 1
-cbDepth = .25
-cbDia = .7
-holeDia = .375
-padding = 1.5
-bearingDia = 3
-
-// Sketch the block body
-body = startSketchOn(XY)
-  |> startProfile(at = [-width / 2, -length / 2])
-  |> line(endAbsolute = [width / 2, -length / 2])
-  |> line(endAbsolute = [width / 2, length / 2])
-  |> line(endAbsolute = [-width / 2, length / 2])
-  |> close()
-  |> extrude(length = height)
-counterBoreHoles = startSketchOn(body, face = END)
-  |> circle(
-       center = [
-         -(width / 2 - (padding / 2)),
-         -(length / 2 - (padding / 2))
-       ],
-       radius = cbDia / 2,
-     )
-  |> patternLinear2d(instances = 2, distance = length - padding, axis = [0, 1])
-  |> patternLinear2d(instances = 2, distance = width - padding, axis = [1, 0])
-  |> extrude(%, length = -cbDepth)
-
-boltHoles = startSketchOn(body, face = START)
-  |> circle(
-       center = [
-         -(width / 2 - (padding / 2)),
-         -(length / 2 - (padding / 2))
-       ],
-       radius = holeDia / 2,
-     )
-  |> patternLinear2d(instances = 2, distance = length - padding, axis = [0, 1])
-  |> patternLinear2d(instances = 2, distance = width - padding, axis = [1, 0])
-  |> extrude(length = -height + cbDepth)
-
-centerHole = startSketchOn(body, face = END)
-  |> circle(center = [0, 0], radius = bearingDia / 2)
-  |> extrude(length = -height)

public/kcl-samples/pillow-block-bearing/ball-bearing.kcl

@@ -0,0 +1,101 @@
+// Pillow Block Bearing
+// The ball bearing for the pillow block bearing assembly
+
+// Set units
+@settings(defaultLengthUnit = in)
+
+// Import Parameters
+import * from "parameters.kcl"
+
+// Create the sketch of one of the balls. The ball diameter is sized as a fraction of the difference between inner and outer radius of the bearing
+ballsSketch = startSketchOn(offsetPlane(XY, offset = stockThickness / 2))
+  |> startProfile(at = [bearingBoreDiameter / 2 + 0.1, 0.001])
+  |> arc(angleEnd = 0, angleStart = 180, radius = sphereDia / 2)
+  |> close()
+
+// Revolve the ball to make a sphere and pattern around the inside wall
+balls = revolve(ballsSketch, axis = X)
+  |> patternCircular3d(
+       arcDegrees = 360,
+       axis = [0, 0, 1],
+       center = [0, 0, 0],
+       instances = 16,
+       rotateDuplicates = true,
+     )
+
+// Create the sketch for the chain around the balls
+chainSketch = startSketchOn(offsetPlane(XY, offset = stockThickness / 2))
+  |> startProfile(at = [
+       bearingBoreDiameter / 2 + 0.1 + sphereDia / 2 - (chainWidth / 2),
+       0.125 * sin(60deg)
+     ])
+  |> arc(angleEnd = 60, angleStart = 120, radius = sphereDia / 2)
+  |> line(end = [0, chainThickness])
+  |> line(end = [-chainWidth, 0])
+  |> close()
+
+// Revolve the chain sketch
+chainHead = revolve(chainSketch, axis = X)
+  |> patternCircular3d(
+       arcDegrees = 360,
+       axis = [0, 0, 1],
+       center = [0, 0, 0],
+       instances = 16,
+       rotateDuplicates = true,
+     )
+
+// Create the sketch for the links in between the chains
+linkSketch = startSketchOn(XZ)
+  |> circle(
+       center = [
+         bearingBoreDiameter / 2 + 0.1 + sphereDia / 2,
+         stockThickness / 2
+       ],
+       radius = linkDiameter / 2,
+     )
+
+// Create the walls of the bearing
+bearingBody = startSketchOn(XZ)
+bearingUpper = startProfile(
+       bearingBody,
+       at = [
+         bearingOuterDiameter / 2 - .07,
+         stockThickness
+       ],
+     )
+  |> angledLine(angle = -91, length = 0.05)
+  |> xLine(length = -(bearingOuterDiameter / 2 - (bearingBoreDiameter / 2)) + .145)
+  |> yLine(endAbsolute = 0.105)
+  |> xLine(length = -0.025)
+  |> angledLine(angle = 91, endAbsoluteY = profileStartY(%))
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> revolve(angle = 360, axis = Y)
+  |> appearance(%, color = "#121212")
+
+bearingLower = startProfile(bearingBody, at = [bearingBoreDiameter / 2, 0.025])
+  |> xLine(length = 0.05)
+  |> angledLine(angle = 75, length = 0.04, tag = $seg01)
+  |> xLine(length = 0.05)
+  |> angledLine(angle = -75, length = segLen(seg01))
+  |> xLine(endAbsolute = bearingOuterDiameter / 2)
+  |> yLine(length = stockThickness)
+  |> xLine(length = -0.07)
+  |> angledLine(angle = -91, endAbsoluteY = profileStartY(%) + .075)
+  |> xLine(endAbsolute = profileStartX(%) + .05)
+  |> angledLine(angle = 91, endAbsoluteY = stockThickness * 1.25)
+  |> xLine(endAbsolute = profileStartX(%))
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> revolve(angle = 360, axis = Y)
+  |> appearance(%, color = "#f0f0f0")
+
+// Revolve the link sketch
+revolve(linkSketch, axis = Y, angle = 360 / 16)
+  |> patternCircular3d(
+       arcDegrees = 360,
+       axis = [0, 0, 1],
+       center = [0, 0, 0],
+       instances = 16,
+       rotateDuplicates = true,
+     )

public/kcl-samples/pillow-block-bearing/block.kcl

@@ -0,0 +1,56 @@
+// Pillow Block Bearing
+// The machined block for the pillow block bearing assembly. The block is dimensioned using the bolt pattern spacing, and each bolt hole includes a counterbore
+
+// Set units
+@settings(defaultLengthUnit = in)
+
+// Import Parameters
+import * from "parameters.kcl"
+
+// Calculate the dimensions of the block using the specified bolt spacing. The size of the block can be defined by adding a multiple of the counterbore diameter to the bolt spacing
+blockLength = boltSpacingX + counterboreDiameter + boltDiameter
+blockWidth = boltSpacingY + counterboreDiameter + boltDiameter
+
+// Draw the base plate
+plateSketch = startSketchOn(XY)
+  |> startProfile(at = [-blockLength / 2, -blockWidth / 2])
+  |> angledLine(angle = 0, length = blockLength, tag = $rectangleSegmentA001)
+  |> angledLine(angle = segAng(rectangleSegmentA001) + 90, length = blockWidth, tag = $rectangleSegmentB001)
+  |> angledLine(angle = segAng(rectangleSegmentA001), length = -segLen(rectangleSegmentA001), tag = $rectangleSegmentC001)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $rectangleSegmentD001)
+  |> close()
+  |> subtract2d(tool = circle(center = [0, 0], radius = bearingOuterDiameter / 2))
+plateBody = extrude(plateSketch, length = stockThickness)
+  |> appearance(%, color = "#1e62eb")
+  |> fillet(
+       radius = boltDiameter * 1 / 3,
+       tags = [
+         getNextAdjacentEdge(rectangleSegmentB001),
+         getNextAdjacentEdge(rectangleSegmentA001),
+         getNextAdjacentEdge(rectangleSegmentC001),
+         getNextAdjacentEdge(rectangleSegmentD001)
+       ],
+     )
+
+// Define hole positions
+holePositions = [
+  [-boltSpacingX / 2, -boltSpacingY / 2],
+  [-boltSpacingX / 2, boltSpacingY / 2],
+  [boltSpacingX / 2, -boltSpacingY / 2],
+  [boltSpacingX / 2, boltSpacingY / 2]
+]
+
+// Function to create a counterbored hole
+fn counterbore(@holePosition) {
+  cbBore = startSketchOn(plateBody, face = END)
+    |> circle(center = holePosition, radius = counterboreDiameter / 2)
+    |> extrude(length = -counterboreDepth)
+  cbBolt = startSketchOn(cbBore, face = START)
+    |> circle(center = holePosition, radius = boltDiameter / 2, tag = $hole01)
+    |> extrude(length = -stockThickness + counterboreDepth)
+
+  return {  }
+}
+
+// Place a counterbored hole at each bolt hole position
+map(holePositions, f = counterbore)

public/kcl-samples/pillow-block-bearing/main.kcl

@@ -0,0 +1,14 @@
+// Pillow Block Bearing
+// A bearing pillow block, also known as a plummer block or pillow block bearing, is a pedestal used to provide support for a rotating shaft with the help of compatible bearings and various accessories. Housing a bearing, the pillow block provides a secure and stable foundation that allows the shaft to rotate smoothly within its machinery setup. These components are essential in a wide range of mechanical systems and machinery, playing a key role in reducing friction and supporting radial and axial loads.
+
+// Set units
+@settings(defaultLengthUnit = in)
+
+// Import parts and parameters
+import * from "parameters.kcl"
+import "ball-bearing.kcl" as ballBearing
+import "block.kcl" as block
+
+// Render each part
+ballBearing
+block

public/kcl-samples/pillow-block-bearing/parameters.kcl

@@ -0,0 +1,18 @@
+// Global parameters for the pillow block bearing
+
+// Set units
+@settings(defaultLengthUnit = in)
+
+// Export parameters
+export boltSpacingX = 5
+export boltSpacingY = 3
+export boltDiameter = 3 / 8
+export counterboreDiameter = 3 / 4
+export counterboreDepth = 3 / 16
+export stockThickness = .5
+export bearingBoreDiameter = 1 + 3 / 4
+export bearingOuterDiameter = bearingBoreDiameter * 1.5
+export sphereDia = (bearingOuterDiameter - bearingBoreDiameter) / 4
+export chainWidth = sphereDia / 2
+export chainThickness = sphereDia / 8
+export linkDiameter = sphereDia / 4

public/kcl-samples/prosthetic-hip/main.kcl

@@ -0,0 +1,176 @@
+// Prosthetic Hip
+// A prosthetic hip is a surgically implanted ball-and-socket intended to replace a damaged or worn hip joint
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Create the femur using a series of lofts. Draw the profile for the first loft on the XY plane.
+l1 = 1
+r1 = 3
+stemLoftProfile1 = startSketchOn(XY)
+  |> startProfile(at = [-3, -l1 / 2])
+  |> yLine(length = l1, tag = $seg01)
+  |> tangentialArc(angle = -120, radius = r1)
+  |> angledLine(angle = -30, length = segLen(seg01))
+  |> tangentialArc(angle = -120, radius = r1)
+  |> angledLine(angle = 30, length = -segLen(seg01))
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+
+// Draw the second profile for the lofted femur
+l2 = 19
+r2 = 3
+stemLoftProfile2 = startSketchOn(offsetPlane(XY, offset = 75))
+  |> startProfile(at = [-8, -l2 / 2])
+  |> yLine(length = l2, tag = $seg02)
+  |> tangentialArc(angle = -120, radius = r2)
+  |> angledLine(angle = -30, length = segLen(seg02))
+  |> tangentialArc(angle = -120, radius = r2)
+  |> angledLine(angle = 30, length = -segLen(seg02))
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+
+// Draw the third profile for the lofted femur
+p3Z = 110
+p3A = 25
+plane003 = {
+  origin = [0, 0.0, p3Z],
+  xAxis = [cos(p3A), 0, sin(p3A)],
+  yAxis = [0.0, 1.0, 0.0]
+}
+l3 = 32
+r3 = 4
+stemLoftProfile3 = startSketchOn(plane003)
+  |> startProfile(at = [-15.5, -l3 / 2])
+  |> yLine(length = l3, tag = $seg03)
+  |> tangentialArc(angle = -120, radius = r3)
+  |> angledLine(angle = -30, length = segLen(seg03))
+  |> tangentialArc(angle = -120, radius = r3)
+  |> angledLine(angle = 30, length = -segLen(seg03))
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+
+// Draw the fourth profile for the lofted femur
+p4Z = 130
+p4A = 36.5
+plane004 = {
+  origin = [0, 0.0, p4Z],
+  xAxis = [cos(p4A), 0, sin(p4A)],
+  yAxis = [0.0, 1.0, 0.0]
+}
+l4 = 16
+r4 = 5
+stemLoftProfile4 = startSketchOn(plane004)
+  |> startProfile(at = [-23, -l4 / 2])
+  |> yLine(length = l4, tag = $seg04)
+  |> tangentialArc(angle = -120, radius = r4)
+  |> angledLine(angle = -30, length = segLen(seg04))
+  |> tangentialArc(angle = -120, radius = r4)
+  |> angledLine(angle = 30, length = -segLen(seg04))
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+
+// Draw the first profile for the femoral stem
+p5Z = 140
+p5A = 36.5
+plane005 = {
+  origin = [0, 0.0, p5Z],
+  xAxis = [cos(p5A), 0, sin(p5A)],
+  yAxis = [0.0, 1.0, 0.0]
+}
+l5 = 1.6
+r5 = 1.6
+stemLoftProfile5 = startSketchOn(plane005)
+  |> startProfile(at = [-19.5, -l5 / 2])
+  |> yLine(length = l5, tag = $seg05)
+  |> tangentialArc(angle = -120, radius = r5)
+  |> angledLine(angle = -30, length = segLen(seg05))
+  |> tangentialArc(angle = -120, radius = r5)
+  |> angledLine(angle = 30, length = -segLen(seg05))
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+
+// Draw the second profile for the femoral stem
+p6Z = 145
+p6A = 36.5
+plane006 = {
+  origin = [0, 0.0, p6Z],
+  xAxis = [cos(p6A), 0, sin(p6A)],
+  yAxis = [0.0, 1.0, 0.0]
+}
+l6 = 1
+r6 = 3
+stemLoftProfile6 = startSketchOn(plane006)
+  |> startProfile(at = [-23.4, -l6 / 2])
+  |> yLine(length = l6, tag = $seg06)
+  |> tangentialArc(angle = -120, radius = r6)
+  |> angledLine(angle = -30, length = segLen(seg06))
+  |> tangentialArc(angle = -120, radius = r6)
+  |> angledLine(angle = 30, length = -segLen(seg06))
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+
+// Draw the third profile for the femoral stem
+stemTab = clone(stemLoftProfile6)
+  |> extrude(%, length = 6)
+
+// Loft the femur using all profiles in sequence
+
+femur = loft([
+  stemLoftProfile1,
+  stemLoftProfile2,
+  stemLoftProfile3,
+  stemLoftProfile4
+])
+
+// Loft the femoral stem
+femoralStem = loft([
+  clone(stemLoftProfile4),
+  stemLoftProfile5,
+  stemLoftProfile6
+])
+
+// Revolve a hollow socket to represent the femoral head
+femoralHead = startSketchOn(XZ)
+  |> startProfile(at = [4, 0])
+  |> xLine(length = 1.1)
+  |> tangentialArc(angle = 90, radius = 3)
+  |> tangentialArc(angle = 90, radius = 8)
+  |> yLine(length = -1)
+  |> tangentialArc(angle = 90, radius = .1)
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> revolve(angle = 360, axis = Y)
+  |> translate(x = -16.1, z = 133)
+  |> rotate(pitch = -36.5)
+  |> appearance(color = "#d64398")
+
+// Place a polyethylene cap over the femoral head
+polyethyleneInsert = startSketchOn(XZ)
+  |> startProfile(at = [8.36, 3])
+  |> xLine(length = 0.5)
+  |> yLine(length = .1)
+  |> tangentialArc(endAbsolute = [0.1, 12.55])
+  |> yLine(length = -0.85)
+  |> xLine(length = 0.58)
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> revolve(angle = 360, axis = Y)
+  |> translate(x = -16.1, z = 133)
+  |> rotate(pitch = -36.5)
+  |> appearance(color = "#3cadd3")
+
+// Place a ceramic or metal shell over the cap
+acetabularShell = startSketchOn(XZ)
+  |> startProfile(at = [8.84, 4.7])
+  |> xLine(length = 1)
+  |> yLine(length = .5)
+  |> tangentialArc(endAbsolute = [0.1, 14])
+  |> yLine(endAbsolute = 12.56)
+  |> xLine(length = 0.1)
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> revolve(angle = 360, axis = Y)
+  |> translate(x = -16.1, z = 133)
+  |> rotate(pitch = -36.5)
+  |> appearance(color = "#a55e2c")

public/kcl-samples/spur-gear/main.kcl

@@ -0,0 +1,76 @@
+// Spur Gear
+// A rotating machine part having cut teeth or, in the case of a cogwheel, inserted teeth (called cogs), which mesh with another toothed part to transmit torque. Geared devices can change the speed, torque, and direction of a power source. The two elements that define a gear are its circular shape and the teeth that are integrated into its outer edge, which are designed to fit into the teeth of another gear.
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define a function to create a spur gear
+fn spurGear(nTeeth, module, pressureAngle, gearHeight) {
+  // Define gear parameters
+  pitchDiameter = module * nTeeth
+  addendum = module
+  deddendum = 1.25 * module
+  baseDiameter = pitchDiameter * cos(pressureAngle)
+  tipDiameter = pitchDiameter + 2 * module
+
+  // Define the constants of the keyway and the bore hole
+  keywayWidth = 2
+  keywayDepth = keywayWidth / 2
+  holeDiam = 5
+  holeRadius = holeDiam / 2
+  startAngle = asin(keywayWidth / 2 / holeRadius)
+
+  // Sketch the keyway and center hole
+  holeWithKeyway = startSketchOn(XY)
+    |> startProfile(at = [
+         holeRadius * cos(startAngle),
+         holeRadius * sin(startAngle)
+       ])
+    |> xLine(length = keywayDepth)
+    |> yLine(length = -keywayWidth)
+    |> xLine(length = -keywayDepth)
+    |> arc(angleStart = -1 * startAngle + 360, angleEnd = 180, radius = holeRadius)
+    |> arc(angleStart = 180, angleEnd = startAngle, radius = holeRadius)
+    |> close()
+
+  // Using the gear parameters, sketch an involute tooth spanning from the base diameter to the tip diameter
+  gearSketch = startSketchOn(XY)
+    |> startProfile(at = polar(angle = 0, length = baseDiameter / 2))
+    |> involuteCircular(
+         startRadius = baseDiameter / 2,
+         endRadius = tipDiameter / 2,
+         angle = 0,
+         tag = $seg01,
+       )
+    |> line(endAbsolute = polar(angle = 160 / nTeeth, length = tipDiameter / 2))
+    |> involuteCircular(
+         startRadius = baseDiameter / 2,
+         endRadius = tipDiameter / 2,
+         angle = -atan(segEndY(seg01) / segEndX(seg01)) - (180 / nTeeth),
+         reverse = true,
+       )
+    // Position the end line of the sketch at the start of the next tooth
+    |> line(endAbsolute = polar(angle = 360 / nTeeth, length = baseDiameter / 2))
+    // Pattern the sketch about the center by the specified number of teeth, then close the sketch
+    |> patternCircular2d(
+         %,
+         instances = nTeeth,
+         center = [0, 0],
+         arcDegrees = 360,
+         rotateDuplicates = true,
+       )
+    |> close()
+    // Subtract the keyway sketch from the gear sketch
+    |> subtract2d(tool = holeWithKeyway)
+    // Extrude the gear to the specified height
+    |> extrude(length = gearHeight)
+
+  return gearSketch
+}
+
+spurGear(
+  nTeeth = 21,
+  module = 1.5,
+  pressureAngle = 14,
+  gearHeight = 6,
+)

public/kcl-samples/spur-reduction-gearset/main.kcl

@@ -0,0 +1,70 @@
+// Spur Reduction Gearset
+// A pair of spur gears meshed together, with an equal module and different number of teeth
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define a function to create a spur gear
+fn spurGear(nTeeth, module, pressureAngle, gearHeight) {
+  // Calculate gear parameters
+  pitchDiameter = module * nTeeth
+  addendum = module
+  deddendum = 1.25 * module
+  baseDiameter = pitchDiameter * cos(pressureAngle)
+  tipDiameter = pitchDiameter + 2 * module
+
+  // Using the gear parameters, sketch an involute tooth spanning from the base diameter to the tip diameter
+  gearSketch = startSketchOn(XY)
+    |> startProfile(at = polar(angle = 0, length = baseDiameter / 2))
+    |> involuteCircular(
+         startRadius = baseDiameter / 2,
+         endRadius = tipDiameter / 2,
+         angle = 0,
+         tag = $seg01,
+       )
+    |> line(endAbsolute = polar(angle = 160 / nTeeth, length = tipDiameter / 2))
+    |> involuteCircular(
+         startRadius = baseDiameter / 2,
+         endRadius = tipDiameter / 2,
+         angle = -atan(segEndY(seg01) / segEndX(seg01)) - (180 / nTeeth),
+         reverse = true,
+       )
+    // Position the end line of the sketch at the start of the next tooth
+    |> line(endAbsolute = polar(angle = 360 / nTeeth, length = baseDiameter / 2))
+    // Pattern the sketch about the center by the specified number of teeth, then close the sketch
+    |> patternCircular2d(
+         %,
+         instances = nTeeth,
+         center = [0, 0],
+         arcDegrees = 360,
+         rotateDuplicates = true,
+       )
+    |> close()
+    // Subtract a 10mm diameter center hole from the gear
+    |> subtract2d(tool = circle(center = [0, 0], radius = 5))
+    // Extrude the gear to the specified height
+    |> extrude(length = gearHeight)
+
+  return gearSketch
+}
+
+// Model a small gear
+spurGear(
+  nTeeth = 17,
+  module = 1.5,
+  pressureAngle = 14,
+  gearHeight = 9,
+)
+
+// Model a larger gear with the same module
+spurGear(
+       nTeeth = 51,
+       module = 1.5,
+       pressureAngle = 14,
+       gearHeight = 7,
+     )
+  // Translate the larger gear by the combined pitch radius of both gears, plus a small gap
+  |> translate(x = (51 + 17) / 2 * 1.5 + 1.3)
+
+  // Rotate the gear so that the teeth mesh but do not intersect
+  |> rotate(yaw = 3)

public/kcl-samples/surgical-drill-guide/main.kcl

@@ -0,0 +1,116 @@
+// Surgical Drill Guide
+// A surgical drill guide is a tool used in medical procedures to assist in drilling holes to a desired depth, ensuring proper orientation and minimizing intraosseal pressure
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define parameters
+handleLength = 150
+handleWidth = 30
+stockThickness = 6
+bendRadius = stockThickness * 1.25
+bitSize01 = 2
+bitSize02 = 3.2
+bitLength = 45
+
+// Model a small sheet metal bracket to represent the handle of the drill guide
+bracket = startSketchOn(YZ)
+  |> startProfile(at = [0, 0])
+  |> xLine(length = handleLength, tag = $seg02)
+  |> yLine(length = stockThickness, tag = $seg06)
+  |> xLine(length = -segLen(seg02), tag = $seg04)
+  |> tangentialArc(angle = -60, radius = bendRadius, tag = $seg01)
+  |> angledLine(angle = tangentToEnd(seg01), length = handleLength / 3, tag = $seg03)
+  |> angledLine(angle = tangentToEnd(seg01) + 90, length = stockThickness, tag = $seg05)
+  |> angledLine(angle = segAng(seg03) + 180, length = segLen(seg03), tag = $seg07)
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> extrude(
+       length = handleWidth,
+       symmetric = true,
+       tagEnd = $capEnd001,
+       tagStart = $capStart001,
+     )
+
+// Create a cut in the bracket to mount the first bit
+bitCut01 = startSketchOn(XZ)
+  |> circle(center = [0, segEndY(seg03) + .1], radius = handleWidth / 1.9)
+  |> extrude(length = 100)
+
+// Create a cut in the bracket to mount the second bit
+bitCut02 = startSketchOn(offsetPlane(XY, offset = 35))
+  |> circle(center = [0, segEndX(seg02)], radius = handleWidth / 1.9)
+  |> extrude(length = -100)
+
+// Cut the bracket
+handle = subtract([bracket], tools = union([bitCut01, bitCut02]))
+
+// Model the support for the first drill bit
+bitSupport01 = startSketchOn(offsetPlane(XZ, offset = -segEndX(seg03) - 3))
+  |> circle(center = [0, segEndY(seg03) + .1], radius = handleWidth / 1.9)
+  |> extrude(length = -15, symmetric = true)
+
+// Model the stem for the first drill bit
+stem01 = startSketchOn(bitSupport01, face = END)
+  |> circle(center = [0, segEndY(seg03) + .1], radius = bitSize01, tag = $seg10)
+  |> extrude(length = bitLength, tagEnd = $capEnd004)
+  |> chamfer(
+       length = bitSize01 / 3,
+       tags = [
+         getCommonEdge(faces = [seg10, capEnd004])
+       ],
+     )
+
+// Negative extrude the clearance hole for the first drill bit
+bitClearance01 = startSketchOn(stem01, face = END)
+  |> circle(center = [0, segEndY(seg03) + .1], radius = bitSize01 / 2)
+  |> extrude(length = -15 - bitLength)
+
+// Model a rotating grip for the first drill bit
+grip01 = startSketchOn(offsetPlane(XZ, offset = -segEndX(seg03) + 16))
+  |> circle(center = [0, segEndY(seg03) + .1], radius = handleWidth / 1.85, tag = $seg11)
+  |> subtract2d(tool = circle(center = [0, segEndY(seg03) + .1], radius = bitSize01))
+  |> extrude(length = -10, tagEnd = $capEnd005, tagStart = $capStart003)
+  |> fillet(
+       radius = 1,
+       tags = [
+         getCommonEdge(faces = [seg11, capEnd005]),
+         getCommonEdge(faces = [seg11, capStart003])
+       ],
+     )
+  |> appearance(color = "#af7b23")
+
+// Model the support for the second drill bit
+bitSupport02 = startSketchOn(offsetPlane(XY, offset = -2))
+  |> circle(center = [0, segEndX(seg02)], radius = handleWidth / 1.9)
+  |> extrude(length = 15)
+
+// Model the stem for the second drill bit
+stem02 = startSketchOn(bitSupport02, face = START)
+  |> circle(center = [0, segEndX(seg02)], radius = bitSize02, tag = $seg09)
+  |> extrude(length = bitLength, tagEnd = $capEnd003)
+  |> chamfer(
+       length = bitSize02 / 3,
+       tags = [
+         getCommonEdge(faces = [seg09, capEnd003])
+       ],
+     )
+
+// Negative extrude the clearance hole for the second drill bit
+bitClearance02 = startSketchOn(stem02, face = END)
+  |> circle(center = [0, segEndX(seg02)], radius = bitSize02 / 2)
+  |> extrude(length = -15 - bitLength)
+
+// Model a rotating grip for the second drill bit
+grip02 = startSketchOn(offsetPlane(XY, offset = -3))
+  |> circle(center = [0, segEndX(seg02)], radius = handleWidth / 1.85, tag = $seg08)
+  |> subtract2d(tool = circle(center = [0, segEndX(seg02)], radius = bitSize02))
+  |> extrude(length = -10, tagStart = $capStart002, tagEnd = $capEnd002)
+  |> fillet(
+       radius = 1,
+       tags = [
+         getCommonEdge(faces = [seg08, capStart002]),
+         getCommonEdge(faces = [seg08, capEnd002])
+       ],
+     )
+  |> appearance(color = "#23af93")

public/kcl-samples/tooling-nest-block/main.kcl

@@ -0,0 +1,167 @@
+// Tooling Nest Block
+// A tooling nest block is a block-shaped tool made from high-carbon steel. It features an assortment of conical or hemispherical indentions, which are used to form or shape metal, particularly in crafting bells or jewelry
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define parameters
+sideLength = 50
+size01 = 15
+size02 = 10
+size03 = 6
+size04 = 0.375in
+size05 = 0.25in
+size06 = 0.5in
+size07 = 0.75in
+size08 = 5
+size09 = 4.5
+size10 = 4
+size11 = 3.5
+size12 = 3
+size13 = 2.5
+size14 = 2
+size15 = 1
+
+// Sketch and extrude the base cube
+cubeSketch = startSketchOn(XY)
+  |> startProfile(at = [0, 0])
+  |> angledLine(angle = 0, length = sideLength, tag = $rectangleSegmentA001)
+  |> angledLine(angle = segAng(rectangleSegmentA001) + 90, length = sideLength, tag = $rectangleSegmentB001)
+  |> angledLine(angle = segAng(rectangleSegmentA001), length = -segLen(rectangleSegmentA001), tag = $rectangleSegmentC001)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $rectangleSegmentD001)
+  |> close()
+cubeExtrude = extrude(cubeSketch, length = sideLength)
+
+// Write a function to create a hemispherical nest in a given cube side
+fn nest(cubeFace, xPos, yPos, nestSize) {
+  nestFn = startSketchOn(cubeExtrude, face = cubeFace)
+    |> circle(center = [xPos * sideLength, yPos * sideLength], radius = nestSize, tag = $seg01)
+    |> extrude(length = -nestSize, tagStart = $capStart001)
+    |> fillet(
+         radius = nestSize * .99,
+         tags = [
+           getCommonEdge(faces = [seg01, capStart001])
+         ],
+       )
+  return {  }
+}
+
+// Model each nest on the top face
+nest(
+  cubeFace = END,
+  xPos = 0.5,
+  yPos = 0.5,
+  nestSize = size01,
+)
+
+// Model each nest on side 1
+nest(
+  cubeFace = rectangleSegmentA001,
+  xPos = 0.65,
+  yPos = 0.5,
+  nestSize = size02,
+)
+nest(
+  cubeFace = rectangleSegmentA001,
+  xPos = 0.25,
+  yPos = 0.25,
+  nestSize = size03,
+)
+nest(
+  cubeFace = rectangleSegmentA001,
+  xPos = 0.25,
+  yPos = 0.75,
+  nestSize = size03,
+)
+
+// Model each nest on side 2
+nest(
+  cubeFace = rectangleSegmentB001,
+  xPos = 0.7,
+  yPos = 0.3,
+  nestSize = size04,
+)
+nest(
+  cubeFace = rectangleSegmentB001,
+  xPos = 0.25,
+  yPos = 0.3,
+  nestSize = size05,
+)
+nest(
+  cubeFace = rectangleSegmentB001,
+  xPos = 0.25,
+  yPos = 0.7,
+  nestSize = size05,
+)
+nest(
+  cubeFace = rectangleSegmentB001,
+  xPos = 0.7,
+  yPos = 0.7,
+  nestSize = size05,
+)
+
+// Model each nest on side 3
+nest(
+  cubeFace = rectangleSegmentC001,
+  xPos = -0.5,
+  yPos = 0.5,
+  nestSize = size06,
+)
+
+// Model each nest on side 4
+nest(
+  cubeFace = rectangleSegmentD001,
+  xPos = -0.2,
+  yPos = 0.2,
+  nestSize = size15,
+)
+nest(
+  cubeFace = rectangleSegmentD001,
+  xPos = -0.2,
+  yPos = 0.5,
+  nestSize = size14,
+)
+nest(
+  cubeFace = rectangleSegmentD001,
+  xPos = -0.2,
+  yPos = 0.8,
+  nestSize = size13,
+)
+nest(
+  cubeFace = rectangleSegmentD001,
+  xPos = -0.8,
+  yPos = 0.2,
+  nestSize = size12,
+)
+nest(
+  cubeFace = rectangleSegmentD001,
+  xPos = -0.8,
+  yPos = 0.5,
+  nestSize = size10,
+)
+nest(
+  cubeFace = rectangleSegmentD001,
+  xPos = -0.8,
+  yPos = 0.8,
+  nestSize = size08,
+)
+nest(
+  cubeFace = rectangleSegmentD001,
+  xPos = -0.5,
+  yPos = 0.33,
+  nestSize = size09,
+)
+nest(
+  cubeFace = rectangleSegmentD001,
+  xPos = -0.5,
+  yPos = 0.67,
+  nestSize = size11,
+)
+
+// Model each nest on the bottom face
+nest(
+  cubeFace = START,
+  xPos = -0.5,
+  yPos = 0.5,
+  nestSize = size07,
+)

public/kcl-samples/walkie-talkie/antenna.kcl

@@ -9,7 +9,10 @@ import antennaLength, antennaBaseWidth, antennaBaseHeight, antennaTopWidth, ante
 
 // Create the antenna base sketch
 antennaBaseSketch = startSketchOn(XY)
-  |> startProfile(at = [0, 0])
+  |> startProfile(at = [
+       -antennaBaseWidth / 2,
+       antennaBaseHeight / 2
+     ])
   |> line(end = [antennaBaseWidth, 0])
   |> line(end = [0, -antennaBaseHeight])
   |> line(end = [-antennaBaseWidth, 0])
@@ -19,7 +22,7 @@ antennaBaseSketch = startSketchOn(XY)
 loftPlane = offsetPlane(XY, offset = antennaLength)
 antennaTopSketch = startSketchOn(loftPlane)
   |> startProfile(at = [
-       (antennaBaseWidth - antennaTopWidth) / 2,
+       -(antennaBaseWidth - antennaTopWidth) / 2,
        (antennaBaseHeight - antennaTopHeight) / 2
      ])
   |> xLine(length = antennaTopWidth)

public/kcl-samples/walkie-talkie/knob.kcl

@@ -5,15 +5,11 @@
 @settings(defaultLengthUnit = in, kclVersion = 1.0)
 
 // Import parameters
-import width, thickness, height, knobDiameter, knobHeight, knobRadius from "parameters.kcl"
+import width, thickness, height, knobDiameter, knobHeight, knobFilletRadius from "parameters.kcl"
 
 // Create the knob sketch and revolve
-startSketchOn(XZ)
-  |> startProfile(at = [0.0001, 0])
-  |> xLine(length = knobDiameter / 2)
-  |> yLine(length = knobHeight - 0.05)
-  |> arc(angleStart = 0, angleEnd = 90, radius = .05)
-  |> xLine(endAbsolute = 0.0001)
-  |> close()
-  |> revolve(axis = Y)
-  |> appearance(color = '#D0FF01', metalness = 90, roughness = 50)
+startSketchOn(XY)
+  |> circle(center = [0, 0], radius = knobDiameter / 2, tag = $knobBend)
+  |> extrude(%, length = knobHeight)
+  |> fillet(radius = knobFilletRadius, tags = [getOppositeEdge(knobBend)])
+  |> appearance(%, color = "#afbf36")

public/kcl-samples/walkie-talkie/main.kcl

@@ -20,7 +20,7 @@ body
 
 // Import the antenna
 antenna
-  |> translate(x = -width / 2 + .45, y = -0.10, z = height / 2)
+  |> translate(x = -width / 2 + .60, y = -0.20, z = height / 2)
 
 // Import the case
 case

public/kcl-samples/walkie-talkie/parameters.kcl

@@ -19,9 +19,9 @@ export speakerBoxHeight = 1.25
 // antenna
 export antennaBaseWidth = .5
 export antennaBaseHeight = .25
-export antennaTopWidth = .30
-export antennaTopHeight = .05
-export antennaLength = 3
+export antennaTopWidth = antennaBaseWidth * .5
+export antennaTopHeight = antennaBaseHeight * .5
+export antennaLength = 2
 
 // button
 export buttonWidth = .15
@@ -36,7 +36,7 @@ export caseTolerance = 0.010
 // knob
 export knobDiameter = .5
 export knobHeight = .25
-export knobRadius = 0.050
+export knobFilletRadius = 0.050
 
 // talk-button
 export talkButtonSideLength = 0.5

public/kcl-samples/wing-spar/main.kcl

@@ -0,0 +1,121 @@
+// Wing Spar
+// In a fixed-wing aircraft, the spar is often the main structural member of the wing, running spanwise at right angles (or thereabouts depending on wing sweep) to the fuselage. The spar carries flight loads and the weight of the wings while on the ground. Other structural and forming members such as ribs may be attached to the spars
+
+// Set units
+@settings(defaultLengthUnit = mm)
+
+// Define parameters
+chordLength = 355
+rearSpar = 205
+frontSpar = 33
+upperCamber = 30
+lowerCamber = 18
+foilThickness = 8
+nSections = 5
+sparSpan = 700
+sparStockThicknes = 2.102
+sparBendRadius = 2.102
+
+// Sketch an airfoil using the chord length, spar positions, and camber heights
+ribSketch = startSketchOn(offsetPlane(-XZ, offset = -foilThickness))
+  |> startProfile(at = [chordLength, 0])
+  |> line(endAbsolute = [rearSpar, upperCamber])
+  |> tangentialArc(endAbsolute = [frontSpar, upperCamber * 1.3])
+  |> tangentialArc(endAbsolute = [0, 0])
+  |> tangentialArc(angle = 76, radius = lowerCamber)
+  |> tangentialArc(endAbsolute = [rearSpar, -lowerCamber])
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+
+  // Cut circular holes along the chord curve of the airfoil to reduce the mass of each part
+  |> subtract2d(tool = circle(center = [62, 9], radius = 17))
+  |> subtract2d(tool = circle(center = [113, 10], radius = 19))
+  |> subtract2d(tool = circle(center = [164, 9], radius = 17))
+  |> subtract2d(tool = circle(center = [228, 5], radius = 11))
+  |> subtract2d(tool = circle(center = [260, 3.5], radius = 6.5))
+
+  // Extrude the airfoil to material thicknes, then pattern along the length of the wing spars
+  |> extrude(length = -foilThickness)
+  |> patternLinear3d(instances = nSections, distance = (sparSpan - (3 * foilThickness)) / (nSections - 1), axis = [0, -1, 0])
+
+// Model a thin sheet spar with a hemmed top edge for structure
+sparSketch = startSketchOn(-XZ)
+// Sketch the sheet metal profile for the front spar, then extrude
+frontSparProfile = startProfile(sparSketch, at = [frontSpar, -lowerCamber * 0.85])
+  |> yLine(endAbsolute = upperCamber, tag = $seg01)
+  |> tangentialArc(angle = -90, radius = sparBendRadius + sparStockThicknes)
+  |> xLine(length = 4, tag = $seg02)
+  |> tangentialArc(angle = -90, radius = sparBendRadius + sparStockThicknes)
+  |> yLine(length = -4, tag = $seg03)
+  |> tangentialArc(angle = -90, radius = sparBendRadius + sparStockThicknes)
+  |> xLine(length = -3, tag = $seg04)
+  |> yLine(length = sparStockThicknes)
+  |> xLine(length = segLen(seg04))
+  |> tangentialArc(angle = 90, radius = sparBendRadius)
+  |> yLine(length = segLen(seg03))
+  |> tangentialArc(angle = 90, radius = sparBendRadius)
+  |> xLine(length = -segLen(seg02))
+  |> tangentialArc(angle = 90, radius = sparBendRadius)
+  |> yLine(length = -segLen(seg01), tag = $seg10)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> extrude(length = -sparSpan)
+
+// Sketch the sheet metal profile for the rear spar, then extrude
+rearSparProfile = startProfile(sparSketch, at = [rearSpar, -lowerCamber * 0.7])
+  |> yLine(endAbsolute = upperCamber * 0.7, tag = $seg05)
+  |> tangentialArc(angle = 90, radius = sparBendRadius + sparStockThicknes)
+  |> xLine(length = -4, tag = $seg06)
+  |> tangentialArc(angle = 90, radius = sparBendRadius + sparStockThicknes)
+  |> yLine(length = -4, tag = $seg07)
+  |> tangentialArc(angle = 90, radius = sparBendRadius + sparStockThicknes)
+  |> xLine(length = 3, tag = $seg08)
+  |> yLine(length = sparStockThicknes)
+  |> xLine(length = -segLen(seg08))
+  |> tangentialArc(angle = -90, radius = sparBendRadius)
+  |> yLine(length = segLen(seg07))
+  |> tangentialArc(angle = -90, radius = sparBendRadius)
+  |> xLine(length = segLen(seg06))
+  |> tangentialArc(angle = -90, radius = sparBendRadius)
+  |> yLine(length = -segLen(seg05), tag = $seg09)
+  |> line(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> extrude(length = -sparSpan)
+
+// Cut rectangular holes along the spar length between each rib
+frontSparHoles = startSketchOn(frontSparProfile, face = seg10)
+  |> startProfile(at = [-lowerCamber * 0.1, -foilThickness * 3])
+  |> xLine(endAbsolute = upperCamber * 0.4, tag = $seg11)
+  |> tangentialArc(angle = -90, radius = 5)
+  |> yLine(endAbsolute = -(sparSpan - (3 * foilThickness)) / (nSections - 1) + 5, tag = $seg12)
+  |> tangentialArc(angle = -90, radius = 5)
+  |> xLine(length = -segLen(seg11))
+  |> tangentialArc(angle = -90, radius = 5)
+  |> yLine(length = segLen(seg12))
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> patternLinear2d(
+       %,
+       instances = nSections - 1,
+       distance = (sparSpan - (3 * foilThickness)) / (nSections - 1),
+       axis = [0, -1],
+     )
+  |> extrude(length = -10)
+rearSparHoles = startSketchOn(rearSparProfile, face = seg09)
+  |> startProfile(at = [-lowerCamber * 0.3, -foilThickness * 3])
+  |> xLine(endAbsolute = -upperCamber * 0.01, tag = $seg14)
+  |> tangentialArc(angle = -90, radius = 5)
+  |> yLine(length = -segLen(seg12))
+  |> tangentialArc(angle = -90, radius = 5)
+  |> xLine(length = -segLen(seg14))
+  |> tangentialArc(angle = -90, radius = 5)
+  |> yLine(length = segLen(seg12))
+  |> tangentialArc(endAbsolute = [profileStartX(%), profileStartY(%)])
+  |> close()
+  |> patternLinear2d(
+       %,
+       instances = nSections - 1,
+       distance = (sparSpan - (3 * foilThickness)) / (nSections - 1),
+       axis = [0, -1],
+     )
+  |> extrude(length = -10)

rust/.config/nextest.toml

@@ -1,12 +1,12 @@
 [test-groups]
 # If a test uses the engine, we want to limit the number that can run in parallel.
 # This way we don't start and stop too many engine instances, putting pressure on our cloud.
-uses-engine = { max-threads = 4 }
+uses-engine = { max-threads = 32 }
 # If a test must run after the engine tests, we want to make sure the engine tests are done first.
-after-engine = { max-threads = 12 }
+after-engine = { max-threads = 32 }
 
 [profile.default]
-slow-timeout = { period = "180s", terminate-after = 1 }
+slow-timeout = { period = "280s", terminate-after = 1 }
 
 [profile.ci]
 slow-timeout = { period = "280s", terminate-after = 5 }

rust/Cargo.lock

@@ -1815,7 +1815,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-bumper"
-version = "0.1.69"
+version = "0.1.70"
 dependencies = [
  "anyhow",
  "clap",
@@ -1826,7 +1826,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-derive-docs"
-version = "0.1.69"
+version = "0.1.70"
 dependencies = [
  "Inflector",
  "anyhow",
@@ -1845,7 +1845,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-directory-test-macro"
-version = "0.1.69"
+version = "0.1.70"
 dependencies = [
  "proc-macro2",
  "quote",
@@ -1854,7 +1854,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-language-server"
-version = "0.2.69"
+version = "0.2.70"
 dependencies = [
  "anyhow",
  "clap",
@@ -1875,7 +1875,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-language-server-release"
-version = "0.1.69"
+version = "0.1.70"
 dependencies = [
  "anyhow",
  "clap",
@@ -1895,7 +1895,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-lib"
-version = "0.2.69"
+version = "0.2.70"
 dependencies = [
  "anyhow",
  "approx 0.5.1",
@@ -1971,7 +1971,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-python-bindings"
-version = "0.3.69"
+version = "0.3.70"
 dependencies = [
  "anyhow",
  "kcl-lib",
@@ -1986,7 +1986,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-test-server"
-version = "0.1.69"
+version = "0.1.70"
 dependencies = [
  "anyhow",
  "hyper 0.14.32",
@@ -1999,7 +1999,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-to-core"
-version = "0.1.69"
+version = "0.1.70"
 dependencies = [
  "anyhow",
  "async-trait",
@@ -2013,7 +2013,7 @@ dependencies = [
 
 [[package]]
 name = "kcl-wasm-lib"
-version = "0.1.69"
+version = "0.1.70"
 dependencies = [
  "anyhow",
  "bson",
@@ -2080,9 +2080,9 @@ dependencies = [
 
 [[package]]
 name = "kittycad-modeling-cmds"
-version = "0.2.117"
+version = "0.2.121"
 source = "registry+https://github.com/rust-lang/crates.io-index"
-checksum = "e6b8c7b34292486704ebd6339709f0bcef821d1926a0edfc0db30837646e7b8d"
+checksum = "94ba95c22493d79ec8a1faab963d8903f6de0e373efedf2bc3bb76a0ddbab036"
 dependencies = [
  "anyhow",
  "chrono",

rust/Cargo.toml

@@ -36,7 +36,7 @@ dashmap = { version = "6.1.0" }
 http = "1"
 indexmap = "2.9.0"
 kittycad = { version = "0.3.37", default-features = false, features = ["js", "requests"] }
-kittycad-modeling-cmds = { version = "0.2.117", features = ["ts-rs", "websocket"] }
+kittycad-modeling-cmds = { version = "0.2.120", features = ["ts-rs", "websocket"] }
 lazy_static = "1.5.0"
 miette = "7.5.0"
 pyo3 = { version = "0.24.1" }

rust/kcl-bumper/Cargo.toml

@@ -1,7 +1,7 @@
 
 [package]
 name = "kcl-bumper"
-version = "0.1.69"
+version = "0.1.70"
 edition = "2021"
 repository = "https://github.com/KittyCAD/modeling-api"
 rust-version = "1.76"

rust/kcl-derive-docs/Cargo.toml

@@ -1,7 +1,7 @@
 [package]
 name = "kcl-derive-docs"
 description = "A tool for generating documentation from Rust derive macros"
-version = "0.1.69"
+version = "0.1.70"
 edition = "2021"
 license = "MIT"
 repository = "https://github.com/KittyCAD/modeling-app"

rust/kcl-derive-docs/src/lib.rs

@@ -100,18 +100,21 @@ fn do_for_each_std_mod(item: proc_macro2::TokenStream) -> proc_macro2::TokenStre
         let filename = e.file_name();
         filename.to_str().unwrap().strip_suffix(".kcl").map(str::to_owned)
     }) {
-        let mut item = item.clone();
-        item.sig.ident = syn::Ident::new(&format!("{}_{}", item.sig.ident, name), Span::call_site());
-        let stmts = &item.block.stmts;
-        //let name = format!("\"{name}\"");
-        let block = quote! {
-            {
-                const STD_MOD_NAME: &str = #name;
-                #(#stmts)*
-            }
-        };
-        item.block = Box::new(syn::parse2(block).unwrap());
-        result.extend(Some(item.into_token_stream()));
+        for i in 0..10_usize {
+            let mut item = item.clone();
+            item.sig.ident = syn::Ident::new(&format!("{}_{}_shard_{i}", item.sig.ident, name), Span::call_site());
+            let stmts = &item.block.stmts;
+            let block = quote! {
+                {
+                    const STD_MOD_NAME: &str = #name;
+                    const SHARD: usize = #i;
+                    const SHARD_COUNT: usize = 10;
+                    #(#stmts)*
+                }
+            };
+            item.block = Box::new(syn::parse2(block).unwrap());
+            result.extend(Some(item.into_token_stream()));
+        }
     }
 
     result

rust/kcl-directory-test-macro/Cargo.toml

@@ -1,7 +1,7 @@
 [package]
 name = "kcl-directory-test-macro"
 description = "A tool for generating tests from a directory of kcl files"
-version = "0.1.69"
+version = "0.1.70"
 edition = "2021"
 license = "MIT"
 repository = "https://github.com/KittyCAD/modeling-app"

rust/kcl-language-server-release/Cargo.toml

@@ -1,6 +1,6 @@
 [package]
 name = "kcl-language-server-release"
-version = "0.1.69"
+version = "0.1.70"
 edition = "2021"
 authors = ["KittyCAD Inc <kcl@kittycad.io>"]
 publish = false

rust/kcl-language-server/Cargo.toml

@@ -2,7 +2,7 @@
 name = "kcl-language-server"
 description = "A language server for KCL."
 authors = ["KittyCAD Inc <kcl@kittycad.io>"]
-version = "0.2.69"
+version = "0.2.70"
 edition = "2021"
 license = "MIT"
 # See more keys and their definitions at https://doc.rust-lang.org/cargo/reference/manifest.html

rust/kcl-lib/Cargo.toml

@@ -1,7 +1,7 @@
 [package]
 name = "kcl-lib"
 description = "KittyCAD Language implementation and tools"
-version = "0.2.69"
+version = "0.2.70"
 edition = "2021"
 license = "MIT"
 repository = "https://github.com/KittyCAD/modeling-app"

rust/kcl-lib/e2e/executor/inputs/i_shape.kcl

@@ -1,53 +0,0 @@
-d_wrist_circumference = [22.8, 10.7, 16.4, 18.5]
-width = d_wrist_circumference[0] + d_wrist_circumference[1] + d_wrist_circumference[2] + d_wrist_circumference[3]
-length = 120.0
-hand_thickness = 24.0
-corner_radius = 5.0
-
-// At first I thought this was going to be symmetric,
-// but I measured intentionally to not be symmetric,
-// because your wrist isn't a perfect cylindrical surface
-brace_base = startSketchOn(XY)
-  |> startProfile(at = [corner_radius, 0])
-  |> line(end = [width - corner_radius, 0.0])
-  |> tangentialArc(end = [corner_radius, corner_radius])
-  |> yLine(length = 25.0 - corner_radius)
-  |> tangentialArc(end = [-corner_radius, corner_radius])
-  |> xLine(length = -(d_wrist_circumference[0] - (corner_radius * 2)))
-  |> tangentialArc(end = [-corner_radius, corner_radius])
-  |> yLine(length = length - 25.0 - 23.0 - (corner_radius * 2))
-  |> tangentialArc(end = [corner_radius, corner_radius])
-  |> xLine(length = 15.0 - (corner_radius * 2))
-  |> tangentialArc(end = [corner_radius, corner_radius])
-  |> yLine(length = 23.0 - corner_radius)
-  |> tangentialArc(end = [-corner_radius, corner_radius])
-  |> xLine(length = -(hand_thickness + 15.0 + 15.0 - (corner_radius * 2)))
-  |> tangentialArc(end = [-corner_radius, -corner_radius])
-  |> yLine(length = -(23.0 - corner_radius))
-  |> tangentialArc(end = [corner_radius, -corner_radius])
-  |> xLine(length = 15.0 - (corner_radius * 2))
-  |> tangentialArc(end = [corner_radius, -corner_radius])
-  |> yLine(length = -(length - 25.0 - 23.0 - (corner_radius * 2)))
-  |> tangentialArc(end = [-corner_radius, -corner_radius])
-  |> xLine(length = -(d_wrist_circumference[1] + d_wrist_circumference[2] + d_wrist_circumference[3] - hand_thickness - corner_radius))
-  |> tangentialArc(end = [-corner_radius, -corner_radius])
-  |> yLine(length = -(25.0 - corner_radius))
-  |> tangentialArc(end = [corner_radius, -corner_radius])
-  |> close()
-
-inner = startSketchOn(XY)
-  |> startProfile(at = [0, 0])
-  |> xLine(length = 1.0)
-  |> tangentialArc(end = [corner_radius, corner_radius])
-  |> yLine(length = 25.0 - (corner_radius * 2))
-  |> tangentialArc(end = [-corner_radius, corner_radius])
-  |> xLine(length = -1.0)
-  |> tangentialArc(end = [-corner_radius, -corner_radius])
-  |> yLine(length = -(25.0 - (corner_radius * 2)))
-  |> tangentialArc(end = [corner_radius, -corner_radius])
-  |> close()
-
-final = brace_base
-  |> subtract2d(tool = inner)
-  |> extrude(length = 3.0)
-