puts "========"
-puts "OCC24855: Revision of parameters of standard materials"
+puts "0024855: Revision of parameters of standard materials"
puts "========"
+# Ray-Tracing doesn't work with Compatible Profile on macOS
+if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
+
# custom shapes
set aShape [locate_data_file occ/Top.brep]
vinit View1 w=768 h=768
vglinfo
-vsetgradientbg 180 200 255 180 180 180 2
+vbackground -gradient B4C8FF B4B4B4 -gradientMode VERTICAL
# display shape
-vlight change 0 pos -1 1 1
+vlight -change 0 -dir 0.577 -0.577 -0.577
restore $aShape s
-vsetdispmode 1
-vdisplay s
+vdisplay -dispMode 1 s
vfit
proc testmat {dirname filename} {
}
}
-# make material screenshots
+# material screenshots, Gouraud shading model (rasterization)
+vrenderparams -shadingModel GOURAUD
testmat $imagedir $casename
-vshaderprog s phong
+# material screenshots, Phong shading model (rasterization)
+vrenderparams -shadingModel PHONG
testmat $imagedir ${casename}_phong
+# material screenshots, Ray-Tracing
vrenderparams -raytrace -reflections -fsaa
vtextureenv on 5
-
testmat $imagedir ${casename}_rt
-
-vclear
-vrenderparams -rasterization
-vtextureenv off
-source $env(CASROOT)/samples/tcl/materials.tcl