fredbogg

--# Main
-- Piano.  This script makes a diatonic keyboard that plays polyphonically.
-- By Fred.
-- v2.2

-- Use this function to perform your initial setup
supportedOrientations(LANDSCAPE_ANY)

function setup()
    --displayMode(FULLSCREEN)

fredbogg

--# ABCMusic
-- ABCMusic class by Fred Bogg
-- v 0.4.3 beta
-- note durations scaled to fit, including attack and decay
-- thanks to Codeslinger and KMEB for sfxr algorithms
-- experimental sound chooser, let it run to cache the sounds

ABCMusic = class()
      

fredbogg

--# Touch
Touch = class()

function Touch:init(x)
    self.debug = true
    gtTouches = {}
    gtTouchList = {}
    gnAverageX = 0
    gnAverageY = 0
    gnAverageXDelta = 0

fredbogg

--# ABCMusic
--ABCMusic class by Fred Bogg
-- v 0.4 beta
-- tuplets work

ABCMusic = class()
      
function ABCMusic:init(_ABCTune,LOOP,DEBUG,DUMP)
    

fredbogg

function sampleMusic()
    -- An ABC tune is a string with newline characters to denote new lines.
    -- See the many web pages on ABC musical notation to get a tune or an understanding of
    -- this allegedly human- and machine-readable format.  
    -- You could even write your own by hand or use another program to convert a MIDI file.
   
     ABCtune =
     'X:1\n'
    ..'T:Bogg Blues\n'
    ..'C:Fred Bogg\n'

fredbogg

-- ABCplayerCodea version 0.2.0
-- Plays ABC musical notation format tunes on the Codea/Codify iPad platform. 
-- By Fred Bogg, November 2011.  Improvements welcome. Thanks to ipda41001 for coding assistance.
-- This program defines musical notes and chords, parses an ABC format tune, creates a table
-- of notes to be played with their durations, and then plays it.  With the parsing done 
-- first, playback is possible without slowing down draw frames (psuedo-background).

-- 0.2.0
-- Uses new sound() API based on sfxr
-- Tunes can play independently

fredbogg

ABCMusic = class()
      
function ABCMusic:init(_ABCTune,LOOP,DEBUG,DUMP)
    self.DEBUG = DEBUG
    if self.DEBUG == nil then self.DEBUG = false end
    if DUMP == nil then DUMP = false end
    if _ABCTune == nil then
        print("No tune provided. Use ABCMusic(tunename)")
    end    
    self.LOOP = LOOP

fredbogg

-- ABCplayerCodea version 0.1.9
-- Plays ABC musical notation format tunes on the Codea/Codify iPad platform. 
-- By Fred Bogg, November 2011.  Improvements welcome. Thanks to ipda41001 for coding assistance.
-- This program defines musical notes and chords, parses an ABC format tune, creates a table
-- of notes to be played with their durations, and then plays it.  With the parsing done 
-- first, playback is possible without slowing down draw frames (psuedo-background).

-- 0.1.9
-- bug fixes and stuff

fredbogg

function sampleMusic()
    -- An ABC tune is a string with newline characters to denote new lines.
    -- See the many web pages on ABC musical notation to get a tune or an understanding of
    -- this allegedly human- and machine-readable format.  
    -- You could even write your own by hand or use another program to convert a MIDI file.
   
     ABCtune =
     'X:1\n'
    ..'T:Bogg Blues\n'
    ..'C:Fred Bogg\n'

fredbogg

ABCMusic = class()
      
function ABCMusic:init(_ABCTune,LOOP,DEBUG,DUMP)
    self.DEBUG = DEBUG
    if self.DEBUG == nil then self.DEBUG = false end
    if DUMP == nil then DUMP = false end
    if _ABCTune == nil then
        print("No tune provided. Use ABCMusic(tunename)")
    end    
    self.LOOP = LOOP