mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
59ee34efc0
Introduced two new commands vlistcolors listing named colors and vlistmaterials listing standard materials. These commands also can generate HTML table listing colors/materials with their properties. vlistmaterials can generate OBJ model for comparing OCCT materials in different viewers. New test cases use these commands for generating HTML tables. Graphic3d_MaterialAspect::MaterialType() - added missing getter. Corrected name of unlit shading model within vaspects and vrenderparams commands.
33 lines
879 B
Plaintext
33 lines
879 B
Plaintext
puts "========"
|
|
puts "0030930: Draw Harness, ViewerTest - add commands vlistcolors and vlistmaterials listing standard Colors and Materials"
|
|
puts "Generate a table of predefined Colors (Quantity_NameOfColor enumeration)"
|
|
puts "========"
|
|
|
|
pload MODELING VISUALIZATION
|
|
box b 10 10 10
|
|
explode b F
|
|
|
|
vclear
|
|
vclose ALL
|
|
vinit View1
|
|
vtop
|
|
|
|
puts "<a href=${::casename}_table.html>Color Comparison Table</a>"
|
|
|
|
set aColors [vlistcolors]
|
|
set anY 0
|
|
set anX 0
|
|
foreach aColor $aColors {
|
|
puts "$aColor"
|
|
tcopy b_6 ${aColor}
|
|
vdisplay -noUpdate -dispMode 1 ${aColor}
|
|
vaspects -noUpdate ${aColor} -setShadingModel unlit -setColor ${aColor}
|
|
vlocation -noUpdate ${aColor} -setLocation [expr 12*$anX] [expr 12*$anY] 0
|
|
set anX [expr $anX+1]
|
|
if { $anX > 25 } { set anX 0; set anY [expr $anY+1] }
|
|
}
|
|
vfit
|
|
|
|
vdump $::imagedir/${::casename}.png
|
|
vlistcolors $::imagedir/${::casename}_table.html
|