Artifact abe8c2962f047d3679929f5b6f5a06f21e522606:

• File demos/screen-translated.tcl — part of check-in [23635a08f9] at 2011-11-23 03:34:40 on branch infinite-plane — Updated the demos of the remaining binary operators to show how they perform on images translated relative to each other. (user: andreask size: 251) [more...]

def op_screen_translated {
    label Screen/Translated
    active { expr { [bases] == 2 } }
    setup_image {
	show_image [crimp alpha opaque \
			[crimp screen \
			     [crimp place [base 0] -50 -50] \
			     [crimp place [base 1] 60 70]]]
    }
}