From f7f32bf33ee8ed75e31ecd774018b2e5ef2e74d9 Mon Sep 17 00:00:00 2001
From: ichesnok <ichesnok@opencascade.com>
Date: Tue, 12 Mar 2024 13:49:21 +0000
Subject: [PATCH] 0033638: Data Exchange, Step Import - Style for tessellated
 object missed

TransferBRep_ShapeBinder used for tessellated face.
---
 src/StepToTopoDS/StepToTopoDS_TranslateFace.cxx |  2 ++
 tests/bugs/step/bug33638                        | 17 +++++++++++++++++
 2 files changed, 19 insertions(+)
 create mode 100644 tests/bugs/step/bug33638

diff --git a/src/StepToTopoDS/StepToTopoDS_TranslateFace.cxx b/src/StepToTopoDS/StepToTopoDS_TranslateFace.cxx
index 8e9804c5b7..93539a1aef 100644
--- a/src/StepToTopoDS/StepToTopoDS_TranslateFace.cxx
+++ b/src/StepToTopoDS/StepToTopoDS_TranslateFace.cxx
@@ -761,6 +761,8 @@ void StepToTopoDS_TranslateFace::Init(const Handle(StepVisual_TessellatedFace)&
   if (theNMTool.IsActive())
     theNMTool.Bind(theTF, aF);
 
+  aTP->Bind(theTF, new TransferBRep_ShapeBinder(aF));
+
   myResult = aF;
   myError = StepToTopoDS_TranslateFaceDone;
   done = Standard_True;
diff --git a/tests/bugs/step/bug33638 b/tests/bugs/step/bug33638
new file mode 100644
index 0000000000..84c30a44c3
--- /dev/null
+++ b/tests/bugs/step/bug33638
@@ -0,0 +1,17 @@
+puts "===================================="
+puts "0033638: Data Exchange, Step Import - Style for tessellated object missed"
+puts "===================================="
+puts ""
+
+pload OCAF
+
+ReadStep D [locate_data_file bug33638.stp]
+
+if { [ XFindColor D 0 0 1 ] == "" } {
+  puts "Error: Color not found"
+}
+if { [ XFindColor D 1 0 0 ] == "" } {
+  puts "Error: Color not found"
+}
+
+Close D