puts "PRO15203"
puts "Fuse"
puts ""

restore [locate_data_file pro15203a.rle] c1
restore [locate_data_file pro15203d.rle] c2
########################mod by pkv f
explode c1 f
copy c1_1 c1
explode c2 f
copy c2_1 c2
########################mod by pkv t
bop c1 c2
bopfuse result

set square 570.047
