anchor.diff:  open Vaughan.GuitarTab
   open Vaughan.ScaleHarmonizer
   open Vaughan.Scales
  +
   
   module SonicPiConverter =
   
  
positive.code:     noteList 
      |> List.map convertNote
  
  
  module Composer =   
  
    let Anatole = [
        ScaleDgrees.I
        ScaleDgrees.VI
        ScaleDgrees.II
        ScaleDgrees.V
      ] 
  
    let DyerMaker = [
      ScaleDgrees.I
      ScaleDgrees.VI
      ScaleDgrees.IV
      ScaleDgrees.V
    ] 
  
    let Otherside = [
      ScaleDgrees.I
      ScaleDgrees.VI
      ScaleDgrees.III
      ScaleDgrees.VII
    ] 
    
    let private getSonicChord chord degree = 
      chord
  
negative.code:     |> List.map( fun d -> d |> getSonicChord baseChord )
  
  let s = createScale Ionian C
  let chords = Composer.getChords (Progression.getRandom()) s
  