[occt.git] / tests / v3d / materials / colors

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
Commit	Line	Data
59ee34ef	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