#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" % camouflage2 ˆÒon preOpenStack set loc of me to -10000,-10000 doCapture set loc of me to the screenLoc set topLeft of img 1 to (0 - left of this stack),(0 - top of this stack) set the shadow of me to false end preOpenStack on doCapture import snapshot from rect (the screenRect) set layer of img 1 to 1 set topLeft of img 1 to (0 - left of this stack),(0 - top of this stack) set the lockLocation of img 1 to true set decorations of this stack to empty choose browse tool end doCapture on mouseMove x,y if not the uAllowDrag of this stack then exit mouseMove if the uMagnified of me then put 2 into M else put 1 into M set topLeft of img 1 to \ M * (- item 1 of the screenMouseLoc + item 1 of the clickLoc),\ M * (- item 2 of the screenMouseLoc + item 2 of the clickLoc) set the topLeft of me to \ left of me + x - item 1 of the clickLoc,top of me + y - item 2 of the clickLoc end mouseMove on closeStack delete img 1 end closeStack `¬¬¬¬¬¬¬¬¬¬¬¬€ < uMagnified uAllowDrag camouflage€U helvetica U helvetica Uarial Uarial UArial UArialê @ìóìResetàE«pÐon mouseUp set the uMagnified of this stack to empty hide this stack repeat for the number of imgs delete img 1 end repeat lock screen unlock screen doCapture show this stack end mouseUp “±Q óDrag MeàE«p·on mouseDown set the uAllowDrag of this stack to true end mouseDown on mouseUp set the uAllowDrag of this stack to empty end mouseUp on mouseRelease mouseUp end mouseRelease UBSM MagnifyàE«pwon mouseUp lock screen if not the uMagnified of this stack then put the rect of img 1 into tRect put (item 3 of tRect * 2) into item 3 of tRect put (item 4 of tRect * 2) into item 4 of tRect set the rect of img 1 to tRect set topLeft of img 1 to \ 2 * (- item 1 of the screenMouseLoc + the mouseH),\ 2 * (- item 2 of the screenMouseLoc + the mouseV) set the uMagnified of this stack to true else set the rect of img 1 to the screenRect set topLeft of img 1 to (0 - left of this stack),(0 - top of this stack) set the uMagnified of this stack to empty end if end mouseUp €±Q XàE«p+on mouseUp close this stack end mouseUp €Ï '  copyright  Blackffffffà  ê &Camouflage was built by Tactile Media www.tactilemedia.com