0024887: Visualization - revise and extend Raytracing controls
[occt.git] / tests / v3d / materials / bug24855
CommitLineData
44c7c33e 1puts "========"
2puts "OCC24855: Revision of parameters of standard materials"
3puts "========"
4
5# custom shapes
6set aShape [locate_data_file occ/Top.brep]
7
8# setup 3D viewer content
9vinit View1 w=768 h=768
10vglinfo
11
12vsetgradientbg 180 200 255 180 180 180 2
13
14# display shape
15vlight change 0 pos -1 1 1
16restore $aShape s
17vsetdispmode 1
18vdisplay s
19vfit
20
21proc 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
25 }
26}
27
28# make material screenshots
29testmat $imagedir $casename
30
31vshaderprog s phong
32testmat $imagedir ${casename}_phong
33
bc8c79bb 34vrenderparams -raytrace -reflections -fsaa
44c7c33e 35vtextureenv on 5
44c7c33e 36
37testmat $imagedir ${casename}_rt
38
39vclear
bc8c79bb 40vrenderparams -rasterization
44c7c33e 41vtextureenv off
42source $env(CASROOT)/samples/tcl/materials.tcl