equal
deleted
inserted
replaced
1 'From Smalltalk/X, Version:2.6.3 on 25-Mar-1993 at 16:32:03'! |
1 " |
|
2 COPYRIGHT (c) 1993 by Claus Gittinger |
|
3 All Rights Reserved |
|
4 |
|
5 This software is furnished under a license and may be used |
|
6 only in accordance with the terms of that license and with the |
|
7 inclusion of the above copyright notice. This software may not |
|
8 be provided or otherwise made available to, or used by, any |
|
9 other person. No title to or ownership of the software is |
|
10 hereby transferred. |
|
11 " |
2 |
12 |
3 FileStream subclass:#SoundStream |
13 FileStream subclass:#SoundStream |
4 instanceVariableNames:'sampleRate numberOfChannels bitsPerSample' |
14 instanceVariableNames:'sampleRate numberOfChannels bitsPerSample' |
5 classVariableNames:'rampOff' |
15 classVariableNames:'rampOff' |
6 poolDictionaries:'' |
16 poolDictionaries:'' |
11 Interface to audio device. |
21 Interface to audio device. |
12 Currently works with PD sound-blaster driver and |
22 Currently works with PD sound-blaster driver and |
13 sun audio device. On iris default setup is 8 bit mono |
23 sun audio device. On iris default setup is 8 bit mono |
14 so I can play the standard sound files I have here. |
24 so I can play the standard sound files I have here. |
15 |
25 |
16 $Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.3 1993-10-13 00:18:28 claus Exp $ |
26 $Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.4 1993-10-13 02:13:58 claus Exp $ |
17 '! |
27 '! |
18 |
28 |
19 %{ |
29 %{ |
20 #ifdef IRIS |
30 #ifdef IRIS |
21 # include <audio.h> |
31 # include <audio.h> |