-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=16, y1=57, x2=528, y2=399)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=512 h=342
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2660
-- card count: 1
-- first card id: 2956
-- list block id: 3936
-- print block id: 0
-- font table block id: 2136
-- style table block id: 3200
-- free block count: 2
-- free size: 3264 bytes
-- total size: 24576 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x0200601F
-- compacted by hypercard version: 0x02008000
-- modified by hypercard version: 0x02008000
-- opened by hypercard version: 0x02008000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0xFFFFFFFFFFFFFFFF
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0xAA55AA55AA55AA55
-- patterns[14]: 0xDD77DD77DD77DD77
-- patterns[15]: 0xFFBBFFEEFFBBFFEE
-- patterns[16]: 0x0000000000000000
-- patterns[17]: 0xFFFFFFFFFFFBFFFF
-- patterns[18]: 0xFFBFFFFFFFFBFFFF
-- patterns[19]: 0xFFBFFFFFFFBBFFFF
-- patterns[20]: 0x2200AA002200AA00
-- patterns[21]: 0xAA00AA00AA00AA00
-- patterns[22]: 0xAA00AA11AA00AA11
-- patterns[23]: 0xAA44AA11AA44AA11
-- patterns[24]: 0xAA44AA55AA44AA55
-- patterns[25]: 0xAA55AA55AA55AA55
-- patterns[26]: 0xBB55EE55BB55EE55
-- patterns[27]: 0xFB55EE55BF55EE55
-- patterns[28]: 0xFF55FF55FF55FF55
-- patterns[29]: 0xFF77FFFFFF77FFFF
-- patterns[30]: 0x0022882200228822
-- patterns[31]: 0x8822882288228822
-- patterns[32]: 0x8C33C8338C33C833
-- patterns[33]: 0xCC33CC33CC33CC33
-- patterns[34]: 0xDD33CC33DD33CC33
-- patterns[35]: 0xDD779977DD67DD37
-- patterns[36]: 0xDD77DD77DD77DD77
-- patterns[37]: 0xDDF7DD77DDFFDD77
-- patterns[38]: 0xDDFFDD77DDFFDD77
-- patterns[39]: 0xFFFFDFFFFFFFFDFF
-- checksum: 0xE1663599
----- HyperTalk script -----
----------------------------------------------------------------------
--  Cool Revelations stack!
--
--  Cyan • Spokane, Washington • (509) 238-6789
--
--  All scripts are copyright © 1990 by Cyan. All rights reserved.
--  You may use these scripts in your own non-commercial stacks.
--
----------------------------------------------------------------------

on openStack
  hide menubar
end openStack

on resumeStack
  hide menubar
end resumeStack

on closeStack
  if the windows contains "View" then
    close window "View"
  end if
end closeStack

on suspendStack
  if the windows contains "View" then
    close window "View"
  end if
end suspendStack

function ScaleAdjust theScale, thePoint
add trunc(40-(40 / (2 ^ theScale))) to first item of thePoint
add trunc(40-(40 / (2 ^ theScale))) to second item of thePoint
return thePoint
end ScaleAdjust

on idle
  global windowloc
  if the windows contains "View" then
    put the loc of the card window into newloc
    if newloc ≠ windowloc then
      put the scale of window "View" into theScale
      get the scroll of window "View"
      subtract trunc(40-(40 / (2 ^ theScale))) from first item of it
      subtract trunc(40-(40 / (2 ^ theScale))) from second item of it
      add (first item of windowloc - first item of newloc) to first item of it
      add (second item of windowloc - second item of newloc) to second item of it
      if theScale is not 0 then get ScaleAdjust(theScale,it)
      set the scroll of window "View" to it
      put newloc into windowloc
    end if
  end if
end idle

on adjustWindow
  put the scale of window "View" into theScale
  get the loc of window "View"
  if theScale is not 0 then get ScaleAdjust(theScale,it)
  set the scroll of window "View" to it
end adjustWindow


on mouseDowninPicture
  put the scale of window "View" into theScale
  if the commandkey is down then
    set loc of card button dragger to the mouseloc
    choose button tool
    repeat until the mouse is up
      set loc of card button dragger to the mouseloc
    end repeat
    put the mouseH - 40 & "," & the mouseV - 40 into theloc
    choose browse tool
    get theloc
    if theScale is not 0 then get ScaleAdjust(theScale,it)
    set the scroll of window "View" to it
    set the loc of window "View" to theloc
  else
    repeat until the mouse is up
      put the mouseH - 40 & "," & the mouseV - 40 into theloc
      get theloc
      if theScale is not 0 then get ScaleAdjust(theScale,it)
      set the scroll of window "View" to it
      set the loc of window "View" to theloc
    end repeat
  end if
end mouseDowninPicture