Cocoa GUI interface for Darwin based Forth systems.

Goals:

– Similar in usage as other interfaces in MacForth and Mach2. Think of things like NEW-XXX ADD.XXX etc.

– No hacks, no shortcuts. Should survive OS upgrades! Follow their rules.

– Try to stay close to ObjC names and procedures. Makes Apple examples easy to follow and to implement.

Inevitable is breaking the rules.

Note: Cocoa interface runs in CarbonMacForth(2008), iForth(2009) and SwiftForth(2010).

Current Mac OSX is Snow Leopard 10.6.8 and Lion 10.7.1

Current development is in SwiftForth.

Current target is ObjC runtime 2. [Read the rest…]

Meanwhile Nao Sacrada has released an alpha version of iMops, a 64bit, Cocoa, Intel port of Mops [more info…].

Exciting, and interesting implications for io’s descendants.

\ io
\
\ load_io
\ directory assignment and load file for io.
\
\
\ see the file io_top for more information.
\
\
\ constructor: Han-earl Park
\ copyright 2008 buster & friends' C-ALTO Labs
\
\ www.busterandfriends.com/io
\
\ (Edinburgh, November 1996 -
\ (London, August 1997 -
\ (Den Haag, October 1997 -
\ (Valencia, March 1999 -
\ (Southampton, May 2000 -
\ (Cork, April 2006 -
\
\ (Cork, October 2008 -
\
\   REV: 0.0.1 alpha   (Southampton, October  2000)
\   REV: 0.0.1 beta    (Southampton, November 2000)
\   REV: 0.0.1 alpha++ (Southampton, July 2004)
\   REV: 0.0.1 beta++  (Cork, May 2010)
\
\
\ 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   __________________________________________________________
\ 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 instead of the 26 ticks set by
\                   hp_dur).
\ MOD: HeP 04-15-04 Trash io_script? which wasn't being used.
\ MOD: HeP 05-01-04 Move all includes (and conditional includes) from the
\                   individual files to load_io.
\ MOD: HeP 05-19-04 Split off some of the dialogs from io_screen to
\                   modules:io_pdur_dlog.
\ REV: 0.0.1 a ++   __________________________________________________________
\ REV: 0.0.1 b ++   __________________________________________________________
\                   Version for performance at Blackrock Castle Observatory,
\                   Cork, Ireland, May 25, 2010.

assign  io:   hmsl:io

.NEED  LI

    : LI    " io:load_io"  $include ;

.THEN

\ additional midi stuff

include?  task-midi_plus  myt:midi_plus

\ 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-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-floatingpoint      hsys:floatingpoint

include?  task-hp_util            myt:hp_util
include?  task-hp_fputil          myt:hp_fputil

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_fpgravity       myt:hp_fpgravity

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 -- globals and configuration

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

\ io -- modules

include?  task-io_interp_table io:modules:io_interp_table
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_pdur_dlog    io:modules:io_pdur_dlog

\ io -- main components

io_test? .IF

    include?  task-hp_screen   myt:hp_screen
    include?  task-hp_screen+  myt:hp_screen+

.THEN

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

\ io - user interface

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

io_file? .IF

    include?  task-file_elmnts     myt:file_elmnts
    include?  task-file_elmnts_mac myt:file_elmnts_mac

    include?  task-io_file_scene   io:modules:io_file_scene
    include?  task-io_file_glue    io:modules:io_file_glue
    include?  task-io_file         io:modules:io_file

.THEN

io_turnkey? .IF

    include?  task-dialog     myt:dialog
    include?  task-midi_menu  myt:midi_menu

    include?  task-io_menus   io:modules:io_menus

.THEN

\ io - top level

include?  task-io_top  io:io_top

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.

beta test 05-12-09_00 [mp3]

beta test 05-12-09_01 [mp3]

beta test 05-12-09_02 [mp3]

beta test 05-12-09_03 [mp3]

beta test 05-12-09_04 [mp3]

beta test 05-12-09_05 [mp3]

beta test 05-12-09_06 [mp3]

beta test 05-12-09_07 [mp3]

beta test 05-12-09_08 [mp3]

beta test 05-12-09_09 [mp3]

beta test 05-12-09_10 [mp3]

Performers are io 0.0.1 beta++ (itself), Bruce Coates (saxophone) and Han-earl Park (guitar).

Thanks to the Arts Council of Ireland for supporting this project, to the UCC Department of Music for providing a space in which to carry out this work, to Bruce for his work and feedback on this, and to Jonny Marks for listening and commenting on the proceedings.

Franziska Schroeder and io (Cork, March 26th 2009)

Here is the (not yet annotated) audio documentation of the io++ beta test with Franziska Schroeder on March 26th 2009.

beta test 03-26-09_00 [mp3]

beta test 03-26-09_01 [mp3]

beta test 03-26-09_02 [mp3]

beta test 03-26-09_03 [mp3]

beta test 03-26-09_04 [mp3]

beta test 03-26-09_05 [mp3]

beta test 03-26-09_06 [mp3]

Performers are io 0.0.1 beta++ (itself) and Franziska Schroeder (saxophone).

Thanks to the Arts Council of Ireland for supporting this project, to the UCC Department of Music for providing a space in which to carry out this work, and to Franziska for her work and feedback on this.

• Greater variation in output.
  • Including pseudo-Braxtonian ‘separation’ implemented via interp tables.
  • Implementation of a meta-banalyzer that shakes up the system depending on input variation.
  • Greater variation in the VL70m settings.
• More responsive to external stimulus.
  • Implementation of a meta-banalyzer (see above).
  • Greater number of elements triggered by the banalyzers and the meta-banalyzer.
  • Fix error in the banalyzer+ class.
  • Variable event buffer.
  • Reduction in the damping and absorption parameters in the VL70m model.
• Less and more machine-esque.
  • Reduction in the damping and absorption variables in the VL70m model which results in a more ‘synthetic’ sound,
  • but also disguises the strongly cyclical generator.

Thanks to the Arts Council of Ireland for supporting this project, and to Bruce and Franziska for their time, labor and expertise.

\ 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

…

interp tables (03-23-09)

See: ‘hp->midi early report’ and ‘hp->midi initial test’.

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.

beta test 12-08-08_00 [mp3]

beta test 12-08-08_01 [mp3]

beta test 12-08-08_02 [mp3]

beta test 12-08-08_03 [mp3]

beta test 12-08-08_04 [mp3]

beta test 12-08-08_05 [mp3]

beta test 12-08-08_06 [mp3]

beta test 12-08-08_07 [mp3]

Performers are io 0.0.1 beta++ (itself), Bruce Coates (saxophone) and Han-earl Park (guitar).

Thanks to the Arts Council of Ireland for supporting this project, to the UCC Department of Music for providing a space in which to carry out this work, and to Bruce for his time and labor in support of this project.

io001b.com