diff --git a/ApplicationCode/Application/Tools/RiaColorTables.cpp b/ApplicationCode/Application/Tools/RiaColorTables.cpp
index 9bdfcd9781..b69e279bc1 100644
--- a/ApplicationCode/Application/Tools/RiaColorTables.cpp
+++ b/ApplicationCode/Application/Tools/RiaColorTables.cpp
@@ -459,3 +459,15 @@ cvf::Color3f RiaColorTables::undefinedCellColor()
 {
     return cvf::Color3::GRAY;
 }
+
+//--------------------------------------------------------------------------------------------------
+/// 
+//--------------------------------------------------------------------------------------------------
+cvf::Color3f RiaColorTables::perforationLengthColor()
+{
+    // based on hwb ( 85,  9%, 67%) dark_olive_green
+    // added 10 to each component
+    cvf::Color3ub color(69, 94, 33);
+
+    return cvf::Color3f(color);
+}
diff --git a/ApplicationCode/Application/Tools/RiaColorTables.h b/ApplicationCode/Application/Tools/RiaColorTables.h
index a81ce234e1..6b35226b57 100644
--- a/ApplicationCode/Application/Tools/RiaColorTables.h
+++ b/ApplicationCode/Application/Tools/RiaColorTables.h
@@ -52,4 +52,5 @@ public:
     static const caf::ColorTable& timestepsPaletteColors();
 
     static cvf::Color3f undefinedCellColor();
+    static cvf::Color3f perforationLengthColor();
 };
diff --git a/ApplicationCode/ModelVisualization/RivWellFracturePartMgr.cpp b/ApplicationCode/ModelVisualization/RivWellFracturePartMgr.cpp
index c2a6ddb619..fe0b3eda60 100644
--- a/ApplicationCode/ModelVisualization/RivWellFracturePartMgr.cpp
+++ b/ApplicationCode/ModelVisualization/RivWellFracturePartMgr.cpp
@@ -745,7 +745,7 @@ void RivWellFracturePartMgr::appendFracturePerforationLengthParts(const RimEclip
         cvf::Collection<cvf::Part> parts;
 
         RivPipeGeometryGenerator geoGenerator;
-        geoGenerator.cylinderWithCenterLineParts(&parts, displayCoords, cvf::Color3f::ORANGE, perforationRadius);
+        geoGenerator.cylinderWithCenterLineParts(&parts, displayCoords, RiaColorTables::perforationLengthColor(), perforationRadius);
         
         for (auto part : parts)
         {