-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=16, y1=77, x2=496, y2=269)
-- screen: Rect(x1=0, y1=0, x2=512, y2=342)
-- card dimensions: w=1280 h=192
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2699
-- card count: 2
-- first card id: 3855
-- list block id: 2137
-- print block id: 0
-- font table block id: 3401
-- style table block id: 3322
-- free block count: 0
-- free size: 0 bytes
-- total size: 21184 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]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDFD8C5CE
----- HyperTalk script -----
----------------------------------------------------------------------
--  Cyanimator 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.
--
--  The deer & Osman animation may only be distributed with Cyanimator
--  and is not in the public domain.
----------------------------------------------------------------------

on resumeStack
  send openStack
end resumeStack

on suspendStack
  send closeStack
end suspendStack

on openStack
  Global Frame, windowLoc
  -- initialize frames and window locations
  put "1" into Frame
  add 350 to the first item of windowloc
  add 145 to the second item of windowloc
  put the first item of windowloc + 128 into the third item of windowloc
  put the second item of windowloc + 96 into the fourth item of windowloc
  set rect of card window to windowloc
  set scroll of card window to "0,0"
  setMenu
  Palette AnimatorX, "-165,65"
  Palette Indicator, "-165,115"
  send goFrame to background
  show menubar
end openStack

on closeStack
  if there is a menu "Cyanimator" then delete menu "Cyanimator"
  if the windows contains "AnimatorX" then send "close" to window "AnimatorX"
  if the windows contains "Indicator" then send "close" to window "Indicator"
end closeStack

on setMenu
  create Menu "Cyanimator"
  put "Play" into menu "Cyanimator" with menuMsg "PlayFrame"
  put "Step Forward" after menu "Cyanimator" with menuMsg "NextFrame"
  put "Step Backward" after menu "Cyanimator" with menuMsg "PrevFrame"
  put "Rewind" after menu "Cyanimator" with menuMsg "RewindFrame"
  put "-" after menu "Cyanimator"
  put "Loop" after menu "Cyanimator" with menuMsg "loopFrame"
  set the checkMark of menuItem "Loop" of menu "Cyanimator" to true
  put "-" after menu "Cyanimator"
  put "Show Controls" after Menu "Cyanimator" with menuMsg "palette AnimatorX"
  put "Show Indicator" after Menu "Cyanimator" with menuMsg "IndicatorPalette"
  put "-" after menu "Cyanimator"
  put "Quit Cyanimator" after Menu "Cyanimator" with menuMsg "QuitCy"
end setMenu

on loopFrame
  set the checkMark of menuItem "Loop" of menu "Cyanimator" to not (the checkMark of menuItem "Loop" of menu "Cyanimator")
end loopFrame

on IndicatorPalette
  Global Frame
  palette Indicator
  set the hilitedbutton of window "Indicator" to Frame
end IndicatorPalette

on QuitCy
  if the stacks contains "Beyond HyperCard" then domenu "Close Stack"
  else go to card "Cyanimation" in stack "Beyond HyperCard"
end QuitCy