
#
# map prog.chg 
#

# setting Piano/EP/Pad/Str layer
proc setup000 {
  co qsynth1
  oaddev {ctl qsynth1 120 0}    #alnot-off
  oaddev {xpc qsynth1 001 0008} #PianoBank /#1  Yamaha
  oaddev {ctl qsynth1 7   127}  #initial-vol = max
  oaddev {ctl qsynth1 10  64}   #pan = center

  co qsynth2
  oaddev {ctl qsynth2 120 0}    #alnot-off
  oaddev {xpc qsynth2 004 0000} #GMBank    /#04 Rhods
  oaddev {ctl qsynth2 7   7}    #initial-vol = low
  oaddev {ctl qsynth2 10  64}   #pan = center

  co qsynth3
  oaddev {ctl qsynth3 120 0}    #alnot-off
  oaddev {xpc qsynth3 000 0020} #StrBank1  /#0  AchoStr
  oaddev {ctl qsynth3 7   1}    #initial-vol = off
  oaddev {ctl qsynth3 10  64}   #pan = center

  co qsynth4
  oaddev {ctl qsynth4 120 0}    #alnot-off
  oaddev {xpc qsynth4 089 0000} #GMBank   /#89 Warmpad
  oaddev {ctl qsynth4 7   7}    #initial-vol = low
  oaddev {ctl qsynth4 10  64}   #pan = center

  return nil
}
fmap {xpc pcr 000 000} {xpc qsynth1 001 0008} #PianoBank/#0  Yamaha
fmap {xpc pcr 000 000} {xpc qsynth2 004 0000} #GMBank   /#04 Rhods
fmap {xpc pcr 000 000} {xpc qsynth3 000 0020} #StrBank1 /#0  AchoStr
fmap {xpc pcr 000 000} {xpc qsynth4 089 0000} #GMBank   /#89 Warmpad


# setting Orchestra layer
proc setup048 {
  co qsynth1
  oaddev {ctl qsynth1 120 0}    #alnot-off
  oaddev {xpc qsynth1 048 0000} #GMBank /#48 StringSection
  oaddev {ctl qsynth1 7   112}  #initial-vol = max
  oaddev {ctl qsynth1 10  64}   #pan = center

  co qsynth2
  oaddev {ctl qsynth2 120 0}    #alnot-off
  oaddev {xpc qsynth2 060 0000} #GMBank    /#60 FrHorn
  oaddev {ctl qsynth2 7   32}    #initial-vol = low
  oaddev {ctl qsynth2 10  64}   #pan = center

  co qsynth3
  oaddev {ctl qsynth3 120 0}    #alnot-off
  oaddev {xpc qsynth3 000 0021} #StrSection
  oaddev {ctl qsynth3 7   48}   #initial-vol = off
  oaddev {ctl qsynth3 10  64}   #pan = center

  co qsynth4
  oaddev {ctl qsynth4 120 0}    #alnot-off
  oaddev {xpc qsynth4 042 0000} #GMBank    /#42 Cello
  oaddev {ctl qsynth4 7   16}    #initial-vol = low
  oaddev {ctl qsynth4 10  64}   #pan = center

  return nil
}
fmap {xpc pcr 048 000} {xpc qsynth1 048 0000}
fmap {xpc pcr 048 000} {xpc qsynth2 060 0000}
fmap {xpc pcr 048 000} {xpc qsynth3 000 0021}
fmap {xpc pcr 048 000} {xpc qsynth4 042 0000}


# setting Organ drawber layer
proc setup018 {
  co qsynth1
  oaddev {ctl qsynth1 120 0}    #alnot-off
  oaddev {xpc qsynth1 000 0017} #OB3    /#0 
  oaddev {ctl qsynth1 7   32}   #initial-vol
  oaddev {ctl qsynth1 10  64}   #pan = center

  co qsynth2
  oaddev {ctl qsynth2 120 0}    #alnot-off
  oaddev {xpc qsynth2 001 0017} #OB3    /#01
  oaddev {ctl qsynth2 7   32}   #initial-vol
  oaddev {ctl qsynth2 10  64}   #pan = center

  co qsynth3
  oaddev {ctl qsynth3 120 0}    #alnot-off
  oaddev {xpc qsynth3 018 0000} #GMBank  /#18
  oaddev {ctl qsynth3 7   72}   #initial-vol
  oaddev {ctl qsynth3 10  64}   #pan = center

  co qsynth4
  oaddev {ctl qsynth4 120 0}    #alnot-off
  oaddev {xpc qsynth4 000 0016} #RolandOrg
  oaddev {ctl qsynth4 7   124}  #initial-vol = low
  oaddev {ctl qsynth4 10  64}   #pan = center

  return nil
}

fmap {xpc pcr 018 000} {xpc qsynth1 000 0017}
fmap {xpc pcr 018 000} {xpc qsynth2 001 0017}
fmap {xpc pcr 018 000} {xpc qsynth3 018 0000}
fmap {xpc pcr 018 000} {xpc qsynth4 000 0016}
