OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ViewerTest/ViewerTest_ViewerCommands.cxx
View File

@ -5451,7 +5451,9 @@ static int VClipPlane (Draw_Interpretor& theDi, Standard_Integer theArgsNb, cons
Standard_Real aBlu = atof (theArgVec [7]); Standard_Real aBlu = atof (theArgVec [7]);
Graphic3d_MaterialAspect aMat = aClipPlane->CappingMaterial(); 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); aClipPlane->SetCappingMaterial (aMat);
} }
else if (aCappingArg == "texname") // texture name else if (aCappingArg == "texname") // texture name

27
tests/bugs/vis/bug25229 Normal file
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