--- /dev/null
+puts "============"
+puts "OCC23709: Redesign of hlrtest command"
+puts "============"
+puts ""
+
+pload MODELING VISUALIZATION
+pcone a 5 0 10
+box b 15 0 0 10 10 10
+vinit View1
+vdisplay a
+vdisplay b
+vrotate 35 0 0
+vfit
+vhlr on
+vhlrtype polyalgo b
+vaspects -setwidth 5
+if { "[vreadpixel 290 170 rgb name]" != "YELLOW" } {
+ puts "Error : color is not yellow"
+}
+checkcolor 86 221 0 0 0
+
+vdump $imagedir/${casename}.png