puts "================"
puts "BUC61018"
puts "OCC64"
puts "================"
puts ""

set x_coord 205
set y_coord 205

vinit
vtrihedron tri
vtri_orig tri

QAMoveTo 205 205
QAUpdateLights

checkcolor $x_coord $y_coord 0 1 1

set only_screen 1