;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;										;;;;;;
;;;;;;	MIT 4.207 Final Project 		Program Description:	  	;;;;;;
;;;;;;	Ian Sheard (isheard@mit.edu)		Nitros program for generating 	;;;;;;
;;;;;;						a rectangular floor plan with	;;;;;;
;;;;;;	May 16, 2001				windows and doors		;;;;;;
;;;;;;										;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(command "osnap" "off")

;;;;;;
;;;;;;
;;; Set up layers
;;;;;;
;;;;;;



(command "-layer" "new" "Construction" "color" "white" "Construction" "")
(command "-layer" "new" "columns" "color" "white" "columns" "")
(command "-layer" "new" "walls" "color" "yellow" "walls" "")
(command "-layer" "new" "windows" "color" "cyan" "windows" "")
(command "-layer" "new" "doors" "color" "green" "doors" "")


;;;;;;
;;;;;;
;;; Declare types and parameters
;;;;;;
;;;;;;


(nt_def_type "Initial_Bay" 'Initial_Bay
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75)
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0))
)


(nt_def_type "Add_Initial_Bay_x_Positive" 'Add_Initial_Bay_x_Positive
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Bay_Add_xwide" . 30))
)


(nt_def_type "Add_Initial_Bay_x_Negative" 'Add_Initial_Bay_x_Negative
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Bay_Add_xwide" . 30))
)


(nt_def_type "Add_2_Initial_Bay_x_Positive" 'Add_2_Initial_Bay_x_Positive
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Bay_Add_xwide" . 30))
)


(nt_def_type "Add_2_Initial_Bay_x_Negative" 'Add_2_Initial_Bay_x_Negative
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Bay_Add_xwide" . 30))
)


(nt_def_type "Add_Bay_x_Positive" 'Add_Bay_x_Positive
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Bay_Add_xwide" . 30))
)


(nt_def_type "Add_Bay_x_Negative" 'Add_Bay_x_Negative
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Bay_Add_xwide" . 30))
)


(nt_def_type "Initial_Bay_Positive" 'Initial_Bay_Positive
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0))
)


(nt_def_type "Initial_Bay_Negative" 'Initial_Bay_Negative
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0))
)


(nt_def_type "Bay_End_x_Positive" 'Bay_End_x_Positive
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0))
)


(nt_def_type "Bay_End_x_Negative" 'Bay_End_x_Negative
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0))
)


(nt_def_type "Column_Rect" 'Col_Rect
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Col_xwide" . 2) ("Col_ywide" . 2))
)


(nt_def_type "Initial_Bay_Rect_Middle" 'Initial_Bay_Rect_Middle
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0))
)


(nt_def_type "Bay_Rect_Middle_Positive" 'Bay_Rect_Middle_Positive
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("State" . 0))
)


(nt_def_type "Bay_Rect_Middle_Negative" 'Bay_Rect_Middle_Negative
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("State" . 0))
)


(nt_def_type "Walls_Initial_Bay" 'Walls_Initial_Bay
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Wall_thk" . 0.5))
)


(nt_def_type "Walls_Middle_Bay_Initial" 'Walls_Middle_Bay_Initial
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Wall_thk" . 0.5))
)


(nt_def_type "Walls_Initial_Bay_x_Positive" 'Walls_Initial_Bay_x_Positive
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Wall_thk" . 0.5))
)


(nt_def_type "Walls_Initial_Bay_x_Negative" 'Walls_Initial_Bay_x_Negative
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Wall_thk" . 0.5))
)


(nt_def_type "Walls_Middle_Bay_Positive" 'Walls_Middle_Bay_Positive
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Wall_thk" . 0.5))
)


(nt_def_type "Walls_Middle_Bay_Negative" 'Walls_Middle_Bay_Negative
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Wall_thk" . 0.5))
)


(nt_def_type "Walls_End_Bay_x_Positive" 'Walls_End_Bay_x_Positive
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Wall_thk" . 0.5))
)


(nt_def_type "Walls_End_Bay_x_Negative" 'Walls_End_Bay_x_Negative
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Bay_xwide" . 33.5) ("Bay_ywide" . 33.5)
	("x1_col2wall_offset" . 1.75) ("x2_col2wall_offset" . 1.75) ("y1_col2wall_offset" . 1.75) 
	("y2_col2wall_offset" . 1.75) ("Col_xwide" . 2.0) ("Col_ywide" . 2.0) ("Wall_thk" . 0.5))
)


(nt_def_type "Wall_yPos" 'Wall_x_Pos_Neg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Wall_yNeg" 'Wall_x_Pos_Neg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Wall_xPos" 'Wall_y_Pos_Neg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Wall_xNeg" 'Wall_y_Pos_Neg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)

(nt_def_type "Corner_Wall_xPos_yPos" 'Corner_Wall_xPos_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Wall_x_length" . 3.5) ("Wall_y_length" . 3.5) ("Wall_thk" . 0.5))
)


(nt_def_type "Corner_Wall_xPos_yNeg" 'Corner_Wall_xPos_yNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Wall_x_length" . 3.5) ("Wall_y_length" . 3.5) ("Wall_thk" . 0.5))
)


(nt_def_type "Corner_Wall_xNeg_yPos" 'Corner_Wall_xNeg_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Wall_x_length" . 3.5) ("Wall_y_length" . 3.5) ("Wall_thk" . 0.5))
)


(nt_def_type "Corner_Wall_xNeg_yNeg" 'Corner_Wall_xNeg_yNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Wall_x_length" . 3.5) ("Wall_y_length" . 3.5) ("Wall_thk" . 0.5))
)


(nt_def_type "Column_Wall" 'Wall_x_Pos_Neg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Wall_length" . 3.5) ("Wall_thk" . 0.5))
)


(nt_def_type "Window_x" 'Window_x
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Window_width" . 5) ("Wall_thk" . 0.5))
)


(nt_def_type "Window_y" 'Window_y
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Window_width" . 5) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Window_x_yPos" 'Insert_Window_x_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Window_width" . 5) ("Window_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Window_x_yNeg" 'Insert_Window_x_yNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Window_width" . 5) ("Window_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Window_y_xPos" 'Insert_Window_y_xPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Window_width" . 5) ("Window_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Window_y_xNeg" 'Insert_Window_y_xNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Window_width" . 5) ("Window_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Door_Single_Out_yPos" 'Door_Single_Out_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Door_Single_In_yPos" 'Door_Single_In_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Door_Double_Out_yPos" 'Door_Double_Out_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 6) ("Wall_thk" . 0.5))
)


(nt_def_type "Door_Double_In_yPos" 'Door_Double_In_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 6) ("Wall_thk" . 0.5))
)


(nt_def_type "Door_Single_Out_xPos" 'Door_Single_Out_xPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Door_Single_In_xPos" 'Door_Single_In_xPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Door_Double_Out_xPos" 'Door_Double_Out_xPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 6) ("Wall_thk" . 0.5))
)


(nt_def_type "Door_Double_In_xPos" 'Door_Double_In_xPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 6) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Door_Single_Out_yPos" 'Insert_Door_Single_Out_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Insert_Door_Single_In_yPos" 'Insert_Door_Single_In_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Insert_Door_Single_Out_yNeg" 'Insert_Door_Single_Out_yNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Insert_Door_Single_In_yNeg" 'Insert_Door_Single_In_yNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Insert_Door_Double_Out_yPos" 'Insert_Door_Double_Out_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Door_Double_In_yPos" 'Insert_Door_Double_In_yPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Door_Double_Out_yNeg" 'Insert_Door_Double_Out_yNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Door_Double_In_yNeg" 'Insert_Door_Double_In_yNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_x_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Door_Single_Out_xPos" 'Insert_Door_Single_Out_xPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Insert_Door_Single_In_xPos" 'Insert_Door_Single_In_xPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Insert_Door_Single_Out_xNeg" 'Insert_Door_Single_Out_xNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Insert_Door_Single_In_xNeg" 'Insert_Door_Single_In_xNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5) ("Orient" . 0))
)


(nt_def_type "Insert_Door_Double_Out_xPos" 'Insert_Door_Double_Out_xPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Door_Double_In_xPos" 'Insert_Door_Double_In_xPos
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Door_Double_Out_xNeg" 'Insert_Door_Double_Out_xNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)


(nt_def_type "Insert_Door_Double_In_xNeg" 'Insert_Door_Double_In_xNeg
	'(("xo" . 0) ("yo" . 0) ("zo" . 0) ("Door_width" . 3) ("Door_y_offset" . 0) ("Wall_length" . 30) ("Wall_thk" . 0.5))
)



;;;;;;
;;;;;;
;;; Declare seed types
;;;;;;
;;;;;;


(nt_add_seed_type "Initial_Bay")





;;;;;;
;;;;;;
;;; Define geometry functions
;;;;;;
;;;;;;



(defun Initial_Bay ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide)

	(command "-layer" "set" "Construction" "")

	(command "rectang" (list (- xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0))
	(setq perimeter (entlast))

	(command "rectang" (list (- xo (+ (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (+ (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0)
		(list (- xo (- (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (- (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0))
	(setq col1 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list 0 (- 0 (- Bay_ywide (+ y1_col2wall_offset y2_col2wall_offset))) 0))
	(setq col2 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
	(setq col3 (entlast))

	(command "copy" col2 "" (list 0 0 0) 
		(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
	(setq col4 (entlast))

	(setq perim_col (nt_make_ablock (list perimeter col1 col2 col3 col4)))
	perim_col
)


(defun Add_Initial_Bay_x_Positive ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Bay_Add_xwide)

	
	(setq component_par_list_b
		(list "Initial_Bay_Positive"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_c
		(list "Bay_End_x_Positive"
			nil
			(list 	(cons "xo" (+ xo (+ (/ Bay_xwide 2.0) (/ Bay_Add_xwide 2.0))))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_Add_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c)
	)
	
)


(defun Add_Initial_Bay_x_Negative ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Bay_Add_xwide)

	
	(setq component_par_list_b
		(list "Initial_Bay_Negative"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_c
		(list "Bay_End_x_Negative"
			nil
			(list 	(cons "xo" (- xo (+ (/ Bay_xwide 2.0) (/ Bay_Add_xwide 2.0))))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_Add_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c)
	)
	
)


(defun Add_2_Initial_Bay_x_Positive ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Bay_Add_xwide)

	
	(setq component_par_list_b
		(list "Initial_Bay_Rect_Middle"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_c
		(list "Bay_End_x_Positive"
			nil
			(list 	(cons "xo" (+ xo (+ (/ Bay_xwide 2.0) (/ Bay_Add_xwide 2.0))))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_Add_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c)
	)
	
)


(defun Add_2_Initial_Bay_x_Negative ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Bay_Add_xwide)

	
	(setq component_par_list_b
		(list "Initial_Bay_Rect_Middle"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_c
		(list "Bay_End_x_Negative"
			nil
			(list 	(cons "xo" (- xo (+ (/ Bay_xwide 2.0) (/ Bay_Add_xwide 2.0))))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_Add_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c)
	)
	
)


(defun Add_Bay_x_Positive ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Bay_Add_xwide)

	
	(setq component_par_list_b
		(list "Bay_Rect_Middle_Positive"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
				(cons "State" 0)
			)
		)
	)


	(setq component_par_list_c
		(list "Bay_End_x_Positive"
			nil
			(list 	(cons "xo" (+ xo (+ (/ Bay_xwide 2.0) (/ Bay_Add_xwide 2.0))))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_Add_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c)
	)
	
)

(defun Add_Bay_x_Negative ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Bay_Add_xwide)

	
	(setq component_par_list_b
		(list "Bay_Rect_Middle_Negative"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
				(cons "State" 0)
			)
		)
	)


	(setq component_par_list_c
		(list "Bay_End_x_Negative"
			nil
			(list 	(cons "xo" (- xo (+ (/ Bay_xwide 2.0) (/ Bay_Add_xwide 2.0))))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Bay_xwide" Bay_Add_xwide)
				(cons "Bay_ywide" Bay_ywide)
				(cons "x1_col2wall_offset" x1_col2wall_offset)
				(cons "x2_col2wall_offset" x2_col2wall_offset)
				(cons "y1_col2wall_offset" y1_col2wall_offset)
				(cons "y2_col2wall_offset" y2_col2wall_offset)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c)
	)
	
)


(defun Initial_Bay_Positive ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide)

	(command "-layer" "set" "Construction" "")

	(command "pline" (list (+ xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (- xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (- xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0) "")
	(setq perimeter (entlast))

	(command "rectang" (list (- xo (+ (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (+ (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0)
		(list (- xo (- (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (- (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0))
	(setq col1 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list 0 (- 0 (- Bay_ywide (+ y1_col2wall_offset y2_col2wall_offset))) 0))
	(setq col2 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
	(setq col3 (entlast))

	(command "copy" col2 "" (list 0 0 0) 
		(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
	(setq col4 (entlast))

	(setq perim_col (nt_make_ablock (list perimeter col1 col2 col3 col4)))
	perim_col
)


(defun Initial_Bay_Negative ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide)

	(command "-layer" "set" "Construction" "")

	(command "pline" (list (- xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0)
		(list (- xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0)"")
	(setq perimeter (entlast))

	(command "rectang" (list (- xo (+ (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (+ (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0)
		(list (- xo (- (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (- (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0))
	(setq col1 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list 0 (- 0 (- Bay_ywide (+ y1_col2wall_offset y2_col2wall_offset))) 0))
	(setq col2 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
	(setq col3 (entlast))

	(command "copy" col2 "" (list 0 0 0) 
		(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
	(setq col4 (entlast))

	(setq perim_col (nt_make_ablock (list perimeter col1 col2 col3 col4)))
	perim_col
)


(defun Bay_End_x_Positive ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide)

	(command "-layer" "set" "Construction" "")

	(command "pline" (list (- xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0)
		(list (- xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0) "")
	(setq perimeter (entlast))

	(command "rectang" (list (- xo (+ (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (+ (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0)
		(list (- xo (- (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (- (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0))
	(setq col1 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list 0 (- 0 (- Bay_ywide (+ y1_col2wall_offset y2_col2wall_offset))) 0))
	(setq col2 (entlast))

	(command "move" col1 col2"" (list 0 0 0) 
		(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))

	(setq perim_col (nt_make_ablock (list perimeter col1 col2)))
	perim_col
)	


(defun Bay_End_x_Negative ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide)

	(command "-layer" "set" "Construction" "")

	(command "pline" (list (+ xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (- xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (- xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0) "")
	(setq perimeter (entlast))

	(command "rectang" (list (- xo (+ (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (+ (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0)
		(list (- xo (- (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (- (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0))
	(setq col1 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list 0 (- 0 (- Bay_ywide (+ y1_col2wall_offset y2_col2wall_offset))) 0))
	(setq col2 (entlast))

	(setq perim_col (nt_make_ablock (list perimeter col1 col2)))
	perim_col
)	


(defun Col_Rect ( xo yo zo Col_xwide Col_ywide )
	(command "-layer" "set" "columns" "")
	(command "rectang" (list (- xo (/ Col_xwide 2.0)) (+ yo (/ Col_ywide 2.0)) 0)
		(list (+ xo (/ Col_xwide 2.0)) (- yo (/ Col_ywide 2.0)) 0))
	(entlast)
)


(defun Initial_Bay_Rect_Middle ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide)

	(command "-layer" "set" "Construction" "")

	(command "line" (list (- xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0) "")
	(setq perim_1 (entlast))

	(command "line"	(list (+ xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0)
		(list (- xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0) "")
	(setq perim_2 (entlast))

	(command "rectang" (list (- xo (+ (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (+ (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0)
		(list (- xo (- (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (- (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0))
	(setq col1 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list 0 (- 0 (- Bay_ywide (+ y1_col2wall_offset y2_col2wall_offset))) 0))
	(setq col2 (entlast))

	(command "copy" col1 "" (list 0 0 0) 
		(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
	(setq col3 (entlast))

	(command "copy" col2 "" (list 0 0 0) 
		(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
	(setq col4 (entlast))	

	(setq perim_col (nt_make_ablock (list perim_1 perim_2 col1 col2 col3 col4)))
	perim_col
)


(defun Bay_Rect_Middle_Positive ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide State)

	(command "-layer" "set" "Construction" "")

	(command "line" (list (- xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0) "")
	(setq perim_1 (entlast))

	(command "line"	(list (+ xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0)
		(list (- xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0) "")
	(setq perim_2 (entlast))

	(command "rectang" (list (- xo (+ (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (+ (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0)
		(list (- xo (- (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (- (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0))
	(setq col1 (entlast))


	(command "copy" col1 "" (list 0 0 0) 
		(list 0 (- 0 (- Bay_ywide (+ y1_col2wall_offset y2_col2wall_offset))) 0))
	(setq col2 (entlast))

	(if (= State 0)
		(progn
		(command "move" col1 col2 "" (list 0 0 0) 
			(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
		(setq columns (nt_make_ablock (list col1 col2)))
		)
	)

	(if (= State 1)
		(progn
		(command "copy" col1 "" (list 0 0 0) 
			(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
		(setq col3 (entlast))
		(command "copy" col2 "" (list 0 0 0) 
			(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
		(setq col4 (entlast))
		(setq columns (nt_make_ablock (list col1 col2 col3 col4)))
		)
	)

	(setq perim_col (nt_make_ablock (list perim_1 perim_2 columns)))
	perim_col
)


(defun Bay_Rect_Middle_Negative ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide State)

	(command "-layer" "set" "Construction" "")

	(command "line" (list (- xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0)
		(list (+ xo (/ Bay_xwide 2.0)) (+ yo (/ Bay_ywide 2.0)) 0) "")
	(setq perim_1 (entlast))

	(command "line"	(list (+ xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0)
		(list (- xo (/ Bay_xwide 2.0)) (- yo (/ Bay_ywide 2.0)) 0) "")
	(setq perim_2 (entlast))

	(command "rectang" (list (- xo (+ (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (+ (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0)
		(list (- xo (- (- (/ Bay_xwide 2) x2_col2wall_offset) (/ Col_xwide 2.0)))
		(+ yo (- (- (/ Bay_ywide 2.0) y1_col2wall_offset) (/ Col_ywide 2.0))) 0))
	(setq col1 (entlast))


	(command "copy" col1 "" (list 0 0 0) 
		(list 0 (- 0 (- Bay_ywide (+ y1_col2wall_offset y2_col2wall_offset))) 0))
	(setq col2 (entlast))

	(if (= State 0)
		(setq columns (nt_make_ablock (list col1 col2)))
	)

	(if (= State 1)
		(progn
		(command "copy" col1 "" (list 0 0 0) 
			(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
		(setq col3 (entlast))
		(command "copy" col2 "" (list 0 0 0) 
			(list (+ 0 (- Bay_xwide (+ x1_col2wall_offset x2_col2wall_offset))) 0 0))
		(setq col4 (entlast))
		(setq columns (nt_make_ablock (list col1 col2 col3 col4)))
		)
	)

	(setq perim_col (nt_make_ablock (list perim_1 perim_2 columns)))
	perim_col
)


(defun Walls_Initial_Bay ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Wall_thk)

	
	(setq component_par_list_b
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ (+ (- xo (/ Bay_xwide 2.0)) (* x2_col2wall_offset 2.0))
					(/ (- Bay_xwide (+ (* x1_col2wall_offset 2.0) (* x2_col2wall_offset 2.0))) 2.0)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (+ (* x2_col2wall_offset 2.0)
					(* x1_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ (+ (- xo (/ Bay_xwide 2.0)) (* x2_col2wall_offset 2.0))
					(/ (- Bay_xwide (+ (* x1_col2wall_offset 2.0) (* x2_col2wall_offset 2.0))) 2.0)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (+ (* x2_col2wall_offset 2.0)
					(* x1_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_d
		(list "Corner_Wall_xNeg_yPos"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_e
		(list "Corner_Wall_xNeg_yNeg"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_f
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) (/ Wall_thk 2.0))))
				(cons "yo" (- (+ yo (- (/ Bay_ywide 2.0) (* y1_col2wall_offset 2.0)))
					(/ (- Bay_ywide (+ (* y1_col2wall_offset 2.0) (* y2_col2wall_offset 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_ywide (+ (* y1_col2wall_offset 2.0)
					(* y2_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	
	(setq component_par_list_g
		(list "Corner_Wall_xPos_yPos"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_h
		(list "Corner_Wall_xPos_yNeg"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y2_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)		


	(setq component_par_list_i
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) (/ Wall_thk 2.0))))
				(cons "yo" (- (+ yo (- (/ Bay_ywide 2.0) (* y1_col2wall_offset 2.0)))
					(/ (- Bay_ywide (+ (* y1_col2wall_offset 2.0) (* y2_col2wall_offset 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_ywide (+ (* y1_col2wall_offset 2.0)
					(* y2_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_j
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_k
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)

	
	(setq component_par_list_l
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_m
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d
		component_par_list_e component_par_list_f component_par_list_g component_par_list_h
		component_par_list_i component_par_list_j component_par_list_k component_par_list_l
		component_par_list_m)
	)
	
)



(defun Walls_Middle_Bay_Initial ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Wall_thk)

	
	(setq component_par_list_b
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ (+ (- xo (/ Bay_xwide 2.0)) (* x2_col2wall_offset 2.0))
					(/ (- Bay_xwide (+ (* x1_col2wall_offset 2.0) (* x2_col2wall_offset 2.0))) 2.0)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (+ (* x2_col2wall_offset 2.0)
					(* x1_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ (+ (- xo (/ Bay_xwide 2.0)) (* x2_col2wall_offset 2.0))
					(/ (- Bay_xwide (+ (* x1_col2wall_offset 2.0) (* x2_col2wall_offset 2.0))) 2.0)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (+ (* x2_col2wall_offset 2.0)
					(* x1_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_d
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_e
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	
	(setq component_par_list_f
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_g
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)		


	(setq component_par_list_h
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_i
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)

	
	(setq component_par_list_j
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_k
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d
		component_par_list_e component_par_list_f component_par_list_g component_par_list_h
		component_par_list_i component_par_list_j component_par_list_k)
	)
	
)


(defun Walls_Initial_Bay_x_Positive ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Wall_thk)

	
	(setq component_par_list_b
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ (+ (- xo (/ Bay_xwide 2.0)) (* x2_col2wall_offset 2.0))
					(/ (- Bay_xwide (+ (* x1_col2wall_offset 2.0) (* x2_col2wall_offset 2.0))) 2.0)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (+ (* x2_col2wall_offset 2.0)
					(* x1_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ (+ (- xo (/ Bay_xwide 2.0)) (* x2_col2wall_offset 2.0))
					(/ (- Bay_xwide (+ (* x1_col2wall_offset 2.0) (* x2_col2wall_offset 2.0))) 2.0)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (+ (* x2_col2wall_offset 2.0)
					(* x1_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_d
		(list "Corner_Wall_xNeg_yPos"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_e
		(list "Corner_Wall_xNeg_yNeg"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_f
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) (/ Wall_thk 2.0))))
				(cons "yo" (- (+ yo (- (/ Bay_ywide 2.0) (* y1_col2wall_offset 2.0)))
					(/ (- Bay_ywide (+ (* y1_col2wall_offset 2.0) (* y2_col2wall_offset 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_ywide (+ (* y1_col2wall_offset 2.0)
					(* y2_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	
	(setq component_par_list_g
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_h
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)		


	(setq component_par_list_i
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_j
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)

	
	(setq component_par_list_k
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_l
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d
		component_par_list_e component_par_list_f component_par_list_g component_par_list_h
		component_par_list_i component_par_list_j component_par_list_k component_par_list_l)
	)
	
)


(defun Walls_Initial_Bay_x_Negative ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Wall_thk)

	
	(setq component_par_list_b
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ (+ (- xo (/ Bay_xwide 2.0)) (* x2_col2wall_offset 2.0))
					(/ (- Bay_xwide (+ (* x1_col2wall_offset 2.0) (* x2_col2wall_offset 2.0))) 2.0)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (+ (* x2_col2wall_offset 2.0)
					(* x1_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ (+ (- xo (/ Bay_xwide 2.0)) (* x2_col2wall_offset 2.0))
					(/ (- Bay_xwide (+ (* x1_col2wall_offset 2.0) (* x2_col2wall_offset 2.0))) 2.0)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (+ (* x2_col2wall_offset 2.0)
					(* x1_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_d
		(list "Corner_Wall_xPos_yPos"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_e
		(list "Corner_Wall_xPos_yNeg"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_f
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) (/ Wall_thk 2.0))))
				(cons "yo" (- (+ yo (- (/ Bay_ywide 2.0) (* y1_col2wall_offset 2.0)))
					(/ (- Bay_ywide (+ (* y1_col2wall_offset 2.0) (* y2_col2wall_offset 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_ywide (+ (* y1_col2wall_offset 2.0)
					(* y2_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	
	(setq component_par_list_g
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_h
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)		


	(setq component_par_list_i
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_j
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)

	
	(setq component_par_list_k
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_l
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d
		component_par_list_e component_par_list_f component_par_list_g component_par_list_h
		component_par_list_i component_par_list_j component_par_list_k component_par_list_l)
	)
	
)


(defun Walls_Middle_Bay_Positive ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Wall_thk)

	
	(setq component_par_list_b
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (- xo x1_col2wall_offset))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (* x1_col2wall_offset 2.0)))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (- xo x1_col2wall_offset))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (* x1_col2wall_offset 2.0)))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_d
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_e
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	
	(setq component_par_list_f
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_g
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d
		component_par_list_e component_par_list_f component_par_list_g)
	)
	
)


(defun Walls_Middle_Bay_Negative ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Wall_thk)

	
	(setq component_par_list_b
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ xo x2_col2wall_offset))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (* x2_col2wall_offset 2.0)))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ xo x2_col2wall_offset))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (* x2_col2wall_offset 2.0)))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_d
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_e
		(list "Column_Wall"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	
	(setq component_par_list_f
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_g
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y2_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d
		component_par_list_e component_par_list_f component_par_list_g)
	)
	
)


(defun Walls_End_Bay_x_Positive ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Wall_thk)

	
	(setq component_par_list_b
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (- xo x1_col2wall_offset))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (* x1_col2wall_offset 2.0)))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (- xo x1_col2wall_offset))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (* x1_col2wall_offset 2.0)))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_d
		(list "Corner_Wall_xPos_yPos"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_e
		(list "Corner_Wall_xPos_yNeg"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y2_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x1_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_f
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) (/ Wall_thk 2.0))))
				(cons "yo" (- (+ yo (- (/ Bay_ywide 2.0) (* y1_col2wall_offset 2.0)))
					(/ (- Bay_ywide (+ (* y1_col2wall_offset 2.0) (* y2_col2wall_offset 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_ywide (+ (* y1_col2wall_offset 2.0)
					(* y2_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_g
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_h
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (+ xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y2_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d
		component_par_list_e component_par_list_f component_par_list_g component_par_list_h)
	)
	
)


(defun Walls_End_Bay_x_Negative ( xo yo zo Bay_xwide Bay_ywide x1_col2wall_offset x2_col2wall_offset
		y1_col2wall_offset y2_col2wall_offset Col_xwide Col_ywide Wall_thk)

	
	(setq component_par_list_b
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ xo x2_col2wall_offset))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (* x2_col2wall_offset 2.0)))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ xo x2_col2wall_offset))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) (/ Wall_thk 2.0))))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_xwide (* x2_col2wall_offset 2.0)))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_d
		(list "Corner_Wall_xNeg_yPos"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y1_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_e
		(list "Corner_Wall_xNeg_yNeg"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x2_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y2_col2wall_offset)))
				(cons "zo" zo)
				(cons "Wall_x_length" (* x2_col2wall_offset 2.0))
				(cons "Wall_y_length" (* y2_col2wall_offset 2.0))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_f
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) (/ Wall_thk 2.0))))
				(cons "yo" (- (+ yo (- (/ Bay_ywide 2.0) (* y1_col2wall_offset 2.0)))
					(/ (- Bay_ywide (+ (* y1_col2wall_offset 2.0) (* y2_col2wall_offset 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- Bay_ywide (+ (* y1_col2wall_offset 2.0)
					(* y2_col2wall_offset 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_g
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (+ yo (- (/ Bay_ywide 2.0) y1_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)


	(setq component_par_list_h
		(list "Column_Rect"
			nil
			(list 	(cons "xo" (- xo (- (/ Bay_xwide 2.0) x1_col2wall_offset)))
				(cons "yo" (- yo (- (/ Bay_ywide 2.0) y2_col2wall_offset)))
				(cons "zo" zo)
				(cons "Col_xwide" Col_xwide)
				(cons "Col_ywide" Col_ywide)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d
		component_par_list_e component_par_list_f component_par_list_g component_par_list_h)
	)
	
)


(defun Wall_x_Pos_Neg (xo yo zo Wall_length Wall_thk / w1 w2 wall)
	(command "-layer" "set" "walls" "")

	(command "line" (list (- xo (/ Wall_length 2.0)) (+ yo (/ Wall_thk 2.0)) 0 )
			(list (+ xo (/ Wall_length 2.0)) (+ yo (/ Wall_thk 2.0)) 0 ) "" )
	(setq w1 (entlast))
	(command "line" (list (- xo (/ Wall_length 2.0)) (- yo (/ Wall_thk 2.0)) 0 )
			(list (+ xo (/ Wall_length 2.0)) (- yo (/ Wall_thk 2.0)) 0 ) "" )
	(setq w2 (entlast))
	(setq wall (nt_make_ablock (list w1 w2)))
	wall
)


(defun Wall_y_Pos_Neg (xo yo zo Wall_length Wall_thk / w1 w2 wall)
	(command "-layer" "set" "walls" "")

	(command "line" (list (+ xo (/ Wall_thk 2.0)) (+ yo (/ Wall_length 2.0)) 0 )
			(list (+ xo (/ Wall_thk 2.0)) (- yo (/ Wall_length 2.0)) 0 ) "" )
	(setq w1 (entlast))
	(command "line" (list (- xo (/ Wall_thk 2.0)) (+ yo (/ Wall_length 2.0)) 0 )
			(list (- xo (/ Wall_thk 2.0)) (- yo (/ Wall_length 2.0)) 0 ) "" )
	(setq w2 (entlast))
	(setq wall (nt_make_ablock (list w1 w2)))
	wall
)


(defun Corner_Wall_xPos_yPos (xo yo zo Wall_x_length Wall_y_length Wall_thk / w1 w2 wall)
	(command "-layer" "set" "walls" "")

	(command "pline" (list (- xo (/ Wall_x_length 2.0)) (+ yo (/ Wall_y_length 2.0)) 0 )
			(list (+ xo (/ Wall_x_length 2.0)) (+ yo (/ Wall_y_length 2.0)) 0 )
			(list (+ xo (/ Wall_x_length 2.0)) (- yo (/ Wall_y_length 2.0)) 0 ) "" )
	(setq w1 (entlast))
	(command "pline" (list (- xo (/ Wall_x_length 2.0)) (+ yo (- (/ Wall_y_length 2.0) Wall_thk)) 0 )
			(list (+ xo (- (/ Wall_x_length 2.0) Wall_thk)) (+ yo (- (/ Wall_y_length 2.0) Wall_thk)) 0 )
			(list (+ xo (- (/ Wall_x_length 2.0) Wall_thk)) (- yo (/ Wall_y_length 2.0)) 0 ) "" )
	(setq w2 (entlast))
	(setq corner_wall (nt_make_ablock (list w1 w2)))
	corner_wall
)


(defun Corner_Wall_xPos_yNeg (xo yo zo Wall_x_length Wall_y_length Wall_thk / w1 w2 wall)
	(command "-layer" "set" "walls" "")

	(command "pline" (list (- xo (/ Wall_x_length 2.0)) (- yo (/ Wall_y_length 2.0)) 0 )
			(list (+ xo (/ Wall_x_length 2.0)) (- yo (/ Wall_y_length 2.0)) 0 )
			(list (+ xo (/ Wall_x_length 2.0)) (+ yo (/ Wall_y_length 2.0)) 0 ) "" )
	(setq w1 (entlast))
	(command "pline" (list (- xo (/ Wall_x_length 2.0)) (- yo (- (/ Wall_y_length 2.0) Wall_thk)) 0 )
			(list (+ xo (- (/ Wall_x_length 2.0) Wall_thk)) (- yo (- (/ Wall_y_length 2.0) Wall_thk)) 0 )
			(list (+ xo (- (/ Wall_x_length 2.0) Wall_thk)) (+ yo (/ Wall_y_length 2.0)) 0 ) "" )
	(setq w2 (entlast))
	(setq corner_wall (nt_make_ablock (list w1 w2)))
	corner_wall
)


(defun Corner_Wall_xNeg_yPos (xo yo zo Wall_x_length Wall_y_length Wall_thk / w1 w2 wall)
	(command "-layer" "set" "walls" "")

	(command "pline" (list (+ xo (/ Wall_x_length 2.0)) (+ yo (/ Wall_y_length 2.0)) 0 )
			(list (- xo (/ Wall_x_length 2.0)) (+ yo (/ Wall_y_length 2.0)) 0 )
			(list (- xo (/ Wall_x_length 2.0)) (- yo (/ Wall_y_length 2.0)) 0 ) "" )
	(setq w1 (entlast))
	(command "pline" (list (+ xo (/ Wall_x_length 2.0)) (+ yo (- (/ Wall_y_length 2.0) Wall_thk)) 0 )
			(list (- xo (- (/ Wall_x_length 2.0) Wall_thk)) (+ yo (- (/ Wall_y_length 2.0) Wall_thk)) 0 )
			(list (- xo (- (/ Wall_x_length 2.0) Wall_thk)) (- yo (/ Wall_y_length 2.0)) 0 ) "" )
	(setq w2 (entlast))
	(setq corner_wall (nt_make_ablock (list w1 w2)))
	corner_wall
)


(defun Corner_Wall_xNeg_yNeg (xo yo zo Wall_x_length Wall_y_length Wall_thk / w1 w2 wall)
	(command "-layer" "set" "walls" "")

	(command "pline" (list (+ xo (/ Wall_x_length 2.0)) (- yo (/ Wall_y_length 2.0)) 0 )
			(list (- xo (/ Wall_x_length 2.0)) (- yo (/ Wall_y_length 2.0)) 0 )
			(list (- xo (/ Wall_x_length 2.0)) (+ yo (/ Wall_y_length 2.0)) 0 ) "" )
	(setq w1 (entlast))
	(command "pline" (list (+ xo (/ Wall_x_length 2.0)) (- yo (- (/ Wall_y_length 2.0) Wall_thk)) 0 )
			(list (- xo (- (/ Wall_x_length 2.0) Wall_thk)) (- yo (- (/ Wall_y_length 2.0) Wall_thk)) 0 )
			(list (- xo (- (/ Wall_x_length 2.0) Wall_thk)) (+ yo (/ Wall_y_length 2.0)) 0 ) "" )
	(setq w2 (entlast))
	(setq corner_wall (nt_make_ablock (list w1 w2)))
	corner_wall
)


(defun Window_x (xo yo zo Window_width Wall_thk)
	(command "-layer" "set" "windows" "")	

	(command "rectang" (list (- xo (/ Window_width 2.0)) (+ yo (/ Wall_thk 2.0)) 0)
			(list (+ (- xo (/ Window_width 2.0)) 0.25) (- yo (/ Wall_thk 2.0)) 0))
	(setq mul1 (entlast))
	
	(command "copy" mul1 "" (list xo yo zo) (list (+ xo (- Window_width 0.25)) yo zo))
	(setq mul2 (entlast))

	(command "line" (list (- xo (- (/ Window_width 2.0) 0.25)) (+ yo 0.025) 0)
			(list (+ xo (- (/ Window_width 2.0) 0.25)) (+ yo 0.025) 0) "")
	(setq glass1 (entlast))

	(command "copy" glass1 "" (list xo yo zo) (list xo (- yo 0.05) zo))
	(setq glass2 (entlast))

	(setq window (nt_make_ablock (list mul1 mul2 glass1 glass2)))
	window
)


(defun Window_y (xo yo zo Window_width Wall_thk)
	(command "-layer" "set" "windows" "")	

	(command "rectang" (list (- xo (/ Wall_thk 2.0)) (+ yo (/ Window_width 2.0)) 0)
			(list (+ xo (/ Wall_thk 2.0)) (+ yo (- (/ Window_width 2.0) 0.25)) 0))
	(setq mul1 (entlast))
	
	(command "copy" mul1 "" (list xo yo zo) (list xo (- yo (- Window_width 0.25)) zo))
	(setq mul2 (entlast))

	(command "line" (list (- xo 0.025) (+ yo (- (/ Window_width 2.0) 0.25)) 0)
			(list (- xo 0.025) (- yo (- (/ Window_width 2.0) 0.25)) 0) "")
	(setq glass1 (entlast))

	(command "copy" glass1 "" (list xo yo zo) (list (+ xo 0.05) yo zo))
	(setq glass2 (entlast))

	(setq window (nt_make_ablock (list mul1 mul2 glass1 glass2)))
	window
)


(defun Insert_Window_x_yPos (xo yo zo Window_width Window_x_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Window_x"
			nil
			(list 	(cons "xo" (+ xo Window_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Window_width" Window_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Window_x_offset (/ Window_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Window_x_offset (/ Window_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Window_x_offset (/ Window_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Window_x_offset (/ Window_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Window_x_yNeg (xo yo zo Window_width Window_x_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Window_x"
			nil
			(list 	(cons "xo" (+ xo Window_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Window_width" Window_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Window_x_offset (/ Window_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Window_x_offset (/ Window_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Window_x_offset (/ Window_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Window_x_offset (/ Window_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Window_y_xPos (xo yo zo Window_width Window_y_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Window_y"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Window_y_offset))
				(cons "zo" zo)
				(cons "Window_width" Window_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Window_y_offset (/ Window_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Window_y_offset (/ Window_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Window_y_offset (/ Window_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Window_y_offset (/ Window_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Window_y_xNeg (xo yo zo Window_width Window_y_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Window_y"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Window_y_offset))
				(cons "zo" zo)
				(cons "Window_width" Window_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Window_y_offset (/ Window_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Window_y_offset (/ Window_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Window_y_offset (/ Window_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Window_y_offset (/ Window_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Door_Single_Out_yPos (xo yo zo Door_width Wall_thk Orient)
	(command "-layer" "set" "doors" "")	

	(command "rectang" (list (- xo (/ Door_width 2.0)) (+ yo (/ Wall_thk 2.0)) 0)
			(list (+ (- xo (/ Door_width 2.0)) 0.25) (- yo (/ Wall_thk 2.0)) 0))
	(setq jam1 (entlast))
	
	(command "copy" jam1 "" (list xo yo zo) (list (+ xo (- door_width 0.25)) yo zo))
	(setq jam2 (entlast))

	(command "rectang" (list (- xo (- (/ Door_width 2.0) 0.25)) (+ yo (/ Wall_thk 2.0)) 0)
			(list (- xo (- (/ Door_width 2.0) 0.35)) (+ yo (+ (/ Wall_thk 2.0)
				(- Door_width 0.5))) 0))
	(setq door (entlast))

	(command "-color" "red")
	(command "arc" (list (+ xo (- (/ Door_width 2.0) 0.25)) (+ yo (/ Wall_thk 2.0)) 0)
			"ce" (list (- xo (- (/ Door_width 2.0) 0.25)) (+ yo (/ Wall_thk 2.0)) 0)
			(list (- xo (- (/ Door_width 2.0) 0.25)) (+ yo (+ (/ Wall_thk 2.0)
				(- Door_width 0.5))) 0))
	(command "-color" "bylayer")
	(setq swing (entlast))

	(setq Door (nt_make_ablock (list jam1 jam2 door swing)))

	(if (/= Orient 0)
	(command "mirror" Door "" (list xo yo zo) (list xo (+ yo 1) zo) "y")
	)

	Door
)


(defun Door_Single_In_yPos (xo yo zo Door_width Wall_thk Orient)
	(command "-layer" "set" "doors" "")	

	(command "rectang" (list (- xo (/ Door_width 2.0)) (+ yo (/ Wall_thk 2.0)) 0)
			(list (+ (- xo (/ Door_width 2.0)) 0.25) (- yo (/ Wall_thk 2.0)) 0))
	(setq jam1 (entlast))
	
	(command "copy" jam1 "" (list xo yo zo) (list (+ xo (- door_width 0.25)) yo zo))
	(setq jam2 (entlast))

	(command "rectang" (list (- xo (- (/ Door_width 2.0) 0.25)) (- yo (/ Wall_thk 2.0)) 0)
			(list (- xo (- (/ Door_width 2.0) 0.35)) (- yo (+ (/ Wall_thk 2.0)
				(- Door_width 0.5))) 0))
	(setq door (entlast))

	(command "-color" "red")
	(command "arc" (list (- xo (- (/ Door_width 2.0) 0.25)) (- yo (+ (/ Wall_thk 2.0) (- Door_width 0.5))) 0)
			"ce" (list (- xo (- (/ Door_width 2.0) 0.25)) (- yo (/ Wall_thk 2.0)) 0)
			(list (+ xo (- (/ Door_width 2.0) 0.25)) (- yo (/ Wall_thk 2.0)) 0))
	(command "-color" "bylayer")
	(setq swing (entlast))

	(setq Door (nt_make_ablock (list jam1 jam2 door swing)))

	(if (/= Orient 0)
	(command "mirror" Door "" (list xo yo zo) (list xo (+ yo 1) zo) "y")
	)

	Door
)


(defun Door_Double_Out_yPos (xo yo zo Door_width Wall_thk)
	(command "-layer" "set" "doors" "")	

	(command "rectang" (list (- xo (/ Door_width 2.0)) (+ yo (/ Wall_thk 2.0)) 0)
			(list (+ (- xo (/ Door_width 2.0)) 0.25) (- yo (/ Wall_thk 2.0)) 0))
	(setq jam1 (entlast))
	
	(command "copy" jam1 "" (list xo yo zo) (list (+ xo (- door_width 0.25)) yo zo))
	(setq jam2 (entlast))

	(command "rectang" (list (- xo (- (/ Door_width 2.0) 0.25)) (+ yo (/ Wall_thk 2.0)) 0)
			(list (- xo (- (/ Door_width 2.0) 0.35)) (+ yo (+ (/ Wall_thk 2.0)
				(- (/ Door_width 2.0) 0.25))) 0))
	(setq door1 (entlast))

	(command "copy" door1 "" (list xo yo zo) (list (+ xo (- door_width 0.6)) yo zo))
	(setq door2 (entlast))

	(command "-color" "red")
	(command "arc" (list xo  (+ yo (/ Wall_thk 2.0)) 0)
			"ce" (list (- xo (- (/ Door_width 2.0) 0.25)) (+ yo (/ Wall_thk 2.0)) 0)
			(list (- xo (- (/ Door_width 2.0) 0.25)) (+ yo (+ (- (/ Door_width 2.0) 0.25)) 
				(/ Wall_thk 2.0)) 0))
	(command "-color" "bylayer")
	(setq swing1 (entlast))

	(command "mirror" swing1 "" (list xo yo zo) (list xo (+ yo 1) zo) "")
	(setq swing2 (entlast))

	(setq Door (nt_make_ablock (list jam1 jam2 door1 door2 swing1 swing2)))
	Door
)


(defun Door_Double_In_yPos (xo yo zo Door_width Wall_thk)
	(command "-layer" "set" "doors" "")	

	(command "rectang" (list (- xo (/ Door_width 2.0)) (+ yo (/ Wall_thk 2.0)) 0)
			(list (+ (- xo (/ Door_width 2.0)) 0.25) (- yo (/ Wall_thk 2.0)) 0))
	(setq jam1 (entlast))
	
	(command "copy" jam1 "" (list xo yo zo) (list (+ xo (- door_width 0.25)) yo zo))
	(setq jam2 (entlast))

	(command "rectang" (list (- xo (- (/ Door_width 2.0) 0.25)) (- yo (/ Wall_thk 2.0)) 0)
			(list (- xo (- (/ Door_width 2.0) 0.35)) (- yo (+ (/ Wall_thk 2.0)
				(- (/ Door_width 2.0) 0.25))) 0))
	(setq door1 (entlast))

	(command "copy" door1 "" (list xo yo zo) (list (+ xo (- door_width 0.6)) yo zo))
	(setq door2 (entlast))

	(command "-color" "red")
	(command "arc" (list (- xo (- (/ Door_width 2.0) 0.25)) (- yo (+ (- (/ Door_width 2.0) 0.25)) 
				(/ Wall_thk 2.0)) 0)
			"ce" (list (- xo (- (/ Door_width 2.0) 0.25)) (- yo (/ Wall_thk 2.0)) 0)
			(list xo  (- yo (/ Wall_thk 2.0)) 0))
	(command "-color" "bylayer")
	(setq swing1 (entlast))

	(command "mirror" swing1 "" (list xo yo zo) (list xo (+ yo 1) zo) "")
	(setq swing2 (entlast))

	(setq Door (nt_make_ablock (list jam1 jam2 door1 door2 swing1 swing2)))
	Door
)


(defun Door_Single_Out_xPos (xo yo zo Door_width Wall_thk Orient)
	(command "-layer" "set" "doors" "")	

	(command "rectang" (list (+ xo (/ Wall_thk 2.0)) (+ yo (/ Door_width 2.0)) 0)
			(list (- xo (/ Wall_thk 2.0)) (- (+ yo (/ Door_width 2.0)) 0.25) 0))
	(setq jam1 (entlast))
	
	(command "copy" jam1 "" (list xo yo zo) (list xo (- yo (- door_width 0.25)) zo))
	(setq jam2 (entlast))

	(command "rectang" (list (+ xo (/ Wall_thk 2.0)) (+ yo (- (/ Door_width 2.0) 0.25))  0)
			(list (+ xo (+ (/ Wall_thk 2.0) (- Door_width 0.5))) (+ yo (- (/ Door_width 2.0) 0.35)) 0))
	(setq door (entlast))

	(command "-color" "red")
	(command "arc" (list (+ xo (/ Wall_thk 2.0)) (- yo (- (/ Door_width 2.0) 0.25)) 0)
			"ce" (list (+ xo (/ Wall_thk 2.0)) (+ yo (- (/ Door_width 2.0) 0.25)) 0)
			(list (+ xo (+ (/ Wall_thk 2.0) (- Door_width 0.5)))
				(+ yo (- (/ Door_width 2.0) 0.25)) 0))
	(command "-color" "bylayer")
	(setq swing (entlast))

	(setq Door (nt_make_ablock (list jam1 jam2 door swing)))

	(if (/= Orient 0)
	(command "mirror" Door "" (list xo yo zo) (list (+ xo 1) yo zo) "y")
	)

	Door
)


(defun Door_Single_In_xPos (xo yo zo Door_width Wall_thk Orient)
	(command "-layer" "set" "doors" "")	

	(command "rectang" (list (+ xo (/ Wall_thk 2.0)) (+ yo (/ Door_width 2.0)) 0)
			(list (- xo (/ Wall_thk 2.0)) (- (+ yo (/ Door_width 2.0)) 0.25) 0))
	(setq jam1 (entlast))
	
	(command "copy" jam1 "" (list xo yo zo) (list xo (- yo (- door_width 0.25)) zo))
	(setq jam2 (entlast))

	(command "rectang" (list (- xo (/ Wall_thk 2.0)) (+ yo (- (/ Door_width 2.0) 0.25))  0)
			(list (- xo (+ (/ Wall_thk 2.0) (- Door_width 0.5))) (+ yo (- (/ Door_width 2.0) 0.35)) 0))
	(setq door (entlast))

	(command "-color" "red")
	(command "arc"  (list (- xo (+ (/ Wall_thk 2.0) (- Door_width 0.5))) (+ yo (- (/ Door_width 2.0) 0.25)) 0)
			"ce" (list (- xo (/ Wall_thk 2.0)) (+ yo (- (/ Door_width 2.0) 0.25)) 0)
			(list (- xo (/ Wall_thk 2.0)) (- yo (- (/ Door_width 2.0) 0.25)) 0))
	(command "-color" "bylayer")
	(setq swing (entlast))

	(setq Door (nt_make_ablock (list jam1 jam2 door swing)))

	(if (/= Orient 0)
	(command "mirror" Door "" (list xo yo zo) (list (+ xo 1) yo zo) "y")
	)

	Door
)


(defun Door_Double_Out_xPos (xo yo zo Door_width Wall_thk)
	(command "-layer" "set" "doors" "")	

	(command "rectang" (list (+ xo (/ Wall_thk 2.0)) (+ yo (/ Door_width 2.0)) 0)
			(list (- xo (/ Wall_thk 2.0)) (- (+ yo (/ Door_width 2.0)) 0.25) 0))
	(setq jam1 (entlast))
	
	(command "copy" jam1 "" (list xo yo zo) (list xo (- yo (- door_width 0.25)) zo))
	(setq jam2 (entlast))

	(command "rectang" (list (+ xo (/ Wall_thk 2.0)) (+ yo (- (/ Door_width 2.0) 0.25))  0)
			(list  (+ xo (+ (/ Wall_thk 2.0) (- (/ Door_width 2.0) 0.25)))
			(+ yo (- (/ Door_width 2.0) 0.35)) 0))
	(setq door1 (entlast))

	(command "copy" door1 "" (list xo yo zo) (list xo (- yo (- door_width 0.6)) zo))
	(setq door2 (entlast))

	(command "-color" "red")
	(command "arc" (list (+ xo (/ Wall_thk 2.0)) yo 0)
			"ce" (list (+ xo (/ Wall_thk 2.0)) (+ yo (- (/ Door_width 2.0) 0.25)) 0)
			(list (+ xo (+ (- (/ Door_width 2.0) 0.25)) (/ Wall_thk 2.0))
				(+ yo (- (/ Door_width 2.0) 0.25)) 0))
	(command "-color" "bylayer")
	(setq swing1 (entlast))

	(command "mirror" swing1 "" (list xo yo zo) (list (+ xo 1) yo zo) "")
	(setq swing2 (entlast))

	(setq Door (nt_make_ablock (list jam1 jam2 door1 door2 swing1 swing2)))
	Door
)


(defun Door_Double_In_xPos (xo yo zo Door_width Wall_thk)
	(command "-layer" "set" "doors" "")	

	(command "rectang" (list (+ xo (/ Wall_thk 2.0)) (+ yo (/ Door_width 2.0)) 0)
			(list (- xo (/ Wall_thk 2.0)) (- (+ yo (/ Door_width 2.0)) 0.25) 0))
	(setq jam1 (entlast))
	
	(command "copy" jam1 "" (list xo yo zo) (list xo (- yo (- door_width 0.25)) zo))
	(setq jam2 (entlast))

	(command "rectang" (list (- xo (/ Wall_thk 2.0)) (+ yo (- (/ Door_width 2.0) 0.25))  0)
			(list  (- xo (+ (/ Wall_thk 2.0) (- (/ Door_width 2.0) 0.25)))
			(+ yo (- (/ Door_width 2.0) 0.35)) 0))
	(setq door1 (entlast))

	(command "copy" door1 "" (list xo yo zo) (list xo (- yo (- door_width 0.6)) zo))
	(setq door2 (entlast))

	(command "-color" "red")
	(command "arc" (list (- xo (+ (- (/ Door_width 2.0) 0.25)) (/ Wall_thk 2.0))
			(+ yo (- (/ Door_width 2.0) 0.25)) 0)
			"ce" (list (- xo (/ Wall_thk 2.0)) (+ yo (- (/ Door_width 2.0) 0.25)) 0)
			(list (- xo (/ Wall_thk 2.0)) yo 0))
	(command "-color" "bylayer")
	(setq swing1 (entlast))

	(command "mirror" swing1 "" (list xo yo zo) (list (+ xo 1) yo zo) "")
	(setq swing2 (entlast))

	(setq Door (nt_make_ablock (list jam1 jam2 door1 door2 swing1 swing2)))
	Door
)


(defun Insert_Door_Single_Out_yPos (xo yo zo Door_width Door_x_offset Wall_length Wall_thk Orient)

	(setq component_par_list_b
		(list "Door_Single_Out_yPos"
			nil
			(list 	(cons "xo" (+ xo Door_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
				(cons "Orient" Orient)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Single_In_yPos (xo yo zo Door_width Door_x_offset Wall_length Wall_thk Orient)

	(setq component_par_list_b
		(list "Door_Single_In_yPos"
			nil
			(list 	(cons "xo" (+ xo Door_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
				(cons "Orient" Orient)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Single_Out_yNeg (xo yo zo Door_width Door_x_offset Wall_length Wall_thk Orient)

	(setq component_par_list_b
		(list "Door_Single_In_yPos"
			nil
			(list 	(cons "xo" (+ xo Door_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
				(cons "Orient" Orient)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Single_In_yNeg (xo yo zo Door_width Door_x_offset Wall_length Wall_thk Orient)

	(setq component_par_list_b
		(list "Door_Single_Out_yPos"
			nil
			(list 	(cons "xo" (+ xo Door_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
				(cons "Orient" Orient)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Double_Out_yPos (xo yo zo Door_width Door_x_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Door_Double_Out_yPos"
			nil
			(list 	(cons "xo" (+ xo Door_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Double_In_yPos (xo yo zo Door_width Door_x_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Door_Double_In_yPos"
			nil
			(list 	(cons "xo" (+ xo Door_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yPos"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Double_Out_yNeg (xo yo zo Door_width Door_x_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Door_Double_In_yPos"
			nil
			(list 	(cons "xo" (+ xo Door_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Double_In_yNeg (xo yo zo Door_width Door_x_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Door_Double_Out_yPos"
			nil
			(list 	(cons "xo" (+ xo Door_x_offset))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (+ (- xo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_yNeg"
			nil
			(list 	(cons "xo" (- (+ xo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))) 2.0)))
				(cons "yo" yo)
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_x_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Single_Out_xPos (xo yo zo Door_width Door_y_offset Wall_length Wall_thk Orient)

	(setq component_par_list_b
		(list "Door_Single_Out_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Door_y_offset))
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
				(cons "Orient" Orient)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)


	(setq component_par_list_d
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Single_In_xPos (xo yo zo Door_width Door_y_offset Wall_length Wall_thk Orient)

	(setq component_par_list_b
		(list "Door_Single_In_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Door_y_offset))
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
				(cons "Orient" Orient)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Single_Out_xNeg (xo yo zo Door_width Door_y_offset Wall_length Wall_thk Orient)

	(setq component_par_list_b
		(list "Door_Single_In_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Door_y_offset))
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
				(cons "Orient" Orient)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Single_In_xNeg (xo yo zo Door_width Door_y_offset Wall_length Wall_thk Orient)

	(setq component_par_list_b
		(list "Door_Single_Out_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Door_y_offset))
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
				(cons "Orient" Orient)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Double_Out_xPos (xo yo zo Door_width Door_y_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Door_Double_Out_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Door_y_offset))
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Double_In_xPos (xo yo zo Door_width Door_y_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Door_Double_In_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Door_y_offset))
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Double_Out_xNeg (xo yo zo Door_width Door_y_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Door_Double_In_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Door_y_offset))
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)


(defun Insert_Door_Double_In_xNeg (xo yo zo Door_width Door_y_offset Wall_length Wall_thk)

	(setq component_par_list_b
		(list "Door_Double_Out_xPos"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ yo Door_y_offset))
				(cons "zo" zo)
				(cons "Door_width" Door_width)
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_c
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (+ (- yo (/ Wall_length 2.0)) (/ (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (+ (/ Wall_length 2.0)
					(- Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(setq component_par_list_d
		(list "Wall_xNeg"
			nil
			(list 	(cons "xo" xo)
				(cons "yo" (- (+ yo (/ Wall_length 2.0)) (/ (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))) 2.0)))
				(cons "zo" zo)
				(cons "Wall_length" (- (/ Wall_length 2.0)
					(+ Door_y_offset (/ Door_width 2.0))))
				(cons "Wall_thk" Wall_thk)
			)
		)
	)

	(nt_composit 
		(list component_par_list_b component_par_list_c component_par_list_d)
	)
	
)



;;;;;;
;;;;;;
;;; Declare transformations and parameters
;;;;;;
;;;;;;



(nt_def_trans '("Initial_Bay") "Add_Initial_Bay_x_Positive" 'Initial_1_2_2Bay_xPos nil 'replace)

(nt_def_trans '("Initial_Bay") "Add_Initial_Bay_x_Negative" 'Initial_1_2_2Bay_xNeg nil 'replace)

(nt_def_trans '("Initial_Bay_Positive") "Add_2_Initial_Bay_x_Negative" '1_2_2Bay_x_Pos_Neg nil 'replace)

(nt_def_trans '("Initial_Bay_Negative") "Add_2_Initial_Bay_x_Positive" '1_2_2Bay_x_Pos_Neg nil 'replace)

(nt_def_trans '("Bay_End_x_Positive") "Add_Bay_x_Positive" '1_2_2Bay_x_Pos_Neg nil 'replace)

(nt_def_trans '("Bay_End_x_Negative") "Add_Bay_x_Negative" '1_2_2Bay_x_Pos_Neg nil 'replace)

(nt_def_trans '("Initial_Bay_Rect_Middle") "Walls_Middle_Bay_Initial" 'Middle_Bay_2_Walls_Pos_Neg nil 'replace)

(nt_def_trans '("Bay_Rect_Middle_Positive") "Walls_Middle_Bay_Positive" 'Middle_Bay_2_Walls_Pos_Neg nil 'replace)

(nt_def_trans '("Bay_Rect_Middle_Negative") "Walls_Middle_Bay_Negative" 'Middle_Bay_2_Walls_Pos_Neg nil 'replace)

(nt_def_trans '("Bay_End_x_Positive") "Walls_End_Bay_x_Positive" 'Middle_Bay_2_Walls_Pos_Neg nil 'replace)

(nt_def_trans '("Bay_End_x_Negative") "Walls_End_Bay_x_Negative" 'Middle_Bay_2_Walls_Pos_Neg nil 'replace)

(nt_def_trans '("Initial_Bay_Positive") "Walls_Initial_Bay_x_Positive" 'Middle_Bay_2_Walls_Pos_Neg nil 'replace)

(nt_def_trans '("Initial_Bay_Negative") "Walls_Initial_Bay_x_Negative" 'Middle_Bay_2_Walls_Pos_Neg nil 'replace)

(nt_def_trans '("Initial_Bay") "Walls_Initial_Bay" 'Middle_Bay_2_Walls_Pos_Neg nil 'replace)

(nt_def_trans '("Wall_yPos") "Insert_Window_x_yPos" 'Wall2Window_x nil 'replace)

(nt_def_trans '("Wall_yNeg") "Insert_Window_x_yNeg" 'Wall2Window_x nil 'replace)

(nt_def_trans '("Wall_xPos") "Insert_Window_y_xPos" 'Wall2Window_y nil 'replace)

(nt_def_trans '("Wall_xNeg") "Insert_Window_y_xNeg" 'Wall2Window_y nil 'replace)

(nt_def_trans '("Wall_yPos") "Insert_Door_Single_Out_yPos" 'YWall2Single_Door nil 'replace)

(nt_def_trans '("Wall_yNeg") "Insert_Door_Single_In_yNeg" 'YWall2Single_Door nil 'replace)

(nt_def_trans '("Wall_yPos") "Insert_Door_Single_In_yPos" 'YWall2Single_Door nil 'replace)

(nt_def_trans '("Wall_yNeg") "Insert_Door_Single_Out_yNeg" 'YWall2Single_Door nil 'replace)

(nt_def_trans '("Wall_yPos") "Insert_Door_Double_Out_yPos" 'YWall2Double_Door nil 'replace)

(nt_def_trans '("Wall_yNeg") "Insert_Door_Double_In_yNeg" 'YWall2Double_Door nil 'replace)

(nt_def_trans '("Wall_yPos") "Insert_Door_Double_In_yPos" 'YWall2Double_Door nil 'replace)

(nt_def_trans '("Wall_yNeg") "Insert_Door_Double_Out_yNeg" 'YWall2Double_Door nil 'replace)

(nt_def_trans '("Wall_xPos") "Insert_Door_Single_Out_xPos" 'XWall2Single_Door nil 'replace)

(nt_def_trans '("Wall_xNeg") "Insert_Door_Single_In_xNeg" 'XWall2Single_Door nil 'replace)

(nt_def_trans '("Wall_xPos") "Insert_Door_Single_In_xPos" 'XWall2Single_Door nil 'replace)

(nt_def_trans '("Wall_xNeg") "Insert_Door_Single_Out_xNeg" 'XWall2Single_Door nil 'replace)

(nt_def_trans '("Wall_xPos") "Insert_Door_Double_Out_xPos" 'XWall2Double_Door nil 'replace)

(nt_def_trans '("Wall_xNeg") "Insert_Door_Double_In_xNeg" 'XWall2Double_Door nil 'replace)

(nt_def_trans '("Wall_xPos") "Insert_Door_Double_In_xPos" 'XWall2Double_Door nil 'replace)

(nt_def_trans '("Wall_xNeg") "Insert_Door_Double_Out_xNeg" 'XWall2Double_Door nil 'replace)


;;;;;;
;;;;;;
;;; Define Transformation Functions
;;;;;;
;;;;;;



(defun 1_2_2Bay_x_Pos_Neg (info_bay trans_plist / f_plist c_plist )
	(setq bay (car info_bay))
	(setq bay_param (nt_plist bay))

	(setq f_plist
		(list
			(cons "Bay_Add_xwide" 30)
			(cons "Bay_xwide" (nt_val "Bay_xwide" bay_param))
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" bay_param))
			(cons "yo" (nt_val "yo" bay_param))
			(cons "zo" (nt_val "zo" bay_param))
			(cons "Bay_ywide" (nt_val "Bay_ywide" bay_param))
			(cons "x1_col2wall_offset" (nt_val "x1_col2wall_offset" bay_param))
			(cons "x2_col2wall_offset" (nt_val "x2_col2wall_offset" bay_param))
			(cons "y1_col2wall_offset" (nt_val "y1_col2wall_offset" bay_param))
			(cons "y2_col2wall_offset" (nt_val "y2_col2wall_offset" bay_param))
			(cons "Col_xwide" (nt_val "Col_xwide" bay_param))
			(cons "Col_ywide" (nt_val "Col_ywide" bay_param))
		)
	)

	(list f_plist c_plist)
)



(defun 1_2_2Bay_xNeg (info_bay trans_plist / f_plist c_plist )
	(setq bay (car info_bay))
	(setq bay_param (nt_plist bay))

	(setq f_plist
		(list
			(cons "Bay_Add_xwide" 30)
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" bay_param))
			(cons "yo" (nt_val "yo" bay_param))
			(cons "zo" (nt_val "zo" bay_param))
			(cons "Bay_xwide" (nt_val "Bay_xwide" bay_param))
			(cons "Bay_ywide" (nt_val "Bay_ywide" bay_param))
			(cons "x1_col2wall_offset" (nt_val "x1_col2wall_offset" bay_param))
			(cons "x2_col2wall_offset" (nt_val "x2_col2wall_offset" bay_param))
			(cons "y1_col2wall_offset" (nt_val "y1_col2wall_offset" bay_param))
			(cons "y2_col2wall_offset" (nt_val "y2_col2wall_offset" bay_param))
			(cons "Col_xwide" (nt_val "Col_xwide" bay_param))
			(cons "Col_ywide" (nt_val "Col_ywide" bay_param))
		)
	)

	(list f_plist c_plist)
)


(defun Initial_1_2_2Bay_xPos (info_bay trans_plist / f_plist c_plist )
	(setq init_bay (car info_bay))
	(setq init_bay_param (nt_plist init_bay))

	(setq f_plist
		(list
			(cons "Bay_Add_xwide" 30)
			(cons "Bay_xwide" (nt_val "Bay_xwide" init_bay_param))
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" init_bay_param))
			(cons "yo" (nt_val "yo" init_bay_param))
			(cons "zo" (nt_val "zo" init_bay_param))
			(cons "Bay_ywide" (nt_val "Bay_ywide" init_bay_param))
			(cons "x1_col2wall_offset" (nt_val "x1_col2wall_offset" init_bay_param))
			(cons "x2_col2wall_offset" (nt_val "x2_col2wall_offset" init_bay_param))
			(cons "y1_col2wall_offset" (nt_val "y1_col2wall_offset" init_bay_param))
			(cons "y2_col2wall_offset" (nt_val "y2_col2wall_offset" init_bay_param))
			(cons "Col_xwide" (nt_val "Col_xwide" init_bay_param))
			(cons "Col_ywide" (nt_val "Col_ywide" init_bay_param))
		)
	)

	(list f_plist c_plist)
)


(defun Initial_1_2_2Bay_xNeg (info_bay trans_plist / f_plist c_plist )
	(setq init_bay (car info_bay))
	(setq init_bay_param (nt_plist init_bay))

	(setq f_plist
		(list
			(cons "Bay_Add_xwide" 30)
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" init_bay_param))
			(cons "yo" (nt_val "yo" init_bay_param))
			(cons "zo" (nt_val "zo" init_bay_param))
			(cons "Bay_xwide" (nt_val "Bay_xwide" init_bay_param))
			(cons "Bay_ywide" (nt_val "Bay_ywide" init_bay_param))
			(cons "x1_col2wall_offset" (nt_val "x1_col2wall_offset" init_bay_param))
			(cons "x2_col2wall_offset" (nt_val "x2_col2wall_offset" init_bay_param))
			(cons "y1_col2wall_offset" (nt_val "y1_col2wall_offset" init_bay_param))
			(cons "y2_col2wall_offset" (nt_val "y2_col2wall_offset" init_bay_param))
			(cons "Col_xwide" (nt_val "Col_xwide" init_bay_param))
			(cons "Col_ywide" (nt_val "Col_ywide" init_bay_param))
		)
	)

	(list f_plist c_plist)
)


(defun Middle_Bay_2_Walls_Pos_Neg (info_bay trans_plist / f_plist c_plist )
	(setq bay (car info_bay))
	(setq bay_param (nt_plist bay))

	(setq f_plist
		(list
			
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" bay_param))
			(cons "yo" (nt_val "yo" bay_param))
			(cons "zo" (nt_val "zo" bay_param))
			(cons "Bay_xwide" (nt_val "Bay_xwide" bay_param))
			(cons "Bay_ywide" (nt_val "Bay_ywide" bay_param))
			(cons "x1_col2wall_offset" (nt_val "x1_col2wall_offset" bay_param))
			(cons "x2_col2wall_offset" (nt_val "x2_col2wall_offset" bay_param))
			(cons "y1_col2wall_offset" (nt_val "y1_col2wall_offset" bay_param))
			(cons "y2_col2wall_offset" (nt_val "y2_col2wall_offset" bay_param))
			(cons "Col_xwide" (nt_val "Col_xwide" bay_param))
			(cons "Col_ywide" (nt_val "Col_ywide" bay_param))
			(cons "Wall_thk" 0.5)
		)
	)

	(list f_plist c_plist)
)


(defun Wall2Window_x (info_wall trans_plist / f_plist c_plist )
	(setq wall (car info_wall))
	(setq wall_param (nt_plist wall))

	(setq f_plist
		(list
			(cons "Window_x_offset" 0)
			(cons "Window_width" 5)
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" wall_param))
			(cons "yo" (nt_val "yo" wall_param))
			(cons "zo" (nt_val "zo" wall_param))
			(cons "Wall_length" (nt_val "Wall_length" wall_param))
			(cons "Wall_thk" 0.5)
		)
	)

	(list f_plist c_plist)
)


(defun Wall2Window_y (info_wall trans_plist / f_plist c_plist )
	(setq wall (car info_wall))
	(setq wall_param (nt_plist wall))

	(setq f_plist
		(list
			(cons "Window_y_offset" 0)
			(cons "Window_width" 5)
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" wall_param))
			(cons "yo" (nt_val "yo" wall_param))
			(cons "zo" (nt_val "zo" wall_param))
			(cons "Wall_length" (nt_val "Wall_length" wall_param))
			(cons "Wall_thk" 0.5)
		)
	)

	(list f_plist c_plist)
)


(defun YWall2Single_Door (info_wall trans_plist / f_plist c_plist )
	(setq wall (car info_wall))
	(setq wall_param (nt_plist wall))

	(setq f_plist
		(list
			(cons "Door_x_offset" 0)
			(cons "Door_width" 3)
			(cons "Orient" 0)
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" wall_param))
			(cons "yo" (nt_val "yo" wall_param))
			(cons "zo" (nt_val "zo" wall_param))
			(cons "Wall_length" (nt_val "Wall_length" wall_param))
			(cons "Wall_thk" 0.5)
		)
	)

	(list f_plist c_plist)
)


(defun YWall2Double_Door (info_wall trans_plist / f_plist c_plist )
	(setq wall (car info_wall))
	(setq wall_param (nt_plist wall))

	(setq f_plist
		(list
			(cons "Door_x_offset" 0)
			(cons "Door_width" 6)
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" wall_param))
			(cons "yo" (nt_val "yo" wall_param))
			(cons "zo" (nt_val "zo" wall_param))
			(cons "Wall_length" (nt_val "Wall_length" wall_param))
			(cons "Wall_thk" 0.5)
		)
	)

	(list f_plist c_plist)
)


(defun XWall2Single_Door (info_wall trans_plist / f_plist c_plist )
	(setq wall (car info_wall))
	(setq wall_param (nt_plist wall))

	(setq f_plist
		(list
			(cons "Door_y_offset" 0)
			(cons "Door_width" 3)
			(cons "Orient" 0)
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" wall_param))
			(cons "yo" (nt_val "yo" wall_param))
			(cons "zo" (nt_val "zo" wall_param))
			(cons "Wall_length" (nt_val "Wall_length" wall_param))
			(cons "Wall_thk" 0.5)
		)
	)

	(list f_plist c_plist)
)


(defun XWall2Double_Door (info_wall trans_plist / f_plist c_plist )
	(setq wall (car info_wall))
	(setq wall_param (nt_plist wall))

	(setq f_plist
		(list
			(cons "Door_y_offset" 0)
			(cons "Door_width" 6)
		)
	)

	(setq c_plist
		(list
			(cons "xo" (nt_val "xo" wall_param))
			(cons "yo" (nt_val "yo" wall_param))
			(cons "zo" (nt_val "zo" wall_param))
			(cons "Wall_length" (nt_val "Wall_length" wall_param))
			(cons "Wall_thk" 0.5)
		)
	)

	(list f_plist c_plist)
)