Christoph Thiede uploaded a new version of Sound to project The Trunk:
http://source.squeak.org/trunk/Sound-ct.88.mcz

==================== Summary ====================

Name: Sound-ct.88
Author: ct
Time: 26 March 2022, 7:56:05.035593 pm
UUID: d40ab95a-8643-a649-99ed-598a37950ddb
Ancestors: Sound-dtl.87

Uses FileDirectory slash in SampledInstrument examples. Thanks to David (dto)!

=============== Diff against Sound-dtl.87 ===============

Item was changed:
  ----- Method: SampledInstrument class>>readLoudAndStaccatoInstrument:fromDirectory: (in category 'instance creation') -----
+ readLoudAndStaccatoInstrument: instName fromDirectory: orchestraDir 
- readLoudAndStaccatoInstrument: instName fromDirectory: orchestraDir
  	"SampledInstrument
  		readLoudAndStaccatoInstrument: 'oboe'
+ 		fromDirectory: 'Tosh/Sample Library/Orchestra'"
- 		fromDirectory: 'Tosh:Sample Library:Orchestra'"
- 
  	| sampleSetDir memBefore memAfter loud short snd |
+ 	sampleSetDir := orchestraDir , FileDirectory slash , instName.
- 	sampleSetDir := orchestraDir, ':', instName.
  	memBefore := Smalltalk garbageCollect.
  	loud := SampledInstrument new readSampleSetFrom: sampleSetDir, ' f'.
  	short := SampledInstrument new readSampleSetFrom: sampleSetDir, ' stacc'.
  	memAfter := Smalltalk garbageCollect.
  	Transcript show:
  		instName, ': ', (memBefore - memAfter) printString,
  		' bytes; ', memAfter printString, ' bytes left'; cr.
  	AbstractSound soundNamed: instName, '-f&stacc' put:
  		(snd := SampledInstrument new
  			allSampleSets: loud;
  			staccatoLoudAndSoftSampleSet: short).
  	"fix slow attacks"
  	snd allNotes do: [:n | n firstSample: (n findStartPointForThreshold: 500)].
  
  	AbstractSound soundNamed: instName, '-f' put:
  		(snd := SampledInstrument new
  			allSampleSets: loud).
  	"fix slow attacks"
+ 	snd allNotes do: [:n | n firstSample: (n findStartPointForThreshold: 1000)].!
- 	snd allNotes do: [:n | n firstSample: (n findStartPointForThreshold: 1000)].
- !

Item was changed:
  ----- Method: SampledInstrument class>>readPizzInstrument:fromDirectory: (in category 'instance creation') -----
+ readPizzInstrument: instName fromDirectory: orchestraDir 
- readPizzInstrument: instName fromDirectory: orchestraDir
  	"SampledInstrument
  		readPizzInstrument: 'violin'
+ 		fromDirectory: 'Tosh/Sample Library/Orchestra'"
- 		fromDirectory: 'Tosh:Sample Library:Orchestra'"
- 
  	| sampleSetDir memBefore memAfter sampleSet snd |
+ 	sampleSetDir := orchestraDir , FileDirectory slash , instName , ' pizz'.
- 	sampleSetDir := orchestraDir, ':', instName, ' pizz'.
  	memBefore := Smalltalk garbageCollect.
  	sampleSet := SampledInstrument new readSampleSetFrom: sampleSetDir.
  	memAfter := Smalltalk garbageCollect.
  	Transcript show:
  		instName, ': ', (memBefore - memAfter) printString,
  		' bytes; ', memAfter printString, ' bytes left'; cr.
  	AbstractSound soundNamed: instName, '-pizz' put:
  		(snd := SampledInstrument new allSampleSets: sampleSet).
  
  	"fix slow attacks"
  	snd allNotes do: [:n |
  		n firstSample: (n findStartPointForThreshold: 1000)].
  
+ 	^ snd!
- 	^ snd
- !