diff --git a/music-parts.cabal b/music-parts.cabal
--- a/music-parts.cabal
+++ b/music-parts.cabal
@@ -1,6 +1,6 @@
name: music-parts
-version: 1.7
+version: 1.7.1
author: Hans Hoglund
maintainer: Hans Hoglund
license: BSD3
@@ -22,13 +22,14 @@
library
build-depends: base >= 4 && < 5,
- lens >= 4.1.2 && < 4.2,
+ aeson >= 0.7.0.6 && < 1,
+ lens >= 4.3 && < 4.4,
semigroups >= 0.13.0.1 && < 1,
time,
random,
semigroupoids,
data-default,
- adjunctions,
+ adjunctions >= 4.1 && < 5,
roman-numerals
exposed-modules: Music.Parts
-- Music.Parts.Strings
diff --git a/src/Music/Parts.hs b/src/Music/Parts.hs
--- a/src/Music/Parts.hs
+++ b/src/Music/Parts.hs
@@ -95,6 +95,40 @@
cello,
doubleBass,
+ -- ** Ensembles
+ piccoloFlutes,
+ flutes,
+ oboes,
+ clarinets,
+ bassoons,
+
+ flutes1,
+ flutes2,
+ oboes1,
+ oboes2,
+ clarinets1,
+ clarinets2,
+
+ horns,
+ highHorns,
+ lowHorns,
+ trumpets,
+ trombones,
+ trumpets1,
+ trumpets2,
+ trombones1,
+ trombones2,
+ tubas,
+
+ violins,
+ violins1,
+ violins2,
+ violas,
+ cellos,
+ doubleBasses,
+
+ harp,
+
-- ** Default values
defaultClef,
defaultMidiProgram,
@@ -726,3 +760,924 @@
instance Show BasicPart where
show _ = ""
+
+
+piccoloFlutes = tutti piccoloFlute
+flutes = tutti flute
+oboes = tutti oboe
+clarinets = tutti clarinet
+bassoons = tutti bassoon
+
+[flutes1, flutes2] = divide 2 flutes
+[oboes1, oboes2] = divide 2 oboes
+[clarinets1, clarinets2] = divide 2 clarinets
+
+
+horns = tutti horn
+highHorns = zipWith (!!) (repeat $ divide 4 horns) [0,2]
+lowHorns = zipWith (!!) (repeat $ divide 4 horns) [1,3]
+trumpets = tutti trumpet
+trombones = tutti trombone
+[trumpets1, trumpets2] = divide 2 trumpets
+[trombones1, trombones2] = divide 2 trombones
+tubas = tutti tuba
+
+violins = tutti violin
+[violins1, violins2] = divide 2 violins
+violas = tutti viola
+cellos = tutti cello
+doubleBasses = tutti doubleBass
+
+harp' = StdInstrument 46
+harp = tutti harp'
+
+
+{-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+-}
+