puts "============"
puts "OCC22554"
puts "============"
puts ""
#######################################################################
# Application hangs on selection
#######################################################################

set BugNumber OCC22554

vinit
vpoint p1 0 0 0
vpoint p2 50 0 0
vpoint p3 25 40 0
vtriangle result p1 p2 p3
verase p1 p2 p3
vfit

puts "OK ${BugNumber}"

set only_screen 1