On 2013-03-12, at 12:20, Bert Freudenberg <bert@freudenbergs.de> wrote:Hehe, this is fun. A couple more lines and you have a real fuzzy screenshot tool:
> mask := PNGReadWriter formFromFileNamed: 'mask.png'.
> image := Display copy: mask boundingBox.
> mask displayOn: image at: 0@0 rule: Form blend.
> image asMorph openInHand.
image := Form fromUser.
mask := PNGReadWriter formFromFileNamed: 'mask.png'.
scaledMask := Form extent: image extent depth: 32.
mask displayScaledOn: scaledMask.
scaledMask displayOn: image at: 0@0 rule: Form blend.
fileName := FileDirectory default nextNameFor: 'screenshot' extension: 'png'.
image asMorph name: fileName; openCenteredInWorld.
Cursor write showWhile: [PNGReadWriter putForm: image onFileNamed: fileName].
- Bert -