puts "========="
puts "OCC24872"
puts "========="
puts ""
###########################################################
# Support of emission color in Phong shader and ray-tracing
###########################################################

source $env(CSF_OCCTSamplesPath)/tcl/materials.tcl
vshaderprog phong
