summaryrefslogtreecommitdiffstats
path: root/Mac/Lib/test/tsnd.py
diff options
context:
space:
mode:
Diffstat (limited to 'Mac/Lib/test/tsnd.py')
-rw-r--r--Mac/Lib/test/tsnd.py18
1 files changed, 18 insertions, 0 deletions
diff --git a/Mac/Lib/test/tsnd.py b/Mac/Lib/test/tsnd.py
new file mode 100644
index 0000000..ac347cb
--- /dev/null
+++ b/Mac/Lib/test/tsnd.py
@@ -0,0 +1,18 @@
+# Show off SndPlay (and some resource manager functions).
+# Get a list of all 'snd ' resources in the system and play them all.
+
+from Res import *
+from Snd import *
+
+ch = SndNewChannel(0, 0, None)
+print "Channel:", ch
+
+type = 'snd '
+
+for i in range(CountResources(type)):
+ r = GetIndResource(type, i+1)
+ print r.GetResInfo(), r.size
+ if r.GetResInfo()[0] == 1:
+ print "Skipping simple beep"
+ continue
+ ch.SndPlay(r, 0)