0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / src / Vrml / Vrml_SpotLight.cxx
index 23f2e51..605098c 100644 (file)
 Vrml_SpotLight::Vrml_SpotLight():
   myOnOff(Standard_True),
   myIntensity(1),
+  myColor (Quantity_NOC_WHITE),
+  myLocation (0, 0, 1),
+  myDirection (0, 0, -1),
   myDropOffRate(0), 
   myCutOffAngle(0.785398) 
 {
-  gp_Vec tmpVec(0,0,1);
-  myLocation = tmpVec;
-
-  tmpVec.SetCoord(0,0,-1);
-  myDirection = tmpVec;
-
-  Quantity_Color tmpColor(1,1,1,Quantity_TOC_RGB);
-  myColor = tmpColor;
+  //
 }
 
  Vrml_SpotLight::Vrml_SpotLight( const Standard_Boolean aOnOff, 
@@ -147,8 +143,10 @@ Standard_OStream& Vrml_SpotLight::Print(Standard_OStream& anOStream) const
      Abs(myColor.Green() - 1) > 0.0001 || 
      Abs(myColor.Blue() - 1) > 0.0001 )
    {
+    NCollection_Vec3<Standard_Real> aColor_sRGB;
+    myColor.Values (aColor_sRGB.r(), aColor_sRGB.g(), aColor_sRGB.b(), Quantity_TOC_sRGB);
     anOStream  << "    color\t";
-    anOStream << myColor.Red() << " " << myColor.Green() << " " << myColor.Blue() << "\n";
+    anOStream << aColor_sRGB.r() << " " << aColor_sRGB.g() << " " << aColor_sRGB.b() << "\n";
    }
 
  if ( Abs(myLocation.X() - 0) > 0.0001 ||