(in-package :design++)

(dpar-ms-pipeway-define-section :MAIN “main” 1 '(1920.0
2456.0 1200.0) :E 6 192.0 102.0 'W12X53 'W6X25 'W8X31 2 1356.0
NIL 'INSIDE 12.0)

(dpp-show-geometry (dpp-get-component 'pipeways) :substructure)

(dpar-define-equipment-geometry "80-E-170"
	'geo_loc (QUOTE (2775.0 2624.0 1465.0))
	'input_direction :N
	'INPUT_CAD_LEVEL :NIL 'LENGTH 164.0 'DIAMETER 24.0)

(dpar-define-equipment-geometry "80-P-110"
	'geo_loc (QUOTE (2421.0 2535.0 1206.0))
	'input_direction :S
	'INPUT_CAD_LEVEL :NIL 'WIDTH 30.0 'LENGTH 52.0 'HEIGHT 23.0)

(dpar-define-equipment-geometry "80-T-100"
	'geo_loc (QUOTE (2315.0 2706.0 1260.0))
	'input_direction :N
	'INPUT_CAD_LEVEL :NIL 'LENGTH 216.0 'DIAMETER 178.0)

(dpar-define-equipment-geometry "80-V-180"
	'geo_loc (QUOTE (2775.0 2616.0 1351.0))	
	'input_direction :N
	'INPUT_CAD_LEVEL :NIL 'LENGTH 216.0 'DIAMETER 60.5)

(dpar-ms-set-nozzle "80-E-170/SC" nil nil 'SHELL 'BODY 93.275 0.0
'((:X 0)) NIL NIL "on-element" NIL 'SHELL-INLET NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-E-170/SE" nil nil 'SHELL 'BODY 13.325 180.0
'((:X 0)) NIL NIL "on-element" NIL 'SHELL-OUTLET NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-E-170/TA" nil nil 'HEAD 'BODY 12.3 180.0
'((:X 0)) NIL NIL "on-element" NIL 'HEAD-OUTLET NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-E-170/TB" nil nil 'HEAD 'BODY 12.3 0.0
'((:X 0)) NIL NIL "on-element" NIL 'HEAD-INLET NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-P-110/IN" nil nil 'CASE 'BOTTOM 0.0 90.0
'((:X 0)) NIL NIL "on-element" NIL 'SUCTION NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-P-110/OUT" nil nil 'CASE-NOZZLE-MOUNT 'BODY
3.12 90.0 '((:X 90.0)) NIL NIL "on-element" NIL 'DISCHARGE NIL NIL
NIL 'NIL)

(dpar-ms-set-nozzle "80-T-100/A" nil nil 'TANK 'BODY 198.0 180
'((:X 0)) NIL NIL "on-element" NIL 'INLET NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-T-100/D" nil nil 'TANK 'BODY 198.0 195.0
'((:X 0)) NIL NIL "on-element" NIL 'INLET NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-T-100/G" nil nil 'TANK 'BODY 9.0 90
'((:X 0)) NIL NIL "on-element" NIL 'OUTLET NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-V-180/D" nil nil 'VESSEL 'BODY 9.0 0.0
'((:X 0)) NIL NIL "on-element" NIL 'OUTLET NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-V-180/F" nil nil 'VESSEL 'BODY 199.5 0.0
'((:X 0)) NIL NIL "on-element" NIL 'INLET NIL NIL NIL 'NIL)

(dpar-ms-set-nozzle "80-V-180/J" nil nil 'VESSEL 'BODY 202.5 180.0
'((:X 0)) NIL NIL "on-element" NIL 'OUTLET NIL NIL NIL 'NIL)

(pbar-recreate-structure-from-xml "Tank_Pedestal" "Section-1"
"<PLANTWISE_STRUCTURE STRUCTURE_NAME=\"Tank_Pedestal\"
SECTION_NAME=\"Section-1\" DESCRIPTION=\"Bottom Pedestal for
Product &#39;B&#39; Storage Tank\" ROTATION=\"0.0\"
USE-COLUMNS=\"T\" COLUMN-DESIGNATION=\"W12X53\"
COLUMN-ROTATION=\"0.0\" USE-BEAMS=\"T\" BEAM-DESIGNATION=\"W8X31\"
USE-BRACING=\"NIL\" BRACING-DESIGNATION=\"None\"
LR-TYPE=\":Fixed\" LR-BRACING=\"NONE\" CANTILEVER-LEFT=\"NIL\"
CANTILEVER-RIGHT=\"NIL\" FB-TYPE=\":Fixed\" FB-BRACING=\"NONE\"
CANTILEVER-FRONT=\"NIL\" CANTILEVER-BACK=\"NIL\"
LEVEL-TYPE=\"ELEVATIONS\" USE-FLOORS=\"NIL\"
FLOORS-ARE-OBSTACLES=\"T\" USE-STAIRS=\"NIL\"
RISER-HEIGHT=\"12.0 in\" TREAD-LENGTH=\"12.0 in\"
STAIR-DIRECTION=\"\" INPUT-FLOOR-DATA=\":NIL\">
<ORIGIN X=\"2700.0 in\" Y=\"2590.0 in\" Z=\"1200.0 in\">
</ORIGIN><LR-SPACING><SPACING TAG=\"1\" DISTANCE=\"170.0 in\">
</SPACING></LR-SPACING><FB-SPACING><SPACING TAG=\"1\"
DISTANCE=\"310.0 in\"></SPACING></FB-SPACING>
<LEVEL-SPACINGS><SPACING TAG=\"1\" DISTANCE=\"120.0 in\">
</SPACING><SPACING TAG=\"2\" DISTANCE=\"130.0 in\"></SPACING>
</LEVEL-SPACINGS></PLANTWISE_STRUCTURE>")