"Chordal Mist" (U, PPC-210): Shimmering guitar synth patch utilizing arpeggios. Mark Vermette 5/24/1996. 
SAP 

#=======================================================================
#=======================================================================
#
# Program: Chordal Mist
# Author: Mark D. Vermette (mvermette@aol.com)
# Date Created: May 24, 1996
#
# Chordal Mist is a shimmering guitar synth type patch. Each note
# played triggers from 2 to 4 different arpeggios, depending on the
# position of the foot controller pedal. With the pedal in the heel
# down position, each note played generates 2 arpeggios, one going
# up in octaves and the other going down in 4ths. With the pedal in
# the toe down position, each note played generates 2 more arpeggios,
# one going up in 5ths and the other going down in octaves. Intermediate
# pedal positions bring all four of these arpeggios into play. 
#
# The arpeggios are panned around the stereo field, with the up ones
# to the left and the down ones to the right. They feed a synchonized
# delay. Control over the feedback of this delay is assigned to front
# panel key #3. Keys #1 and #2 control a touch of Clean Tube distortion
# used to warm up the sound before it hits the arpeggiators.
#
# NOTE: This patch requires 2 SDISCs.
#
# (c) Mark D. Vermette, 1996. Program may be freely distributed by any 
# means so long as this notice and all portions of the program, including
# comments, are distributed intact.
#=======================================================================
#=======================================================================

GSP2101  # Device.
2.02.01  # Version.
Chordal Mist # Name of this noise.
U (2 Many Arps) # U have to put this algorithm in yourself.

#
# The program modules...
#

Comp (On, 7:1, -45, -6)

Dist (On fk[1], Clean Tube, 5.0 fk[2])

EQ (+4, 0, 0, 0, +4, +4, +6)

MVol (+3)

FxL (Bypass)

NGt (On, -60, 6, 24, 200, 200, 100, 4.5)

i2x1 (100, 100, 100)

iArpA (On, 100 cc[100,0],  12, 0, 8-12, 0.500, 50)  # Octaves up.

iArpB (On,   0 cc[0,100],   7, 0,  4-8, 0.250, 75)  # 5ths up.

iiArpC (On, 100 cc[100,0],  -5, 0,  3-6, 0.250, 75) # 4ths down.

iiArpD (On,   0 cc[0,100], -12, 0, 8-12, 0.500, 75) # Octaves down.

ii5x2 (100, -50, 100, -26, 100, 0, 100, 26, 100, 50, 100, 100)

iiSDly1 (On, 1.000, 46 fk[3], 100, Off)  # Time is multiple of arp delays.

iiMMix (50, 50)

#
# Algorithm linkage for 2 Many Arps.
#

i2x1 <- (Left Input, Right Input)
iArpA <- (i2x1 Out 1)
iArpB <- (i2x1 Out 1)
iiArpC <- (i2x1 Out 1)
iiArpD <- (i2x1 Out 1)
ii5x2 <- (iArpA Out 1, iArpB Out1, i2x1 Out1, iiArpC Out1, iiArpD Out1)
iiSDly1 <-(ii5x2 Out1, ii5x2 Out2)
MMix <- ( iiSDly1 Out1, iiSDly1 Out2)

#=======================================================================
#=======================================================================
#
# End of program.
#
#=======================================================================
#=======================================================================
#
# Usage Notes: Playing short staccato notes with this patch, especially
# with an intermediate pedal position and headphones on, may lead to
# what the airlines call "motion discomfort". Playing long sustaining 
# notes produces sounds reminicent of string or woodwind synth sounds,
# sorta.
#
#=======================================================================
#=======================================================================