0030930: Draw Harness, ViewerTest - add commands vlistcolors and vlistmaterials listi...
[occt.git] / tests / v3d / materials / colors
1 puts "========"
2 puts "0030930: Draw Harness, ViewerTest - add commands vlistcolors and vlistmaterials listing standard Colors and Materials"
3 puts "Generate a table of predefined Colors (Quantity_NameOfColor enumeration)"
4 puts "========"
5
6 pload MODELING VISUALIZATION
7 box b 10 10 10
8 explode b F
9
10 vclear
11 vclose ALL
12 vinit View1
13 vtop
14
15 puts "<a href=${::casename}_table.html>Color Comparison Table</a>"
16
17 set aColors [vlistcolors]
18 set anY 0
19 set anX 0
20 foreach aColor $aColors {
21   puts "$aColor"
22   tcopy b_6 ${aColor}
23   vdisplay  -noUpdate -dispMode 1 ${aColor}
24   vaspects  -noUpdate ${aColor} -setShadingModel unlit -setColor ${aColor}
25   vlocation -noUpdate ${aColor} -setLocation [expr 12*$anX] [expr 12*$anY] 0
26   set anX [expr $anX+1]
27   if { $anX > 25 } { set anX 0; set anY [expr $anY+1] }
28 }
29 vfit
30
31 vdump $::imagedir/${::casename}.png
32 vlistcolors $::imagedir/${::casename}_table.html