2 puts "0024855: Revision of parameters of standard materials"
6 set aShape [locate_data_file occ/Top.brep]
8 # setup 3D viewer content
9 vinit View1 w=768 h=768
12 vbackground -gradient B4C8FF B4B4B4 -gradientMode VERTICAL
15 vlight -change 0 -dir 0.577 -0.577 -0.577
17 vdisplay -dispMode 1 s
20 proc testmat {dirname filename} {
21 foreach {aMatIter} {brass bronze copper gold jade neon_phc pewter obsidian plaster plastic satin silver steel stone chrome aluminium charcoal} {
22 vsetmaterial -noredraw s $aMatIter
23 vdump $dirname/${filename}_${aMatIter}.png
27 # material screenshots, Gouraud shading model (rasterization)
28 vrenderparams -shadingModel GOURAUD
29 testmat $imagedir $casename
31 # material screenshots, Phong shading model (rasterization)
32 vrenderparams -shadingModel PHONG
33 testmat $imagedir ${casename}_phong
35 # material screenshots, Ray-Tracing
36 vrenderparams -raytrace -reflections -fsaa
38 testmat $imagedir ${casename}_rt