2 puts "OCC24855: 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 vsetgradientbg 180 200 255 180 180 180 2
15 vlight -change 0 -dir 0.577 -0.577 -0.577
21 proc testmat {dirname filename} {
22 foreach {aMatIter} {brass bronze copper gold jade neon_phc pewter obsidian plaster plastic satin silver steel stone chrome aluminium charcoal} {
23 vsetmaterial -noredraw s $aMatIter
24 vdump $dirname/${filename}_${aMatIter}.png
28 # make material screenshots
29 testmat $imagedir $casename
32 testmat $imagedir ${casename}_phong
34 vrenderparams -raytrace -reflections -fsaa
37 testmat $imagedir ${casename}_rt
40 vrenderparams -rasterization
42 source $env(CSF_OCCTSamplesPath)/tcl/materials.tcl