25 lines
544 B
Plaintext
25 lines
544 B
Plaintext
|
---
|
||
|
|
source: kcl-lib/src/simulation_tests.rs
|
||
|
|
description: Result of unparsing cube.kcl
|
||
|
|
---
|
||
|
|
fn cube(sideLength, center) {
|
||
|
|
l = sideLength / 2
|
||
|
|
x = center[0]
|
||
|
|
y = center[1]
|
||
|
|
p0 = [-l + x, -l + y]
|
||
|
|
p1 = [-l + x, l + y]
|
||
|
|
p2 = [l + x, l + y]
|
||
|
|
p3 = [l + x, -l + y]
|
||
|
|
|
||
|
|
return startSketchOn(XY)
|
||
|
|
|> startProfileAt(p0, %)
|
||
|
|
|> line(endAbsolute = p1)
|
||
|
|
|> line(endAbsolute = p2)
|
||
|
|
|> line(endAbsolute = p3)
|
||
|
|
|> line(endAbsolute = p0)
|
||
|
|
|> close()
|
||
|
|
|> extrude(length = sideLength)
|
||
|
|
}
|
||
|
|
|
||
|
|
myCube = cube(sideLength = 40, center = [0, 0])
|