[comp.sys.mac.hypercard] Zoom

PORTERG@VCUVAX.Bitnet (04/09/88)

Here is a simple little button script for looking at the visual detail of
any card.  Click the button, then click and hold where you want to see.
Releasing the mouse button takes you back to the regular view.  Use with
the "magnifying glass" icon for best effect.

on mouseUp
        --Zoom - G.Porter, 1988
        wait until the mouse is down
        choose pencil tool
        click at the mouseLoc --gives Fatbits a reference point
        click at the mouseLoc --undoes the pixel this creates
        doMenu FatBits
        wait until the mouse is up
        choose browse tool
end mouseUp

Greg Porter
PORTERG@VCURUBY (Bitnet)

smghy6c%bostonu.BITNET@BUACCA.BU.EDU (Chris Davis) (04/13/88)

The "Zoom" script in HH 25 is quite useful, and I've started to use it in my
stacks.  However, it can be scripted slightly more efficiently as follows:

on mouseUp
  -- Zoom2, C. Davis 1988 after G. Porter 1988
  wait until the mouse is down
  choose pencil tool
  click at the mouseLoc with commandKey --go straight into FatBits
  wait until the mouse is up
  choose browse tool
end mouseUp