lili/OCCT
1
0
Fork 0
mirror of https://github.com/Open-Cascade-SAS/OCCT.git synced 2026-09-07 21:28:11 +08:00
Code Issues Packages Projects Releases Wiki Activity

0025229: Cappings have gray tint if setting color with vclipplane command

Browse Source 
-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
This commit is contained in:
isz
2014-09-18 15:19:16 +04:00
committed by bugmaster
parent 4e18052b7d
commit 8aeeca44df
2 changed files with 30 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/ViewerTest/ViewerTest_ViewerCommands.cxx
+3 -1
View File
@@ -5451,7 +5451,9 @@ static int VClipPlane (Draw_Interpretor& theDi, Standard_Integer theArgsNb, cons
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
tests/bugs/vis/bug25229
+27
View File
@@ -0,0 +1,27 @@
puts "============"
puts "CR25229"
puts "============"
puts ""
#######################################################################
# Cappings have gray tint if setting color with vclipplane command.
#######################################################################
box b 100 100 100
vinit
vsetdispmode 1
vdisplay b
vclipplane create pln1
vclipplane change pln1 equation 0 0 -1 20
vclipplane set pln1 object b
vclipplane change pln1 capping on
vclipplane change pln1 capping color 1.0 1.0 1.0
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