-Now in ViewerTest_ViewerCommands's method VClipPlane() Graphic3d_TypeOfMaterial::SetAmbientColor() and
Graphic3d_TypeOfMaterial::SetDiffuseColor() are used instead of
Graphic3d_TypeOfMaterial::SetColor()
-New test case added: tests\bugs\vis\bug25229
-Formatting
Standard_Real aBlu = atof (theArgVec [7]);
Graphic3d_MaterialAspect aMat = aClipPlane->CappingMaterial();
- aMat.SetColor (Quantity_Color (aRed, aGrn, aBlu, Quantity_TOC_RGB));
+ Quantity_Color aColor (aRed, aGrn, aBlu, Quantity_TOC_RGB);
+ aMat.SetAmbientColor (aColor);
+ aMat.SetDiffuseColor (aColor);
aClipPlane->SetCappingMaterial (aMat);
}
else if (aCappingArg == "texname") // texture name
--- /dev/null
+puts "============"
+puts "CR25229"
+puts "============"
+puts ""
+#######################################################################
+# Cappings have gray tint if setting color with vclipplane command.
+#######################################################################\r
+box b 100 100 100\r
+vinit\r
+vsetdispmode 1\r
+vdisplay b\r
+vclipplane create pln1\r
+vclipplane change pln1 equation 0 0 -1 20\r
+vclipplane set pln1 object b\r
+vclipplane change pln1 capping on\r
+vclipplane change pln1 capping color 1.0 1.0 1.0\r
+vtop
+vfit
+
+set x_coord 100
+set y_coord 100
+checkcolor $x_coord $y_coord 1 1 1
+if { $stat != 1 } {
+ puts "Error : Capping color is broken."
+}
+
+set only_screen 1