| Guido van Rossum | 17448e2 | 1995-01-30 11:53:55 +0000 | [diff] [blame] | 1 | # Show off SndPlay (and some resource manager functions). |
| 2 | # Get a list of all 'snd ' resources in the system and play them all. |
| 3 | |
| Jack Jansen | 5a6fdcd | 2001-08-25 12:15:04 +0000 | [diff] [blame] | 4 | from Carbon.Res import * |
| 5 | from Carbon.Snd import * |
| Guido van Rossum | 17448e2 | 1995-01-30 11:53:55 +0000 | [diff] [blame] | 6 | |
| 7 | ch = SndNewChannel(0, 0, None) |
| 8 | print "Channel:", ch |
| 9 | |
| 10 | type = 'snd ' |
| 11 | |
| 12 | for i in range(CountResources(type)): |
| 13 | r = GetIndResource(type, i+1) |
| 14 | print r.GetResInfo(), r.size |
| 15 | if r.GetResInfo()[0] == 1: |
| 16 | print "Skipping simple beep" |
| 17 | continue |
| 18 | ch.SndPlay(r, 0) |