--- a/SoundStr.st Sat Jan 08 17:22:07 1994 +0100
+++ b/SoundStr.st Sat Jan 08 17:23:49 1994 +0100
@@ -12,7 +12,7 @@
FileStream subclass:#SoundStream
instanceVariableNames:'sampleRate numberOfChannels bitsPerSample'
- classVariableNames:'rampOff'
+ classVariableNames:'RampOff'
poolDictionaries:''
category:'Streams-External'
!
@@ -23,7 +23,7 @@
sun audio device. On iris default setup is 8 bit mono
so I can play the standard sound files I have here.
-$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.5 1993-11-08 02:32:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.6 1994-01-08 16:23:49 claus Exp $
'!
%{
@@ -48,7 +48,7 @@
OperatingSystem getCPUType = '386' ifTrue:[
"soundblaster special kludge to avoid click"
- rampOff isNil ifTrue:[
+ RampOff isNil ifTrue:[
self generateRamp
]
].
@@ -385,9 +385,9 @@
size := 256.
div := size // 128.
- rampOff := ByteArray new:size.
+ RampOff := ByteArray new:size.
1 to:size do:[:index |
- rampOff at:index put:(size - index // div)
+ RampOff at:index put:(size - index // div)
]
"SoundStream generateRamp"
@@ -586,7 +586,7 @@
"OperatingSystem sleep:3. "
"add a ramp to zero to prevent click-off"
- super nextPutBytes:(rampOff size) from:rampOff
+ super nextPutBytes:(RampOff size) from:RampOff
]
].
super close
--- a/SoundStream.st Sat Jan 08 17:22:07 1994 +0100
+++ b/SoundStream.st Sat Jan 08 17:23:49 1994 +0100
@@ -12,7 +12,7 @@
FileStream subclass:#SoundStream
instanceVariableNames:'sampleRate numberOfChannels bitsPerSample'
- classVariableNames:'rampOff'
+ classVariableNames:'RampOff'
poolDictionaries:''
category:'Streams-External'
!
@@ -23,7 +23,7 @@
sun audio device. On iris default setup is 8 bit mono
so I can play the standard sound files I have here.
-$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.5 1993-11-08 02:32:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.6 1994-01-08 16:23:49 claus Exp $
'!
%{
@@ -48,7 +48,7 @@
OperatingSystem getCPUType = '386' ifTrue:[
"soundblaster special kludge to avoid click"
- rampOff isNil ifTrue:[
+ RampOff isNil ifTrue:[
self generateRamp
]
].
@@ -385,9 +385,9 @@
size := 256.
div := size // 128.
- rampOff := ByteArray new:size.
+ RampOff := ByteArray new:size.
1 to:size do:[:index |
- rampOff at:index put:(size - index // div)
+ RampOff at:index put:(size - index // div)
]
"SoundStream generateRamp"
@@ -586,7 +586,7 @@
"OperatingSystem sleep:3. "
"add a ramp to zero to prevent click-off"
- super nextPutBytes:(rampOff size) from:rampOff
+ super nextPutBytes:(RampOff size) from:RampOff
]
].
super close