--- /dev/null
+puts "========"
+puts "0033056: Visualization - add front face culling option"
+puts "Check face culling options"
+puts "========"
+
+set THE_NB_BOXES 4
+set THE_COLORS { ORANGE ORANGE ORANGE ORANGE }
+set THE_MODES { AUTO BACK FRONT DOUBLESIDED }
+
+pload MODELING VISUALIZATION
+vclear
+vinit View1
+vcamera -persp -fovy 80
+vfront
+
+set x 1
+set z 1
+for { set i 1 } { $i <= $THE_NB_BOXES } { incr i } {
+ box b$i [expr $x * 300] 0 [expr $z * 400] 200 300 300
+ vdisplay -dispMode 1 b$i
+ vsetcolor b$i [lindex $THE_COLORS [expr $i - 1]]
+ vaspects b$i -faceCulling [lindex $THE_MODES [expr $i - 1]]
+
+ vdrawtext t$i [lindex $THE_MODES [expr $i - 1]] -pos [expr $x * 300] 0 [expr $z * 400 + 300] -height 16 -color RED -font MONOSPACE -aspect BOLD -valign top
+
+ incr x
+ if { $i == 2 } {
+ set x 1
+ set z 2
+ }
+}
+vfit
+
+vaspects -faceBoundaryDraw 1 -faceBoundaryColor RED
+vdump $::imagedir/${::casename}_bnds.png
+
+vaspects -faceBoundaryDraw 0
+vclipplane c -equation 0 1 0 -100 -set
+vdump $::imagedir/${::casename}_clip.png
+
+vclipplane c off
+vdump $::imagedir/${::casename}.png