alias bug_631_drawcopy_t_001 {
window -p @w1
drawrect -rf @w1 $rgb(255,255,255) 1 0 0 80 80
drawrect -rfe @w1 $rgb(255,0,0) 1 0 0 80 80
window -p @w2
drawrect -rf @w2 $rgb(0,255,0) 1 0 0 160 80
drawcopy -t @w1 $rgb(255,255,255) 0 0 80 80 @w2 0 0 80 80
drawcopy -t @w1 $rgb(255,255,255) 0 0 80 80 @w2 100 20 40 40
close -@ @w1
}