Previous: ``` startProfileAt([x, y], %) startProfileAt([x, y], sketch001) ``` New: ``` startProfile(%, at = [x, y]) startProfile(sketch001, at = [x, y]) ```
		
			
				
	
	
		
			56 lines
		
	
	
		
			1.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			56 lines
		
	
	
		
			1.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
---
 | 
						|
source: kcl-lib/src/simulation_tests.rs
 | 
						|
description: Result of unparsing poop_chute.kcl
 | 
						|
---
 | 
						|
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)
 | 
						|
  |> startProfile(at = [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)
 | 
						|
  |> startProfile(at = [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)
 |