From b2f06a74d655999e8ed57acccf5595181c72311a Mon Sep 17 00:00:00 2001
From: will1742 <will1742@purdue.edu>
Date: Sat, 28 Aug 2021 15:55:49 -0400
Subject: [PATCH] Z Retract Fix

---
 Haas_Gantry_BIDC/Bechtel SR.cps | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Haas_Gantry_BIDC/Bechtel SR.cps b/Haas_Gantry_BIDC/Bechtel SR.cps
index 44c2746..5ec88d3 100644
--- a/Haas_Gantry_BIDC/Bechtel SR.cps	
+++ b/Haas_Gantry_BIDC/Bechtel SR.cps	
@@ -1774,6 +1774,9 @@ function onSection() {
   if (!isFirstSection()) {
     writeBlock(mFormat.format(0));
     writeComment("CHECK TOOL AND PART");
+    if (!retracted) {
+      writeRetract(Z);
+    }
     writeRetract(X, Y);
   }