puts "========"
puts "OCC154"
puts "========"
puts ""
##############################################################
##puts "Checking of functions V2DERASEALL and V2DDISPLAYALL "
##puts "(visual checking for this case is desirable)"
##############################################################
v2dinit

box b 1 1 1 
box b1 10 10 10 1 1 1 
v2ddisplay b
v2ddisplay b1
v2dfit

v2deraseall

set x_coord 370
set y_coord 37
set color2d 1

checkcolor $x_coord $y_coord 0 0 0

if { $stat != 1 } {
    puts "Error : Object was not erased"
}

v2ddisplayall

checkcolor $x_coord $y_coord 1 1 0

if { $stat != 1 } {
    puts "Error : Object was not displayed"
}

set only_screen2d 1