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