home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / byndhypr.sit / OsmoIsland / stack.txt < prev   
Text File  |  1990-12-15  |  5KB  |  155 lines
  1. -- stack: in
  2. -- format: 10 (HyperCard 2)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=16, y1=57, x2=528, y2=399)
  7. -- screen: Rect(x1=0, y1=0, x2=640, y2=480)
  8. -- card dimensions: w=512 h=342
  9. -- scroll: x=0 y=0
  10. -- background count: 1
  11. -- first background id: 2660
  12. -- card count: 1
  13. -- first card id: 2956
  14. -- list block id: 3936
  15. -- print block id: 0
  16. -- font table block id: 2136
  17. -- style table block id: 3200
  18. -- free block count: 2
  19. -- free size: 3264 bytes
  20. -- total size: 24576 bytes
  21. -- stack block size: 4096 bytes
  22. -- created by hypercard version: 0x0200601F
  23. -- compacted by hypercard version: 0x02008000
  24. -- modified by hypercard version: 0x02008000
  25. -- opened by hypercard version: 0x02008000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0xFFFFFFFFFFFFFFFF
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0xAA55AA55AA55AA55
  40. -- patterns[14]: 0xDD77DD77DD77DD77
  41. -- patterns[15]: 0xFFBBFFEEFFBBFFEE
  42. -- patterns[16]: 0x0000000000000000
  43. -- patterns[17]: 0xFFFFFFFFFFFBFFFF
  44. -- patterns[18]: 0xFFBFFFFFFFFBFFFF
  45. -- patterns[19]: 0xFFBFFFFFFFBBFFFF
  46. -- patterns[20]: 0x2200AA002200AA00
  47. -- patterns[21]: 0xAA00AA00AA00AA00
  48. -- patterns[22]: 0xAA00AA11AA00AA11
  49. -- patterns[23]: 0xAA44AA11AA44AA11
  50. -- patterns[24]: 0xAA44AA55AA44AA55
  51. -- patterns[25]: 0xAA55AA55AA55AA55
  52. -- patterns[26]: 0xBB55EE55BB55EE55
  53. -- patterns[27]: 0xFB55EE55BF55EE55
  54. -- patterns[28]: 0xFF55FF55FF55FF55
  55. -- patterns[29]: 0xFF77FFFFFF77FFFF
  56. -- patterns[30]: 0x0022882200228822
  57. -- patterns[31]: 0x8822882288228822
  58. -- patterns[32]: 0x8C33C8338C33C833
  59. -- patterns[33]: 0xCC33CC33CC33CC33
  60. -- patterns[34]: 0xDD33CC33DD33CC33
  61. -- patterns[35]: 0xDD779977DD67DD37
  62. -- patterns[36]: 0xDD77DD77DD77DD77
  63. -- patterns[37]: 0xDDF7DD77DDFFDD77
  64. -- patterns[38]: 0xDDFFDD77DDFFDD77
  65. -- patterns[39]: 0xFFFFDFFFFFFFFDFF
  66. -- checksum: 0xE1663599
  67. ----- HyperTalk script -----
  68. ----------------------------------------------------------------------
  69. --  Cool Revelations stack!
  70. --
  71. --  Cyan ΓÇó Spokane, Washington ΓÇó (509) 238-6789
  72. --
  73. --  All scripts are copyright ┬⌐ 1990 by Cyan. All rights reserved.
  74. --  You may use these scripts in your own non-commercial stacks.
  75. --
  76. ----------------------------------------------------------------------
  77.  
  78. on openStack
  79.   hide menubar
  80. end openStack
  81.  
  82. on resumeStack
  83.   hide menubar
  84. end resumeStack
  85.  
  86. on closeStack
  87.   if the windows contains "View" then
  88.     close window "View"
  89.   end if
  90. end closeStack
  91.  
  92. on suspendStack
  93.   if the windows contains "View" then
  94.     close window "View"
  95.   end if
  96. end suspendStack
  97.  
  98. function ScaleAdjust theScale, thePoint
  99. add trunc(40-(40 / (2 ^ theScale))) to first item of thePoint
  100. add trunc(40-(40 / (2 ^ theScale))) to second item of thePoint
  101. return thePoint
  102. end ScaleAdjust
  103.  
  104. on idle
  105.   global windowloc
  106.   if the windows contains "View" then
  107.     put the loc of the card window into newloc
  108.     if newloc Γëá windowloc then
  109.       put the scale of window "View" into theScale
  110.       get the scroll of window "View"
  111.       subtract trunc(40-(40 / (2 ^ theScale))) from first item of it
  112.       subtract trunc(40-(40 / (2 ^ theScale))) from second item of it
  113.       add (first item of windowloc - first item of newloc) to first item of it
  114.       add (second item of windowloc - second item of newloc) to second item of it
  115.       if theScale is not 0 then get ScaleAdjust(theScale,it)
  116.       set the scroll of window "View" to it
  117.       put newloc into windowloc
  118.     end if
  119.   end if
  120. end idle
  121.  
  122. on adjustWindow
  123.   put the scale of window "View" into theScale
  124.   get the loc of window "View"
  125.   if theScale is not 0 then get ScaleAdjust(theScale,it)
  126.   set the scroll of window "View" to it
  127. end adjustWindow
  128.  
  129.  
  130. on mouseDowninPicture
  131.   put the scale of window "View" into theScale
  132.   if the commandkey is down then
  133.     set loc of card button dragger to the mouseloc
  134.     choose button tool
  135.     repeat until the mouse is up
  136.       set loc of card button dragger to the mouseloc
  137.     end repeat
  138.     put the mouseH - 40 & "," & the mouseV - 40 into theloc
  139.     choose browse tool
  140.     get theloc
  141.     if theScale is not 0 then get ScaleAdjust(theScale,it)
  142.     set the scroll of window "View" to it
  143.     set the loc of window "View" to theloc
  144.   else
  145.     repeat until the mouse is up
  146.       put the mouseH - 40 & "," & the mouseV - 40 into theloc
  147.       get theloc
  148.       if theScale is not 0 then get ScaleAdjust(theScale,it)
  149.       set the scroll of window "View" to it
  150.       set the loc of window "View" to theloc
  151.     end repeat
  152.   end if
  153. end mouseDowninPicture
  154.  
  155.