0031999: Tests - request Core Profile on macOS for Ray-Tracing tests
[occt.git] / tests / v3d / materials / bug24855
CommitLineData
44c7c33e 1puts "========"
f2b42160 2puts "0024855: Revision of parameters of standard materials"
44c7c33e 3puts "========"
4
ba562b2b 5# Ray-Tracing doesn't work with Compatible Profile on macOS
6if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
7
44c7c33e 8# custom shapes
9set aShape [locate_data_file occ/Top.brep]
10
11# setup 3D viewer content
12vinit View1 w=768 h=768
13vglinfo
14
aaf8d6a9 15vbackground -gradient B4C8FF B4B4B4 -gradientMode VERTICAL
44c7c33e 16
17# display shape
992ed6b3 18vlight -change 0 -dir 0.577 -0.577 -0.577
44c7c33e 19restore $aShape s
f2b42160 20vdisplay -dispMode 1 s
44c7c33e 21vfit
22
23proc testmat {dirname filename} {
24 foreach {aMatIter} {brass bronze copper gold jade neon_phc pewter obsidian plaster plastic satin silver steel stone chrome aluminium charcoal} {
25 vsetmaterial -noredraw s $aMatIter
26 vdump $dirname/${filename}_${aMatIter}.png
27 }
28}
29
f2b42160 30# material screenshots, Gouraud shading model (rasterization)
31vrenderparams -shadingModel GOURAUD
44c7c33e 32testmat $imagedir $casename
33
f2b42160 34# material screenshots, Phong shading model (rasterization)
35vrenderparams -shadingModel PHONG
44c7c33e 36testmat $imagedir ${casename}_phong
37
f2b42160 38# material screenshots, Ray-Tracing
bc8c79bb 39vrenderparams -raytrace -reflections -fsaa
44c7c33e 40vtextureenv on 5
44c7c33e 41testmat $imagedir ${casename}_rt