There have been major changes since 03-23-2009 as a result of the beta tests with Bruce Coates and Franziska Schroeder. These changes are unfortunately not documented/commented at the moment, but I’m uploading the source files for the record.

\ banalyzer+
\
\ a "smarter" banalyzer class designed to works in conjunction with the
\ parser classes.
\
\ ob.banalyzer+ clears internal storage and stats after an ALERT: message
\ is called. In addition, ob.banalyzer+ also takes into account the
\ frequency of ALERT: messages and adjusts sensitivity (i.e. the alert
\ threshold) accordingly.

…

\ MOD: HeP 03-24-09 Fix bug that prevented default iv-blyzr-tolerance-cfa from
\                   being set. Now set this during OPEN:

…

: BLYZR.SET.TOLERANCE.CFA   ( mode --  )
    CASE
        static_tolerance  OF  0                          ENDOF
        linear_tolerance  OF  'c blyzr.linear.tolerance  ENDOF
        shift_tolerance   OF  'c blyzr.shift.tolerance   ENDOF
        random_tolerance  OF  'c blyzr.random.tolerance  ENDOF
    ENDCASE
    iv=> iv-blyzr-tolerance-cfa
;

:m PUT.TOLERANCE.MODE:  ( mode --  , select tolerance calculating mode )
    dup  0 3  within?
    IF
        dup  iv=> iv-blyzr-tolerance-mode
    \
        iv-dev-#opened
        IF
            blyzr.set.tolerance.cfa
        ELSE
            drop
        THEN
    ELSE
        drop
        " put.tolerance.mode:"  " unrecognized mode selector"
    THEN
;m

…

:m RAW.OPEN:    (  --  )
    raw.open: super
\
    iv-blyzr-tolerance-mode  BLYZR.SET.TOLERANCE.CFA
;m

…

io:io_config

\ MOD: HeP 11-09-08 Make io_min_pulse and io_max_pulse dependent on
\                   io_rtc_rate.
\ MOD: HeP 03-22-09 Setting of rtc.rate! and time-advance moved to io_glob.

io:io_glob

\ MOD: HeP 03-22-09 Setting of rtc.rate! and time-advance moved from
\                   io_config.
\                   Add (MODIFY.TIME.ADVANCE) called by the meta-alert-matrix.
\                   See: io_matrix.

io:modules:io_interp_table

\ MOD: HeP 10-26-08 Add the io_interp_table component.
\ MOD: HeP 11-04-08 Make the pitch tables 4 bytes wide because they need
\                   to contain signed data.
\ MOD: HeP 11-05-08 Provisional test of the table lookup version of hp->midi
\                   suggests that it is almost twice as fast as the old
\                   version (12725 msec for 10,000,000 conversions in
\                   comparison to 20413 msec).
\ MOD: HeP 11-06-08 Use !BYTES.
\ MOD: HeP 11-07-08 hp_ conversion words (e.g. HP->MIDI ) now reside in
\                   io:mobules:io_interp_table.
\ MOD: HeP 11-08-08 Add words to be called from io_matrix.
\ MOD: HeP 11-09-08 Add tables for output pulse generator.
\                   Initial (klugy) version of the exponential curve.

io:modules:io_interp

\ MOD: HeP 11-05-08 Provisional test of the table lookup version of hp->midi
\                   (see io:modules:io_interp_table for more details).
\ MOD: HeP 11-07-08 hp_ conversion words (e.g. HP->MIDI ) now reside in
\                   io:mobules:io_interp_table.
\ MOD: HeP 03-22-09 Add (MODIFY.INTERP) stub called by the meta-alert-matrix.
\                   See: io_matrix.

io:modules:io_patches

\ MOD: HeP 04-26-06 Slightly broaden out the note ranges of the vl patches.
\ MOD: HeP 11-09-08 Reduce to two vl patches: ob.vl.patch Floboe and SoprSax!
\ MOD: HeP 03-19-09 Double the those vl patches with variant damping and
\                   absorption. Note that vales of 0 seem to cause problems.
\                   (Based on experiements with Bruce Coates.)

io:io_matrix

\ MOD: HeP 11-08-08 Call words to alter the conversion of hp_ coordinates to
\                   midi. See the file modules:io_interp_table for more info.
\ MOD: HeP 03-21-09 Add meta-alert-matrix.

io:io_input

\ MOD: HeP 03-20-09 Add meta-blyzer. We have an alert for alerts. ToDo: Need
\                   someway of triggering changes of patch, interp-tables and
\                   time-advance values from this.
\ MOD: HeP 03-21-09 See: io_matrix for details on what the meta-blyzer
\                   triggers.

io:io_output

\ MOD: HeP 11-09-08 Use table lookup to derive new pulse and pulse groupings.
\ MOD: HeP 03-21-09 Add (MODIFY.PATCH) called by the meta-alert-matrix. See:
\                   io_matrix.

From io:io_hp

\ MOD: HeP 03-19-04 First experiments with floating point calculations.
\ MOD: HeP 03-21-04 Speedup floating point code. Old floating point would drag
\                   the system by 30% (35 ticks or so instead of the 26 ticks
\                   set by hp_dur). New code gets us back to speed.

From io:io_input

\ MOD: HeP 03-21-04 Use return stack version of CONFIGURE.BANALYZER.
\                   Working version of POLY.DENSITY.FUNC using the updated
\                   polyphonic parser classes. Experiment with calling these
\                   during note on or off.
\ MOD: HeP 03-21-04 Experiments with revised pulse.tracker.

From io:io_output

\ MOD: HeP 03-23-04 Experimental changes to IO.DUR.FUNC.
\ MOD: HeP 03-24-04 Players EXECUTE: ALERT-MATRIX less often (the use of
\                   ob.fpgravity means that io's chaos is "smoother" and we
\                   don't need that extra interest injection).
\ MOD: HeP 04-09-04 Set instrument/channel volume via the PUT.VOLUME: method.
\                   FADE.OUT also uses the PUT.VOLUME: method.
\ MOD: HeP 04-11-04 Current reverb and pan settings are stored in variables.
\                   The reverb enable/bypass is done via the instrument's
\                   open function.
\                   Set device id# for MIDI output.
\ MOD: HeP 05-19-04 Experimental "muti-tasking" version of FADE.OUT which
\                   keeps output activity alive while executing the fade.
\                   See modules:io_interp.
\ MOD: HeP 05-23-04 The new version of FADE.OUT (in modules:io_interp) results
\                   in having to reset channel volume in IO.OUTPUT.STANDBY
\                   instead of at end of IO.OUTPUT.STOP.

Note that this is only the io 0.0.1 beta specific files, I haven not included the auxiliary code in this archive.

\ io
\
\ load_io
\ directory assignment and load file for io.
\
\ see the file io_top for more information.
\
\ Code: Han-earl Park
\ Copyright 2000 Buster & Friends C-ALTO Labs
\ (Edinburgh, November 1996 -
\ (London, August 1997 -
\ (Den Haag, October 1997 -
\ (Valencia, March 1999 -
\ (Southampton, May 2000 -
\   REV: 0.0.1 alpha (Southampton, October  2000)
\   REV: 0.0.1 beta  (Southampton, November 2000)
\
\ MOD: HeP 03/05/99 Started project afresh!
\                   This version keeps most of the "intelligence" in the
\                   objects, while the piece specific elements are kept to a
\                   minimum. It is also a test for the "laurie" project.
\ MOD: HeP 01/22/00 Trash the file io_util.
\ MOD: HeP 01/26/00 Only load objects:io_patches if io_vl70m is true.
\ MOD: HeP 02/07/00 Get rid of conditional compilation of the multiple
\                   instrument objects -- they all get compiled now.
\                   Same goes for the input parsers.
\                   Rename the io:objects: directory as io:modules:
\ MOD: HeP 04/09/00 Load the file myt:parser_list.
\ MOD: HeP 04/16/00 Load the file myt:ctrl_interpreter.
\ MOD: HeP 04/17/00 Add the modules:io_interp component.
\                   Load io_config before the modules.
\ MOD: HeP 04/18/00 Change load order of the major io components.
\ MOD: HeP 04/19/00 Add modules:io_particle component.
\ MOD: HeP 04/26/00 No longer load myt:hp_input_particle since we define an
\                   equivalent class in io_particle.
\                   Add modules:io_player component.
\ MOD: HeP 06/01/00 modules:io_script may be loaded. See file io_screen.
\ MOD: HeP 06/07/00 io_glob loads before modules.
\ MOD: HeP 06/20/00 Split off io_ui from io_screen and io_input.
\ MOD: HeP 10/02/00 Load file myt:ctrl_numeric+.
\ REV: 0.0.1 alpha  __________________________________________________________
\ MOD: HeP 11/02/00 Load the file myt:mono_parser+.
\ REV: 0.0.1 beta   __________________________________________________________

assign  io:   hmsl:io

.NEED  LI

    : LI    " io:load_io"  $include ;

.THEN

\ device classes

include?  task-device           myt:device
include?  task-midi_device      myt:midi_device
include?  task-interpreter      myt:interpreter
include?  task-ctrl_interpreter myt:ctrl_interpreter
include?  task-fan_out          myt:fan_out

\ input components

include?  task-parser         myt:parser
include?  task-mono_parser    myt:mono_parser
include?  task-mono_parser+   myt:mono_parser+
include?  task-poly_parser    myt:poly_parser
include?  task-guitar_parser  myt:guitar_parser

include?  task-parser_list    myt:parser_list

include?  task-pulse_tracker  myt:pulse_tracker
include?  task-pulse_tracker+ myt:pulse_tracker+

include?  task-banalyzer      myt:banalyzer
include?  task-banalyzer+     myt:banalyzer+

\ output components

include?  task-midi_plus     myt:midi_plus

include?  task-gm_instrument myt:gm_instrument
include?  task-gm_drumkit    myt:gm_drumkit
include?  task-gm_patch      myt:gm_patch

include?  task-vl_sysex      myt:vl_sysex
include?  task-vl_instrument myt:vl_instrument
include?  task-vl_patch      myt:vl_patch

\ "henri poincare"

include?  task-hp_util            myt:hp_util
include?  task-hp_particle        myt:hp_particle
include?  task-hp_force           myt:hp_force
include?  task-hp_space           myt:hp_space
include?  task-hp_gravity         myt:hp_gravity
include?  task-hp_particle_player myt:hp_particle_player

\ graphics

include?  task-graph_plus    myt:graph_plus
include?  task-gr_view       myt:gr_view
include?  task-screen+       myt:screen+
include?  task-ctrl_numeric+ myt:ctrl_numeric+

\ io

include?  task-io_config   io:io_config
include?  task-io_glob     io:io_glob

include?  task-io_interp   io:modules:io_interp
include?  task-io_player   io:modules:io_player
include?  task-io_particle io:modules:io_particle
include?  task-io_space    io:modules:io_space
include?  task-io_patches  io:modules:io_patches

include?  task-io_hp       io:io_hp
include?  task-io_matrix   io:io_matrix
include?  task-io_input    io:io_input
include?  task-io_output   io:io_output

include?  task-io_ui       io:io_ui
include?  task-io_screen   io:io_screen

include?  task-io_top      io:io_top