Note: The paleo test data is not included with this release, and the examples below are believed not to work.

Load Event Lists from MIDI files

[   | num fn el |
   Cursor wait showWhile:
      [1 to: 100 do: [ :ind |
         num := ind asZeroFilledString: 3.
         fn := SirenUtility scoreDir, 'Scarlatti/K', num, '.MID'.
         (FileDirectory root fileExists: fn)
            ifTrue: [el := (MIDIFileReader scoreFromFileNamed: fn) asEventList.
               el at: #name put: (''ScarlattiK'', num) asSymbol.
               el at: #composer put: ''Domenico Scarlatti''.
               el at: #instrumentation put: #harpsichord.
               el at: #style put: #Baroque.
               Siren eventLists at: (''ScarlattiK'', num) asSymbol put: el]]]]

Siren eventLists explore
EventList someInstance
EventList instanceCount
EventList allInstances

Loading Sound Files

[   | dir fn |
   dir := Siren soundDir, ''SimpleT/justin_b/''.
   Transcript cr.
   10 to: 14 do: [ :ind |
      fn := (FileDirectory on: dir) fileNamesMatching: (ind printString, ''*'').
      fn isEmpty
         ifFalse: [fn := fn first.
            Transcript show: ''Reading sound from: '', dir, fn; cr.
            StoredSound fromFile: dir, fn]]]

Siren sounds inspect
Siren initializeSoundDictionary

Loading Spectral Data Files

[   | dir fn |
   dir := Siren soundDir, ''sharc/tuba/''.
   Transcript cr.
   ((FileDirectory on: dir) fileNamesMatching: (''*.spect'')) do:
      [ :fn |
      Transcript show: ''Reading sound from: '', dir, fn; cr.
      Spectrum fromFile: dir, fn]]]

Siren spectra inspect
Siren Siren initializeSpectrumDictionary