iLogicVb.UpdateWhenDone = True

If HeadOffSeating = 0 Then
	Seating = "On Seating"
Else If HeadOnSeating = 0 Then
	Seating = "Off Seating"
Else
	Seating = "On and Off Seating"
End If

GroutThickness = 24
FrameSideWidth = 41
LiftPlateThickness = 6
GearboxIsolationThickness = 1
GearboxCompensatingPlateThickness = 6

OpeningWidth = CivilOpeningWidth - ((GroutThickness + FrameSideWidth) * 2)

If Gearbox = "SB-VS20" Then
	GearboxHeight = 79
	LiftMountingSize = "F12"
	GearboxRatio = 3
Else If Gearbox = "AG-B1" Then
	GearboxHeight = 67
	LiftMountingSize = "F10"
	GearboxRatio = 2.5
Else If Gearbox = "AG-B2" Then
	GearboxHeight = 71
	LiftMountingSize = "F12"
	GearboxRatio = 3
Else If Gearbox = "AG-B3" Then
	GearboxHeight = 72
	LiftMountingSize = "F14"
	GearboxRatio = 3.5
Else If Gearbox = "AG-B4" Then
	GearboxHeight = 85
	LiftMountingSize = "F16"
	GearboxRatio = 3.75
Else If Gearbox = "AG-B5" Then
	GearboxHeight = 104
	LiftMountingSize = "F20"
	GearboxRatio = 4
End If

FrameHightAtSettingAboveOperatorLevel = InvertToOperatorLevel + HandwheelAboveOperatorLevel

MinFrameHeight = GateHeight + Travel + LiftPlateThickness + GearboxIsolationThickness + GearboxCompensatingPlateThickness

If MinFrameHeight < FrameHightAtSettingAboveOperatorLevel Then
	FrameHeight = FrameHightAtSettingAboveOperatorLevel - (LiftPlateThickness + GearboxIsolationThickness + GearboxCompensatingPlateThickness)
Else
	FrameHeight = FrameHightAtSettingAboveOperatorLevel - (LiftPlateThickness + GearboxIsolationThickness + GearboxCompensatingPlateThickness)
End If

Parameter("General Assembly:1", "OpeningWidth") = OpeningWidth
Parameter("General Assembly:1", "GateHeight") = GateHeight
Parameter("General Assembly:1", "FrameHeight") = FrameHeight
Parameter("General Assembly:1", "InvertToOperatorLevel") = InvertToOperatorLevel
Parameter("General Assembly:1", "Travel") = Travel
Parameter("General Assembly:1", "Seating") = Seating
Parameter("General Assembly:1", "StemSize") = StemSize
Parameter("General Assembly:1", "TPI") = TPI
Parameter("General Assembly:1", "HeadrailSize") = HeadrailSize
Parameter("General Assembly:1", "LiftMountingSize") = LiftMountingSize
Parameter("General Assembly:1", "StemType") = StemType
Parameter("General Assembly:1", "StemGuideHeight") = StemGuideHeight

Parameter("Civil Structure:1", "CivilOpeningWidth") = CivilOpeningWidth
Parameter("Civil Structure:1", "InvertToOperatorLevel") = InvertToOperatorLevel

Parameter("Civil Grout:2", "CivilOpeningWidth") = CivilOpeningWidth
Parameter("Civil Grout:2", "InvertToOperatorLevel") = InvertToOperatorLevel
Parameter("Civil Grout:2", "GroutThickness") = GroutThickness

SeatingForDrawing = UCase(Seating)

iProperties.Value("Summary", "Title") = CivilOpeningWidth & "x" & GateHeight & " P1000SS PENSTOCK"

If StemSize = "1" & Chr(34) Or StemSize = "1.25" & Chr(34) Or StemSize = "1.5" & Chr(34) Or StemSize = "1.75" & Chr(34) Or StemSize = "2" & Chr(34) Then
	TPI = 3
Else
	TPI = 2
End If

NoTurns = Round(((Travel / 25.4) / ((25.4 / TPI) / 25.4)) * GearboxRatio, 0)

TimeToOperate = (Round((NoTurns / 20), 2)) * 60