;;drawcopy bug test
;bug testing with drawcopy
alias dcbtest {
;initializing windows
window -dp +d @copyfrom 0 0 200 200
window -dpC +d @copyinhere 0 0 650 400
drawrect -n @copyfrom 4 10 10 10 180 180
drawfill -n @copyfrom 11 4 50 50
drawrot -f @copyfrom 45 0 0 200 200
;normal, no bug afaik
drawcopy -t @copyfrom $color(11) 0 0 200 200 @copyinhere 0 0 200 200
drawtext @copyinhere 3 0 0 (1) nonscaled image
;a bit scaled down, transparency buggy
drawcopy -t @copyfrom $color(11) 0 0 200 200 @copyinhere 200 0 150 150
drawtext @copyinhere 3 200 0 (2) scaled to 75%
;scaled down some more, transparency still buggy but the scaling of the bug is obviously
;dependant on the scaling in the drawcopy thingy
drawcopy -t @copyfrom $color(11) 0 0 200 200 @copyinhere 350 0 100 100
drawtext @copyinhere 3 350 0 (3) 50% size
;lets see if its width- or heightdependant
drawcopy -t @copyfrom $color(11) 0 0 200 200 @copyinhere 450 0 200 100
drawtext @copyinhere 3 450 0 (4) scaled to 50% height
;obviously both. the "transparency rectangle" is calculated wrongly again.
drawcopy -mt @copyfrom $color(11) 0 0 200 200 @copyinhere 0 200 100 200
drawtext @copyinhere 3 0 200 (5) scaled to 50% width
;the bug only appears for scaled DOWN images
drawcopy -mt @copyfrom $color(11) 0 0 200 200 @copyinhere 200 200 400 200
drawtext @copyinhere 3 200 200 (6) scaled to 200% width
}
;closing windows when finished
on *:keydown:@copyfrom:*:dcbclose
on *:keydown:@copyinhere:*:dcbclose
alias dcbclose { window -c @copyfrom | window -c @copyinhere }
