
//
//  Example control file for Organ.exe
//  based on what the author uses personally
//

// Define(  MM,  -1 ) .
// Define(  SF,  2 ) .

SFLoad( SF, 17, "C:\Program Files\Organ12\OrgueP.sf2" ) .
SFLoad( SF, 18, "C:\Program Files\Organ12\CinemaOrgP.sf2" ) .
SFLoad( SF, 20, "C:\Program Files\Organ12\Philip.sf2" ) .
SFLoad( SF, 21, "C:\Program Files\Organ12\HS_PadsP.sf2" ) .
SFLoad( SF, 22, "C:\Program Files\Organ12\PuroP.sf2" ) .
SFLoad( SF, 23, "C:\Program Files\Organ12\Hs_trkfx.sf2" ) .

Control( 0, 0, 7, 127 ) = 
	Control( 0, 0, 11, 0, 127 ) ,
	Control( 0, 1, 11, 0, 127 ) ,
	Control( 0, 3, 11, 0, 127 ) .

// OrgueP programs
					
Prog( 0, 0, 0 ) :				// (1,1)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 0, 0, 0 ) ;	// Grand plein jeu
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 16, 0, 0 ) .	// Pedal Loud

// 0.      (1,1)   ;Grand plein jeu
// 1.      (1,2)   ;G. P. jeu + Anches
// 2.      (1,3)   ;Plein jeu
// 3.      (1,4)   ;Grand jeu
// 4.      (1,5)   ;Cornet (II)
// 5.      (1,6)   ;Nazard
// 6.      (1,7)   ;Gambe douce (II)
// 7.      (1,8)   ;Principaux
//
// 8.      (2,1)   ;Cromorne
// 9.      (2,2)   ;Fonds
// 10.     (2,3)   ;Fonds doux
// 11.     (2,4)   ;Voix humaine
// 12.     (2,5)   ;Pedal
// 13.     (2,6)   ;Salicional
// 14.     (2,7)   ;Pedal Soft
// 15.     (2,8)   ;Pedal Med.
//
// 16.     (3,1)   ;Pedal Loud
// 17.     (3,2)   ;Gamba 8 Viola 4
// 18.     (3,3)   ;Woodwinds
// 19.     (3,4)   ;gm church
// 20.     (3,5)   ;Jeu des Anches
// 21.     (3,6)   ;Fonds + Strings
// 22.     (3,7)   ;House
// 23.     (3,8)   ;Full House
//
// 24.     (4,1)   ;Tromp. en chamade
// 25.     (4,2)   ;Cornemuse 8
// 26.     (4,3)   ;French Horn
// 27.     (4,4)   ;Shimmer
//
// 32.     (5,1)   ;Vox Solo
// 33.     (5,2)   ;Tuba
// 34.     (5,3)   ;Tibias
// 35.     (5,4)   ;Tibias + Glock
// 36.     (5,5)   ;Theatre
// 37.     (5,6)   ;Theatre Trumpet
// 38.     (5,7)   ;Vox
// 39.     (5,8)   ;Vox Strings
//
// 40.     (6,1)   ;Clarinets
// 41.     (6,2)   ;
// 42.     (6,3)   ;
// 43.     (6,4)   ;
// 44.     (6,5)   ;
// 45.     (6,6)   ;Harpsichord
// 46.     (6,7)   ;Harpsichord Pad
// 47.     (6,8)   ;Marimbas
//
// 48.     (7,1)   ;Power Piano
// 49.     (7,2)   ;Piano Organ Loud
// 50.     (7,3)   ;Piano Organ Soft
// 51.     (7,4)   ;Piano + Layers
// 52.     (7,5)   ;Piano Strings
// 53.     (7,6)   ;Elec Pno Str
// 54.     (7,7)   ;Choir
// 55.     (7,8)   ;Hammond
//
// 56.     (8,1)   ;Toy Piano 1
// 57.     (8,2)   ;Toy Piano 2
// 58.     (8,3)   ;Toy Xylo
// 59.     (8,4)   ;
// 60.     (8,5)   ;Drip Dry
// 61.     (8,6)   ;Drip Wet
// 62.     (8,7)   ;Puro Phil
// 63.     (8,8)   ;Star Trek (pedal off)

Prog( 0, 0, 1 ) :				// (1,2)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 1, 0, 0 ) ;	// G. P. jeu + Anches
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 16, 0, 0 ) .	// Pedal Loud

Prog( 0, 0, 2 ) :				// (1,3)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 2, 0, 0 ) ;	// Plein jeu
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 15, 0, 0 ) .	// Pedal Med.

Prog( 0, 0, 3 ) :				// (1,4)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 3, 0, 0 ) ;	// Grand jeu
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 15, 0, 0 ) .	// Pedal Med.

Prog( 0, 0, 4 ) :				// (1,5)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 4, 0, 0 ) ;	// Cornet
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 9, 0, 0 ) ;	// Fonds
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 5 ) :				// (1,6)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 5, 0, 0 ) ;	// Nazard
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 10, 0, 0 ) ;	// Fonds deux
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 7 ) :				// (1,8)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 7, 0, 0 ) ;	// Principaux
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal Med.

Prog( 0, 0, 8 ) :				// (2,1)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 8, 0, 0 ) ;	// Cromorne
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 9, 0, 0 ) ;	// Fonds
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 9 ) :				// (2,2)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 9, 0, 0 ) ;	// Fonds
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 8, 0, 0 ) ;	// Cromorne
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 10 ) :				// (2,3)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 10, 0, 0 ) ;	// Fonds Doux
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 8, 0, 1 ) ;	// 
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 14, 0, 0 ) .	// Pedal Soft

Prog( 0, 0, 12 ) :				// (2,5)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 12, 0, 0 ) ;	// Pedal
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 7, 0, 0 ) ;	// Principaux
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 13 ) :				// (2,6)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 13, 0, 0 ) ;	// Salicional
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 10, 0, 0 ) ;	// Fonds deux
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 14, 0, 0 ) .	// Pedal Soft

Prog( 0, 0, 18 ) :				// (3,3)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 18, 0, 0 ) ;	// Woodwinds
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 9, 0, 0 ) ;	// Fonds
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 20 ) :				// (3,5)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 20, 0, 0 ) ;	// Jeu des Anches
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 9, 0, 0 ) ;	// Fonds
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 21 ) * :				// (3,6) default
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 21, 0, 0 ) ;	// Fonds + Strings
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 22, 0, 0 ) ;	// House
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 22 ) :				// (3,7)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 22, 0, 0 ) ;	// House
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 23, 0, 0 ) ;	// Full House
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 15, 0, 0 ) .	// Pedal Med.

Prog( 0, 0, 23 ) :				// (3,8)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 23, 0, 0 ) ;	// Full House
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 1, 0, 0 ) ;	// G. P. Jeu + Anches
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 16, 0, 0 ) .	// Pedal Loud

Prog( 0, 0, 24 ) :				// (4,1)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 24, 0, 0 ) ;	// Tromp. en chamade
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 21, 0, 0 ) ;	// Fonds + Strings
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 15, 0, 0 ) .	// Pedal Med.

Prog( 0, 0, 25 ) :				// (4,2)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 25, 0, 0 ) ;	// Cornemuse 8
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 10, 0, 0 ) ;	// Fonds doux
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 14, 0, 0 ) .	// Pedal Soft

Prog( 0, 0, 26 ) :				// (4,3)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 26, 0, 0 ) ;	// French Horn
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 27, 0, 0 ) ;	// Shimmer
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 27 ) :				// (4,4)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 17, 27, 0, 0 ) ;	// Shimmer
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 26, 0, 0 ) ;	// French Horn
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

// -------
// Theatre organ registrations
//
// 1.  111 Vox8Str8Flu4, 51 Flu8+4, 1:120 Diaphone16+8NT
// 2.  12 Tuba8
// 3.  78 Tibia8+4, 68 Flu8+4+Str8+Chrys, 1:119 Viola+Brdn16+8NT
// 4.  110 Tibia8+4+Glk+Vbs, 67 Flu8+4+Str8
// 5.  105 Tib+Dp1684+Str84, 1:123 Dphn+Tuba16+8NT
// 6.  106 Tib84Dp1684StrTpt8, 1:125 Dphn+Tpt16+8NT
// 7.  90 Tib84+Vox8
// 8.  90 Tib84+Vox8 + 61

Prog( 0, 0, 32 ) :				// (5,1)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 111, 0, 0 ) ;	// Vox8Str8Flu4
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 18, 51, 0, 0 ) ;	// Flu8+4
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 19, 120, 0, 0 ) .	// Diaphone16+8NT

Prog( 0, 0, 33 ) :				// (5,2)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 12, 0, 0 ) ;	// Tuba8
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 18, 51, 0, 0 ) ;	// Flu8+4
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 19, 120, 0, 0 ) .	// Diaphone16+8NT

Prog( 0, 0, 34 ) :				// (5,3)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 78, 0, 0 ) ;	// Tibia8+4
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 18, 68, 0, 0 ) ;	// Flu8+4+Str8+Chrys
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 19, 119, 0, 0 ) .	// Viola+Brdn16+8NT

Prog( 0, 0, 35 ) :				// (5,4)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 110, 0, 0 ) ;	// Tibia8+4+Glk+Vbs
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 18, 67, 0, 0 ) ;	// Flu8+4+Str8
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 19, 119, 0, 0 ) .	// Viola+Brdn16+8NT

Prog( 0, 0, 36 ) :				// (5,5)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 105, 0, 0 ) ;	// Tib+Dp1684+Str84
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 19, 123, 0, 0 ) .	// Dphn+Tuba16+8NT

Prog( 0, 0, 37 ) :				// (5,6)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 106, 0, 0 ) ;	// Tib84Dp1684StrTpt8
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 19, 125, 0, 0 ) .	// Dphn+Tpt16+8NT

Prog( 0, 0, 38 ) :				// (5,7)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 90, 0, 0 ) ;	// Tib84+Vox8
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 19, 119, 0, 0 ) .	// Viola+Brdn16+8NT

Prog( 0, 0, 39 ) :				// (5,8)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 90, 0, 0 ) ,	// Tib84+Vox8
		Prog( SF, 4, 18, 61, 0, 0 ) ;	// Str8+4
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 19, 123, 0, 0 ) .	// Dphn+Tuba16+8NT


Prog( 0, 0, 40 ) :				// (6,1)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 19, 15, 0, 0 ) ,	// Clarinet8 NT
		Prog( SF, 4, 18, 20, 0, 0 ) ;	// OrchOboe8
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 18, 51, 0, 0 ) ;	// Flu8+4
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 19, 120, 0, 0 ) .	// Diaphone16+8NT

Prog( 0, 0, 41 ) :				// (6,2)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 51, 0, 0 ) .	// Flu8+4

Prog( 0, 0, 42 ) :				// (6,3)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 68, 0, 0 ) .	// Flu8+4+Str8+Chrys

Prog( 0, 0, 43 ) :				// (6,4)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 18, 67, 0, 0 ) .	// Flu8+4+Str8

Prog( 0, 0, 44 ) :				// (6,5)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 19, 120, 0, 0 ) .	// Diaphone16+8NT

Prog( 0, 0, 45 ) :				// (6,6)
	In( 0, 0, 0, 127 ) =
		Prog( MM, 0, 0, 6, 0, 0 ,
			127, 48, 0 ) ,	  	// MM Harpsichord
		Prog( SF, 4, 0, 6, 0, 0 ,
			127, 81, 0 ) ;  	// SF Harpsichord
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 10, 0, 0 ) ;	// Fonds doux
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 14, 0, 0 ) .	// Pedal Soft

Prog( 0, 0, 46 ) :				// (6,7)
	In( 0, 0, 0, 127 ) =
		Prog( MM, 0, 0, 6, 0, 0 ,
			127, 48, 0 ) ,	  	// MM Harpsichord
		Prog( SF, 4, 0, 6, 0, 0 ,
			127, 81, 0 ) ,  	// SF Harpsichord
		Prog( SF, 5, 0, 88, 0, 0 ,
			96, 64, 0 )  ;  	// SF Fantasia
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 10, 0, 0 ) ,	// Fonds doux
		Prog( MM, 6, 0, 89, 0, 0 ) ;	// Warm
	In( 0, 3, 0, 127 ) =
		Prog( MM, 3, 0, 17, 0, 0 ) .	// Perc Organ

Prog( 0, 0, 47 ) :				// (6,8)
	In( 0, 0, 0, 127 ) =
		Prog( MM, 0, 0, 10, 0, 0 ,
			127, 32, 0 ) ,	  	// Music Box
		Prog( MM, 4, 0, 12, 0, 0 ,
			127, 97, 0 ) ;  	// Marimba
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 10, 0, 0 ) ;	// Fonds doux
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 14, 0, 0 ) .	// Pedal Soft


Prog( 0, 0, 48 ) :				// (7,1)
	In( 0, 0, 0, 127 ) =
		Prog( MM, 0, 0, 0, 0, 0,
			127, 64,    0 ) ,	// MM Piano
		Prog( SF, 4, 20, 1, -12, 0,
			100, 32, -328 ) ,	// Bright -12
		Prog( SF, 5, 20, 1, 12, 0,
			100, 97,  328 ) ;	// Bright 12
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 14, 0, 0 ) ,	// Pedal Soft
		Prog( MM, 6, 0, 0, 0, 0,
			127, 64,    -12 ) .	// MM -12

Prog( 0, 0, 49 ) :				// (7,2)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 20, 2, 0, 0 ) ,	// Power Piano
		Prog( SF, 4, 17, 22, 0, 0 ) ;	// House
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 15, 0, 0 ) .	// Pedal Med.

Prog( 0, 0, 50 ) :				// (7,3)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 20, 1, 0, 0 ) ,	// Bright Piano
		//Prog( SF, 4, 17, 9, 0, 0 ) ;	// Fonds
		Prog( SF, 4, 17, 21, 0, 0 ) ;	// Fonds + Str
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 51 ) :				// (7,4)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 20, 2, 0, 0 ) ,	// Power Piano
		Prog( SF, 4, 21, 16, 0, 0 ) ;	// Layer
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 15, 0, 0 ) .	// Pedal Med.

Prog( 0, 0, 52 ) :				// (7,5)
	In( 0, 0, 0, 127 ) =
		Prog( MM, 0, 0, 0, 0, 0 ) ,	// Piano
		Prog( MM, 4, 0, 48, 0, 0 ) ;	// Strings
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 53 ) :				// (7,6)
	In( 0, 0, 0, 127 ) =
		Prog( MM, 0, 0, 5, 0, 0 ,
			127, 32,  -164  ) ,	// Elec Pno 2
		Prog( SF, 4, 0, 5, 0, 0 ,
			97 , 97, 164 ) ,	// Elec Pno 2
		Prog( SF, 5, 0, 51, 0, 0 ,
			105, 64,  0   ) ;	// Syn Str 2
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 54 ) :				// (7,7)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 0, 52, 0, 0 ,
			111, 32,  -492  ) ,	// Choir Ah
		Prog( MM, 4, 0, 52, 0, 0 ,
			125, 97, 492 ) ,	// Choir Ah mm
		Prog( SF, 5, 0, 91, 0, 0 ,
			86, 64,  0   ) ;	// Space Choir 
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 14, 0, 0 ) ,	// Pedal Soft
		Prog( SF, 6, 20, 1, 0, 0 ,
			92, 64, 0   ) .		// Bright Piano

Prog( 0, 0, 55 ) :				// (7,8)
	In( 0, 0, 0, 127 ) =
		Prog( MM, 0, 0, 16, 0, 0 ,
			111, 97, 0 ) ,	  	// Drawbar Organ
		Prog( MM, 4, 0, 18, 0, 0 ,
			127, 32, 0 ) ;  	// Rock Organ
	In( 0, 3, 0, 127 ) =
		Prog( MM, 3, 0, 17, 0, 0 ) .	// Perc Organ


Prog( 0, 0, 56 ) :				// (8,1)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 20, 6, 0, 0 ) ;	// ToyPiano1
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 9, 0, 0 ) ;	// Fonds
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 57 ) :				// (8,2)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 20, 7, 0, 0 ) ;	// ToyPiano2
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 9, 0, 0 ) ;	// Fonds
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 58 ) :				// (8,3)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 20, 8, 0, 0 ) ;	// ToyXylo
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 9, 0, 0 ) ;	// Fonds
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 59 ) :				// (8,4)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 20, 9, 0, 0 ) ;	// - - -
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 21, 0, 0 ) ;	// Fonds + Strings
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 15, 0, 0 ) .	// Pedal Med.

Prog( 0, 0, 60 ) :				// (8,5)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 20, 3, 0, 0 ) ;	// DripDry
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 10, 0, 0 ) ;	// Fonds doux
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 14, 0, 0 ) .	// Pedal Soft

Prog( 0, 0, 61 ) :				// (8,6)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 20, 4, 0, 0 ) ;	// DripWet
	In( 0, 1, 0, 127 ) =
		Prog( SF, 1, 17, 9, 0, 0 ) ;	// Fonds
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 12, 0, 0 ) .	// Pedal

Prog( 0, 0, 62 ) :				// (8,7)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 22, 1, 0, 0 ) ;	// Puro Phil
	In( 0, 3, 0, 127 ) =
		Prog( SF, 3, 17, 15, 0, 0 ) .	// Pedal Med.

Prog( 0, 0, 63 ) :				// (8,8)
	In( 0, 0, 0, 127 ) =
		Prog( SF, 0, 23, 0, 0, 0 ) .	// Star Trek
						// Pedal off

