On 2013-03-12, at 12:20, Bert Freudenberg bert@freudenbergs.de wrote:
mask := PNGReadWriter formFromFileNamed: 'mask.png'. image := Display copy: mask boundingBox. mask displayOn: image at: 0@0 rule: Form blend. image asMorph openInHand.
Hehe, this is fun. A couple more lines and you have a real fuzzy screenshot tool:
mask := PNGReadWriter formFromFileNamed: 'mask.png'. image := Form fromUser. 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 -