d275995dfe
We continue migrating KCL stdlib functions to use keyword arguments. Next up is the `angledLine` family of functions (except `angledLineThatIntersects, which will be a quick follow-up).
Before vs. after:
`angledLine({angle = 90, length = 3}, %, $edge)`
=> `angledLine(angle = 90, length = 3, tag = $edge)`
`angledLineOfXLength({angle = 90, length = 3}, %, $edge)`
=> `angledLine(angle = 90, lengthX = 3, tag = $edge)`
`angledLineOfYLength({angle = 90, length = 3}, %, $edge)`
=> `angledLine(angle = 90, lengthY = 3, tag = $edge)`
`angledLineToX({angle = 90, length = 3}, %, $edge)`
=> `angledLine(angle = 90, endAbsoluteX = 3, tag = $edge)`
`angledLineToY({angle = 90, length = 3}, %, $edge)`
=> `angledLine(angle = 90, endAbsoluteY = 3, tag = $edge)`
52 lines
1.6 KiB
Plaintext
52 lines
1.6 KiB
Plaintext
wall_thickness = 0.125
|
|
back_walls_width = 2
|
|
front_walls_width = 2.5
|
|
height = 5.5
|
|
filletRadius = 0.050
|
|
back_length = 7
|
|
exit_height = 1
|
|
front_length = 6
|
|
Fx = 0.5
|
|
Fy = 0.5
|
|
|
|
sketch001 = startSketchOn(-YZ)
|
|
|> startProfileAt([back_walls_width / 2, 0], %)
|
|
|> xLine(length = wall_thickness / 2)
|
|
|> angledLine(angle = 45, endAbsoluteX = back_walls_width, tag = $seg01)
|
|
|> yLine(endAbsolute = height)
|
|
|> xLine(length = -wall_thickness)
|
|
|> yLine(endAbsolute = segEndY(seg01))
|
|
|> angledLine(angle = 45, endAbsoluteX = back_walls_width / 2 + wall_thickness / 2)
|
|
|> xLine(length = -wall_thickness)
|
|
|> angledLine(angle = 180 - 45, endAbsoluteX = wall_thickness)
|
|
|> yLine(endAbsolute = height)
|
|
|> xLine(endAbsolute = 0)
|
|
|> yLine(endAbsolute = segEndY(seg01))
|
|
|> angledLine(angle = 180 - 45, endAbsoluteY = 0)
|
|
|> close(%)
|
|
part001 = revolve(
|
|
sketch001,
|
|
angle = 90,
|
|
axis = {
|
|
direction = [1.0, 0.0],
|
|
origin = [0.0, height + .0000001]
|
|
},
|
|
)
|
|
|
|
sketch002 = startSketchOn(-YZ)
|
|
|> startProfileAt([back_walls_width / 2, 0], %)
|
|
|> xLine(length = wall_thickness / 2)
|
|
|> angledLine(angle = 45, endAbsoluteX = back_walls_width, tag = $seg02)
|
|
|> yLine(endAbsolute = height)
|
|
|> xLine(length = -wall_thickness)
|
|
|> yLine(endAbsolute = segEndY(seg01))
|
|
|> angledLine(angle = 45, endAbsoluteX = back_walls_width / 2 + wall_thickness / 2)
|
|
|> xLine(length = -wall_thickness)
|
|
|> angledLine(angle = 180 - 45, endAbsoluteX = wall_thickness)
|
|
|> yLine(endAbsolute = height)
|
|
|> xLine(endAbsolute = 0)
|
|
|> yLine(endAbsolute = segEndY(seg02))
|
|
|> angledLine(angle = 180 - 45, endAbsoluteY = 0)
|
|
|> close(%)
|
|
|> extrude(length = back_length - height)
|