0023787: Eliminate trivial type conversion warnings in MSVC

[occt.git] / src / VrmlData / VrmlData_ShapeConvert.cxx

diff --git a/src/VrmlData/VrmlData_ShapeConvert.cxx b/src/VrmlData/VrmlData_ShapeConvert.cxx
index 410d393..68f02b2 100755 (executable)
--- a/src/VrmlData/VrmlData_ShapeConvert.cxx
+++ b/src/VrmlData/VrmlData_ShapeConvert.cxx
@@ -467,9 +467,9 @@ Handle_VrmlData_Geometry VrmlData_ShapeConvert::triToIndexedFaceSet
         arrVec[i] = aNormal.XYZ();
 
         Standard_Integer j = i * 3;
-        Normals->SetValue(j + 1, aNormal.X());
-        Normals->SetValue(j + 2, aNormal.Y());
-        Normals->SetValue(j + 3, aNormal.Z());
+        Normals->SetValue(j + 1, (Standard_ShortReal)aNormal.X());
+        Normals->SetValue(j + 2, (Standard_ShortReal)aNormal.Y());
+        Normals->SetValue(j + 3, (Standard_ShortReal)aNormal.Z());
 
       }