retro commit for released version 3.0.1

.gitignore

@@ -0,0 +1,14 @@
+# Visual Studio 2015/2017 cache/options directory
+.vs/
+
+# User-specific files
+*.suo
+*.user
+
+# Build results
+[Dd]ebug/
+[Rr]elease/
+[Bb]in/
+[Oo]bj/
+
+

4klang_source/4klang.inc

@@ -0,0 +1,898 @@
+; //----------------------------------------------------------------------------------------
+; //	useful macros
+; //----------------------------------------------------------------------------------------
+; //	export function	(make it accessable	from main.cpp)
+; //----------------------------------------------------------------------------------------
+%macro export_func 1
+   global _%1
+   _%1:
+%endmacro
+%define USE_SECTIONS
+; //----------------------------------------------------------------------------------------
+; //	basic defines for the song/synth
+; //----------------------------------------------------------------------------------------
+%define	SAMPLE_RATE	44100
+%define	MAX_INSTRUMENTS	9
+%define	MAX_VOICES 1
+%define	HLD	1 ;	// can be adjusted to give crinkler	some other possibilities
+%define	BPM	100
+%define	MAX_PATTERNS 62
+%define	PATTERN_SIZE_SHIFT 4
+%define	PATTERN_SIZE (1	<< PATTERN_SIZE_SHIFT)
+%define	MAX_TICKS (MAX_PATTERNS*PATTERN_SIZE)
+%define	SAMPLES_PER_TICK (SAMPLE_RATE*4*60/(BPM*16))
+%define	DEF_LFO_NORMALIZE 0.000038
+%define	MAX_SAMPLES	(SAMPLES_PER_TICK*MAX_TICKS)
+; //----------------------------------------------------------------------------------------
+; //	some defines for unit usage, which reduce synth	code size
+; //----------------------------------------------------------------------------------------
+;%define 	GO4K_USE_16BIT_OUTPUT			; // removing this will output to 32bit floating point buffer
+;%define	GO4K_USE_GROOVE_PATTERN			; // removing this skips groove pattern code
+;%define 	GO4K_USE_ENVELOPE_RECORDINGS	; // removing this skips envelope recording code
+;%define 	GO4K_USE_NOTE_RECORDINGS		; // removing this skips note recording code
+%define		GO4K_USE_UNDENORMALIZE			; // removing this skips denormalization code in the units
+%define		GO4K_CLIP_OUTPUT				; // removing this skips clipping code for the final output
+%define		GO4K_USE_DST					; // removing this will	skip DST unit
+%define		GO4K_USE_DLL					; // removing this will	skip DLL unit
+%define		GO4K_USE_PAN					; // removing this will	skip PAN unit
+%define		GO4K_USE_GLOBAL_DLL				; // removing this will	skip global	dll	processing
+%define		GO4K_USE_FSTG					; // removing this will	skip global	store unit
+%define		GO4K_USE_FLD					; // removing this will	skip float load unit
+%define		GO4K_USE_ENV_CHECK				; // removing this skips checks	if processing is needed
+%define		GO4K_USE_ENV_MOD_GM				; // removing this will	skip env gain modulation code
+%define		GO4K_USE_ENV_MOD_ADR			; // removing this will skip env attack/decay/release modulation code
+%define		GO4K_USE_VCO_CHECK				; // removing this skips checks	if processing is needed
+%define		GO4K_USE_VCO_PHASE_OFFSET		; // removing this will	skip initial phase offset code
+%define		GO4K_USE_VCO_SHAPE				; // removing this skips waveshaping code
+%define		GO4K_USE_VCO_GATE				; // removing this skips gate code
+%define		GO4K_USE_VCO_MOD_FM				; // removing this skips frequency modulation code
+%define		GO4K_USE_VCO_MOD_PM				; // removing this skips phase modulation code
+%define		GO4K_USE_VCO_MOD_TM				; // removing this skips transpose modulation code
+%define		GO4K_USE_VCO_MOD_DM				; // removing this skips detune	modulation code
+%define		GO4K_USE_VCO_MOD_CM				; // removing this skips color modulation code
+%define		GO4K_USE_VCO_MOD_GM				; // removing this skips gain modulation code
+%define		GO4K_USE_VCO_MOD_SM				; // removing this skips shaping modulation	code
+%define		GO4K_USE_VCF_CHECK				; // removing this skips checks	if processing is needed
+%define		GO4K_USE_VCF_MOD_FM				; // removing this skips frequency modulation code
+%define		GO4K_USE_VCF_MOD_RM				; // removing this skips resonance modulation code
+%define		GO4K_USE_VCF_HIGH				; // removing this skips code for high output
+%define		GO4K_USE_VCF_BAND				; // removing this skips code for band output
+%define		GO4K_USE_VCF_PEAK				; // removing this skips code for peak output
+%define		GO4K_USE_DST_CHECK				; // removing this skips checks	if processing is needed
+%define		GO4K_USE_DST_SH					; // removing this skips sample	and	hold code
+%define		GO4K_USE_DST_MOD_DM				; // removing this skips distortion	modulation code
+%define		GO4K_USE_DST_MOD_SH				; // removing this skips sample	and	hold modulation	code
+%define		GO4K_USE_DLL_NOTE_SYNC			; // removing this will	skip delay length adjusting	code (karplus strong)
+%define		GO4K_USE_DLL_CHORUS				; // removing this will	skip delay chorus/flanger code
+%define		GO4K_USE_DLL_CHORUS_CLAMP		; // removing this will skip chorus lfo phase clamping
+%define		GO4K_USE_DLL_DAMP				; // removing this will	skip dll damping code
+%define		GO4K_USE_DLL_DC_FILTER			; // removing this will	skip dll dc	offset removal code
+%define		GO4K_USE_FOP_LOADNOTE			; // removing this will	skip load note code
+%define		GO4K_USE_FSTG_CHECK				; // removing this skips checks	if processing is needed
+%define		GO4K_USE_PAN_MOD				; // removing this will	skip panning modulation	code
+%define		GO4K_USE_OUT_MOD_AM				; // removing this skips output	aux	send modulation	code
+%define		GO4K_USE_OUT_MOD_GM				; // removing this skips output	gain modulation	code
+%define		GO4K_USE_WAVESHAPER_CLIP		; // removing this will	skip clipping code
+%define		GO4K_USE_FLD_MOD_VM				; // removing this will	skip float load modulation	code
+%define 	GO4K_USE_DLL_MOD				; // define this to enable modulations for delay line
+%define 	GO4K_USE_DLL_MOD_PM				; // define this to enable pregain modulation for delay line
+%define 	GO4K_USE_DLL_MOD_FM				; // define this to enable feebback modulation for delay line
+%define 	GO4K_USE_DLL_MOD_IM				; // define this to enable dry modulation for delay line
+%define 	GO4K_USE_DLL_MOD_DM				; // define this to enable damping modulation for delay line
+%define 	GO4K_USE_DLL_MOD_SM				; // define this to enable lfo freq modulation for delay line
+%define 	GO4K_USE_DLL_MOD_AM				; // define this to enable lfo depth modulation for delay line
+
+; //----------------------------------------------------------------------------------------
+; // synth defines
+; //----------------------------------------------------------------------------------------
+%define	MAX_DELAY			65536
+%define	MAX_WORKSPACE_SLOTS	8
+%define	GO4K_BEGIN_CMDDEF(def_name)
+%define	GO4K_END_CMDDEF	db 0
+%define	GO4K_BEGIN_PARAMDEF(def_name)
+%define	GO4K_END_PARAMDEF
+; //----------------------------------------------------------------------------------------
+; // ENV structs
+; //----------------------------------------------------------------------------------------
+GO4K_ENV_ID		equ		1
+%macro	GO4K_ENV 5
+	db	%1
+	db	%2
+	db	%3
+	db	%4
+	db	%5
+%endmacro
+%define	ATTAC(val)		val	
+%define	DECAY(val)		val	
+%define	SUSTAIN(val)	val	
+%define	RELEASE(val)	val	
+%define	GAIN(val)		val	
+struc	go4kENV_val
+;//	unit paramters
+	.attac		resd	1
+	.decay		resd	1
+	.sustain	resd	1
+	.release	resd	1
+	.gain		resd	1
+	.size
+endstruc
+struc	go4kENV_wrk
+;//	work variables	
+	.state		resd	1
+	.level		resd	1
+;//	modulation targets
+	.gm			resd	1
+	.am			resd	1
+	.dm			resd	1
+	.sm			resd	1
+	.rm			resd	1
+	.size
+endstruc
+%define	ENV_STATE_ATTAC		0
+%define	ENV_STATE_DECAY		1
+%define	ENV_STATE_SUSTAIN	2
+%define	ENV_STATE_RELEASE	3
+%define	ENV_STATE_OFF		4
+; //----------------------------------------------------------------------------------------
+; // VCO structs
+; //----------------------------------------------------------------------------------------
+GO4K_VCO_ID		equ		2
+
+%macro	GO4K_VCO 8
+	db	%1
+	db	%2
+%ifdef GO4K_USE_VCO_PHASE_OFFSET	
+	db	%3
+%endif
+%ifdef GO4K_USE_VCO_GATE
+	db	%4
+%endif	
+	db	%5
+%ifdef GO4K_USE_VCO_SHAPE
+	db	%6
+%else
+%endif	
+	db	%7
+	db	%8
+%endmacro
+%define	TRANSPOSE(val)	val	
+%define	DETUNE(val)		val	
+%define	PHASE(val)		val
+%define GATES(val)		val		
+%define	COLOR(val)		val
+%define	SHAPE(val)		val	
+%define	FLAGS(val)		val	
+%define	SINE		0x01
+%define	TRISAW		0x02
+%define	PULSE		0x04
+%define	NOISE		0x08
+%define	LFO			0x10
+%define	GATE		0x20
+struc	go4kVCO_val
+;//	unit paramters
+	.transpose	resd	1
+	.detune		resd	1
+%ifdef GO4K_USE_VCO_PHASE_OFFSET	
+	.phaseofs	resd	1
+%endif	
+%ifdef GO4K_USE_VCO_GATE
+	.gate		resd	1
+%endif	
+	.color		resd	1
+%ifdef GO4K_USE_VCO_SHAPE	
+	.shape		resd	1
+%endif
+	.gain		resd	1
+	.flags		resd	1	
+	.size
+endstruc
+struc	go4kVCO_wrk
+;//	work variables
+	.phase		resd	1
+;//	modulation targets
+	.tm			resd	1
+	.dm			resd	1
+	.fm			resd	1
+	.pm			resd	1
+	.cm			resd	1
+	.sm			resd	1
+	.gm			resd	1
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // VCF structs
+; //----------------------------------------------------------------------------------------
+GO4K_VCF_ID		equ		3
+%macro	GO4K_VCF 3
+	db	%1
+	db	%2
+	db	%3
+%endmacro
+%define	LOWPASS		0x1
+%define	HIGHPASS	0x2
+%define	BANDPASS	0x4
+%define	BANDSTOP	0x3
+%define	ALLPASS		0x7
+%define	PEAK		0x8
+%define	FREQUENCY(val)	val
+%define	RESONANCE(val)	val
+%define	VCFTYPE(val)	val
+struc	go4kVCF_val
+;//	unit paramters
+	.freq		resd	1
+	.res		resd	1
+	.type		resd	1
+	.size
+endstruc
+struc	go4kVCF_wrk
+;//	work variables
+	.low		resd	1
+	.high		resd	1
+	.band		resd	1
+	.freq		resd	1
+;//	modulation targets
+	.fm			resd	1
+	.rm			resd	1	
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // DST structs
+; //----------------------------------------------------------------------------------------
+GO4K_DST_ID		equ		4
+%macro	GO4K_DST 2
+	db	%1
+%ifdef GO4K_USE_DST_SH	
+	db	%2
+%endif	
+%endmacro
+%define	DRIVE(val)		val
+%define	SNHFREQ(val)	val
+struc	go4kDST_val
+;//	unit paramters
+	.drive		resd	1
+%ifdef GO4K_USE_DST_SH	
+	.snhfreq	resd	1
+%endif	
+	.size
+endstruc
+struc	go4kDST_wrk
+	.out		resd	1
+	.snhphase	resd	1
+;//	modulation targets
+	.dm			resd	1
+	.sm			resd	1
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // DLL structs
+; //----------------------------------------------------------------------------------------
+GO4K_DLL_ID		equ		5
+%macro	GO4K_DLL 8
+	db	%1
+	db	%2
+	db	%3
+%ifdef GO4K_USE_DLL_DAMP	
+	db	%4
+%endif		
+%ifdef GO4K_USE_DLL_CHORUS
+	db	%5
+	db	%6
+%endif
+	db	%7
+	db	%8
+%endmacro
+%define	PREGAIN(val)	val
+%define	DRY(val)		val
+%define	FEEDBACK(val)	val
+%define	DEPTH(val)		val
+%define	DAMP(val)		val
+%define	DELAY(val)		val
+%define	COUNT(val)		val
+struc	go4kDLL_val
+;//	unit paramters
+	.pregain	resd	1
+	.dry		resd	1
+	.feedback	resd	1
+%ifdef GO4K_USE_DLL_DAMP	
+	.damp		resd	1	
+%endif
+%ifdef GO4K_USE_DLL_CHORUS
+	.freq		resd	1
+	.depth
+%endif	
+	.delay		resd	1
+	.count		resd	1
+	.size
+endstruc
+struc	go4kDLL_wrk
+;//	work variables
+	.index		resd	1
+	.store		resd	1
+	.dcin		resd	1
+	.dcout		resd	1
+	.phase		resd	1
+;// the delay buffer	
+	.buffer		resd	MAX_DELAY
+	.size
+endstruc
+struc	go4kDLL_wrk2
+;//	modulation targets
+	.pm			resd	1
+	.fm			resd	1
+	.im			resd	1	
+	.dm			resd	1
+	.sm			resd	1
+	.am			resd	1
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // FOP structs
+; //----------------------------------------------------------------------------------------
+GO4K_FOP_ID	equ			6
+%macro	GO4K_FOP 1
+	db	%1
+%endmacro
+%define	OP(val)			val
+%define	FOP_POP			0x1
+%define	FOP_ADDP		0x2
+%define	FOP_MULP		0x3
+%define	FOP_PUSH		0x4
+%define	FOP_XCH			0x5
+%define	FOP_ADD			0x6
+%define	FOP_MUL			0x7
+%define	FOP_ADDP2		0x8
+%define FOP_LOADNOTE	0x9
+struc	go4kFOP_val
+	.flags		resd	1
+	.size
+endstruc
+struc	go4kFOP_wrk
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // FST structs
+; //----------------------------------------------------------------------------------------
+GO4K_FST_ID		equ		7
+%macro	GO4K_FST 2
+	db	%1
+	db	%2
+%endmacro
+%define	AMOUNT(val)		val
+%define	DEST(val)		val
+struc	go4kFST_val
+	.amount		resd	1
+	.op1		resd	1
+	.size
+endstruc
+struc	go4kFST_wrk
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // PAN structs
+; //----------------------------------------------------------------------------------------
+GO4K_PAN_ID		equ		8
+%macro	GO4K_PAN 1
+%ifdef GO4K_USE_PAN
+	db	%1
+%endif
+%endmacro
+%define	PANNING(val)	val
+struc	go4kPAN_val
+%ifdef GO4K_USE_PAN
+	.panning	resd	1
+%endif
+	.size
+endstruc
+struc	go4kPAN_wrk
+;//	modulation targets
+	.pm			resd	1
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // OUT structs
+; //----------------------------------------------------------------------------------------
+GO4K_OUT_ID		equ		9
+%macro	GO4K_OUT 2
+	db	%1
+%ifdef GO4K_USE_GLOBAL_DLL	
+	db	%2
+%endif	
+%endmacro
+%define	AUXSEND(val)	val
+struc	go4kOUT_val
+	.gain		resd	1
+%ifdef GO4K_USE_GLOBAL_DLL	
+	.auxsend	resd	1
+%endif
+	.size
+endstruc
+struc	go4kOUT_wrk
+;//	modulation targets
+	.am			resd	1
+	.gm			resd	1
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // ACC structs (this is for the synth	def	only)
+; //----------------------------------------------------------------------------------------
+GO4K_ACC_ID		equ		10
+%macro	GO4K_ACC 1
+	db	%1
+%endmacro
+%define	OUTPUT			0
+%define	AUX				8
+%define	ACCTYPE(val)	val
+struc	go4kACC_val
+	.acctype	resd	1
+	.size
+endstruc
+struc	go4kACC_wrk
+	.size
+endstruc
+%ifdef GO4K_USE_FLD
+; //----------------------------------------------------------------------------------------
+; // FLD structs
+; //----------------------------------------------------------------------------------------
+GO4K_FLD_ID	equ		11
+%macro	GO4K_FLD 1
+	db	%1
+%endmacro
+%define	VALUE(val)	val
+struc	go4kFLD_val
+	.value		resd	1
+	.size
+endstruc
+struc	go4kFLD_wrk
+;//	modulation targets
+	.vm			resd	1
+	.size
+endstruc
+%endif
+%ifdef GO4K_USE_FSTG
+; //----------------------------------------------------------------------------------------
+; // FSTG structs
+; //----------------------------------------------------------------------------------------
+GO4K_FSTG_ID	equ		12
+%macro	GO4K_FSTG 2
+	db	%1
+	dd	%2
+%endmacro
+struc	go4kFSTG_val
+	.amount		resd	1
+	.op1		resd	1
+	.size
+endstruc
+struc	go4kFSTG_wrk
+	.size
+endstruc
+%endif
+; //----------------------------------------------------------------------------------------
+; // Voice struct
+; //----------------------------------------------------------------------------------------
+struc	go4k_instrument
+	.release	resd	1
+	.note		resd	1
+	.workspace	resd	256
+	.dlloutl	resd	1
+	.dlloutr	resd	1
+	.outl		resd	1
+	.outr		resd	1
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // Synth struct
+; //----------------------------------------------------------------------------------------
+struc	go4k_synth
+	.instruments	resb	go4k_instrument.size * MAX_INSTRUMENTS * MAX_VOICES
+	.global			resb	go4k_instrument.size * MAX_VOICES
+	.size
+endstruc
+; //----------------------------------------------------------------------------------------
+; // Pattern Data, reduced by 967 patterns
+; //----------------------------------------------------------------------------------------
+%ifdef USE_SECTIONS
+section	.g4kmuc1 data align=1
+%else
+section .data align=1
+%endif
+go4k_patterns
+	db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	
+	db	76,	HLD, HLD, HLD, 0, 0, 0,	0, 79, HLD,	HLD, HLD, 0, 0,	0, 0, 
+	db	69,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 0, 0, 0,	0, 0, 0, 0,	0, 
+	db	76,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 
+	db	81,	HLD, HLD, HLD, 0, 0, 0,	0, 79, HLD,	HLD, HLD, 0, 0,	0, 0, 
+	db	84,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 0, 0, 0,	0, 0, 0, 0,	0, 
+	db	76,	HLD, HLD, HLD, 0, 0, 0,	0, 88, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, 
+	db	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	0, 0, 0, 0,	
+	db	76,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 0, 0, 0,	0, 0, 0, 0,	0, 
+	db	52,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 
+	db	57,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 
+	db	60,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 
+	db	64,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 
+	db	69,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 
+	db	72,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 
+	db	40,	52,	HLD, 64, HLD, 40, 52, 64, 52, HLD, HLD,	HLD, 0,	0, 0, 0, 
+	db	57,	0, 0, 57, 0, 0,	69,	0, 0, 69, 0, 0,	57,	HLD, HLD, HLD, 
+	db	52,	64,	0, 57, 0, 69, 48, 0, 48, HLD, HLD, HLD,	0, 0, 0, 0,	
+	db	40,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 
+	db	40,	52,	HLD, 40, HLD, 40, 40, 40, 52, HLD, HLD,	HLD, 0,	0, 0, 0, 
+	db	40,	0, 0, 52, 0, 0,	40,	0, 52, 40, 0, 52, 0, 40, 0,	0, 
+	db	45,	0, 0, 57, 0, 0,	45,	0, 57, 45, 0, 57, 0, 45, 0,	0, 
+	db	48,	0, 0, 60, 0, 0,	48,	0, 60, 48, 0, 60, 0, 48, 0,	0, 
+	db	40,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 0, 0, 0,	0, 
+	db	45,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 0, 0, 0,	0, 
+	db	36,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, 0, 0, 0,	0, 
+	db	0, 0, 0, 0,	60,	HLD, 0,	0, 0, 0, 0,	0, 60, HLD,	0, 0, 
+	db	60,	HLD, 0,	0, 0, 0, 60, HLD, 0, 0,	60,	HLD, 60, HLD, 0, 0,	
+	db	0, 0, 0, 0,	60,	HLD, 0,	0, 0, 0, 0,	0, 60, HLD,	60,	HLD, 
+	db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	60,	HLD, 0,	0, 
+	db	60,	HLD, 60, HLD, 0, 0,	60,	HLD, 0,	0, 0, 0, 60, HLD, 0, 0,	
+	db	0, 0, 60, HLD, 0, 0, 0,	0, 60, HLD,	0, 0, 0, 0,	0, 0, 
+	db	0, 0, 60, HLD, 0, 0, 0,	0, 60, HLD,	0, 0, 60, HLD, 0, 0, 
+	db	0, 0, 0, 60, HLD, 0, 0,	0, 0, 0, 0,	0, 60, HLD,	0, 0, 
+	db	0, 0, 0, 60, HLD, 0, 0,	0, 0, 60, HLD, 60, 60, HLD,	0, 0, 
+	db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	84,	0, 0, 0, 
+	db	91,	0, 0, 88, 0, 0,	76,	0, 81, 0, 0, 0,	0, 0, 0, 0,	
+	db	81,	0, 0, 84, 0, 0,	86,	0, 88, 0, 0, 0,	0, 0, 0, 0,	
+	db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	93,	0, 0, 0, 
+	db	81,	0, 0, 84, 0, 0,	86,	0, 81, 0, 0, 0,	0, 0, 0, 0,	
+	db	84,	0, 0, 86, 0, 0,	88,	0, 0, 91, 0, 0,	84,	0, 0, 0, 
+	db	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	HLD, HLD, HLD, HLD,	
+go4k_patterns_end
+; //----------------------------------------------------------------------------------------
+; // Pattern Index List
+; //----------------------------------------------------------------------------------------
+%ifdef USE_SECTIONS
+section	.g4kmuc2 data align=1
+%else
+section .data
+%endif
+go4k_pattern_lists
+Instrument0List		db	0, 0, 0, 0,	0, 0, 0, 0,	1, 2, 3, 0,	4, 5, 6, 7,	0, 0, 0, 0,	0, 0, 0, 0,	1, 2, 3, 0,	4, 5, 6, 7,	0, 0, 0, 0,	0, 0, 0, 0,	1, 2, 3, 0,	4, 5, 6, 7,	1, 2, 3, 0,	4, 5, 6, 7,	8, 2, 9, 0,	0, 0,
+Instrument1List		db	9, 7, 10, 7, 11, 7,	12,	7, 9, 7, 10, 7,	11,	7, 12, 7, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 12, 7, 13, 7,	14,	7, 3, 7, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 12, 7, 0, 0,
+Instrument2List		db	15,	0, 16, 0, 17, 0, 18, 0,	19,	0, 16, 0, 17, 0, 18, 0,	20,	20,	21,	21,	22,	22,	20,	20,	20,	20,	21,	21,	22,	22,	20,	20,	23,	15,	24,	16,	25,	17,	18,	0, 20, 20, 21, 21, 22, 22, 20, 20, 20, 20, 21, 21, 22, 22, 20, 20, 20, 20, 0, 0, 0,	0,
+Instrument3List		db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	0, 0, 0, 0,	0, 0, 0, 0,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	26,	0, 0, 0, 0,	0,
+Instrument4List		db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	27,	26,	27,	26,	27,	26,	27,	28,	27,	26,	27,	26,	27,	26,	27,	28,	27,	29,	27,	29,	27,	29,	27,	29,	27,	26,	27,	26,	27,	26,	27,	28,	27,	26,	27,	26,	27,	26,	27,	28,	27,	26,	27,	0, 0, 0,
+Instrument5List		db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	30,	31,	30,	32,	30,	31,	30,	32,	30,	31,	30,	32,	30,	31,	30,	32,	30,	31,	30,	32,	30,	31,	30,	0, 30, 31, 30, 32, 30, 31, 30, 32, 30, 31, 30, 32, 30, 31, 30, 32, 30, 31, 30, 32, 0, 0,
+Instrument6List		db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	33,	33,	33,	34,	33,	33,	33,	34,	33,	33,	33,	34,	33,	33,	33,	34,	33,	33,	33,	34,	33,	33,	33,	34,	33,	33,	33,	34,	33,	33,	33,	34,	33,	33,	33,	34,	33,	33,	33,	34,	33,	33,	0, 0, 0, 0,
+Instrument7List		db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 35, 36, 0,	37,	38,	36,	0, 39, 35, 36, 0, 37, 38, 40, 0, 0,	0, 0, 0, 0,	0, 0, 0,
+Instrument8List		db	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	0, 0, 0, 0,	11,	41,	41,	41,	11,	41,	41,	41,	11,	41,	41,	41,	11,	41,	41,	41,	11,	41,	41,	41,	11,	41,	41,	41,	11,	41,	41,	41,	11,	41,	41,	41,	11,	41,	41,	41,	11,	41,	41,	41,	11,	41,	41,	41,	41,	0,
+go4k_pattern_lists_end
+; //----------------------------------------------------------------------------------------
+; // Instrument	Commands
+; //----------------------------------------------------------------------------------------
+%ifdef USE_SECTIONS
+section	.g4kmuc3 data align=1
+%else
+section .data
+%endif
+go4k_synth_instructions
+GO4K_BEGIN_CMDDEF(Instrument0)
+	db GO4K_ENV_ID
+	db GO4K_FST_ID
+	db GO4K_VCO_ID
+	db GO4K_VCO_ID
+	db GO4K_VCO_ID
+	db GO4K_FST_ID
+	db GO4K_FST_ID
+	db GO4K_FOP_ID
+	db GO4K_FOP_ID
+	db GO4K_FOP_ID
+	db GO4K_VCF_ID
+	db GO4K_VCF_ID
+	db GO4K_DST_ID
+	db GO4K_PAN_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_OUT_ID
+GO4K_END_CMDDEF
+GO4K_BEGIN_CMDDEF(Instrument1)
+	db GO4K_ENV_ID
+	db GO4K_FST_ID
+	db GO4K_VCO_ID
+	db GO4K_VCO_ID
+	db GO4K_VCO_ID
+	db GO4K_FST_ID
+	db GO4K_FST_ID
+	db GO4K_FOP_ID
+	db GO4K_FOP_ID
+	db GO4K_FOP_ID
+	db GO4K_VCF_ID
+	db GO4K_VCF_ID
+	db GO4K_DST_ID
+	db GO4K_PAN_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_OUT_ID
+GO4K_END_CMDDEF
+GO4K_BEGIN_CMDDEF(Instrument2)
+	db GO4K_ENV_ID
+	db GO4K_FST_ID
+	db GO4K_VCO_ID
+	db GO4K_VCO_ID
+	db GO4K_VCO_ID
+	db GO4K_FST_ID
+	db GO4K_FST_ID
+	db GO4K_FOP_ID
+	db GO4K_FOP_ID
+	db GO4K_FOP_ID
+	db GO4K_VCF_ID
+	db GO4K_VCF_ID
+	db GO4K_DST_ID
+	db GO4K_PAN_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_OUT_ID
+GO4K_END_CMDDEF
+GO4K_BEGIN_CMDDEF(Instrument3)
+	db GO4K_ENV_ID
+	db GO4K_FST_ID
+	db GO4K_VCO_ID
+	db GO4K_FOP_ID
+	db GO4K_VCF_ID
+	db GO4K_PAN_ID
+	db GO4K_OUT_ID
+GO4K_END_CMDDEF
+GO4K_BEGIN_CMDDEF(Instrument4)
+	db GO4K_ENV_ID
+	db GO4K_FST_ID
+	db GO4K_ENV_ID
+	db GO4K_DST_ID
+	db GO4K_FST_ID
+	db GO4K_FOP_ID
+	db GO4K_VCO_ID
+	db GO4K_FOP_ID
+	db GO4K_PAN_ID
+	db GO4K_OUT_ID
+GO4K_END_CMDDEF
+GO4K_BEGIN_CMDDEF(Instrument5)
+	db GO4K_ENV_ID
+	db GO4K_VCO_ID
+	db GO4K_FOP_ID
+	db GO4K_VCF_ID
+	db GO4K_PAN_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_OUT_ID
+GO4K_END_CMDDEF
+GO4K_BEGIN_CMDDEF(Instrument6)
+	db GO4K_ENV_ID
+	db GO4K_FST_ID
+	db GO4K_ENV_ID
+	db GO4K_FST_ID
+	db GO4K_FST_ID
+	db GO4K_FOP_ID
+	db GO4K_VCO_ID
+	db GO4K_VCO_ID
+	db GO4K_VCO_ID
+	db GO4K_VCF_ID
+	db GO4K_FOP_ID
+	db GO4K_FOP_ID
+	db GO4K_FOP_ID
+	db GO4K_VCF_ID
+	db GO4K_PAN_ID
+	db GO4K_OUT_ID
+GO4K_END_CMDDEF
+GO4K_BEGIN_CMDDEF(Instrument7)
+	db GO4K_ENV_ID
+	db GO4K_VCO_ID
+	db GO4K_FOP_ID
+	db GO4K_PAN_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_OUT_ID
+GO4K_END_CMDDEF
+GO4K_BEGIN_CMDDEF(Instrument8)
+	db GO4K_ENV_ID
+	db GO4K_VCO_ID
+	db GO4K_FOP_ID
+	db GO4K_FSTG_ID
+	db GO4K_FSTG_ID
+	db GO4K_FOP_ID
+GO4K_END_CMDDEF
+;//	global commands
+GO4K_BEGIN_CMDDEF(Global)
+	db GO4K_ACC_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_DLL_ID
+	db GO4K_FOP_ID
+	db GO4K_ACC_ID
+	db GO4K_FOP_ID
+	db GO4K_OUT_ID
+GO4K_END_CMDDEF
+go4k_synth_instructions_end
+; //----------------------------------------------------------------------------------------
+; // Intrument Data
+; //----------------------------------------------------------------------------------------
+%ifdef USE_SECTIONS
+section	.g4kmuc4 data align=1
+%else
+section .data
+%endif
+go4k_synth_parameter_values
+GO4K_BEGIN_PARAMDEF(Instrument0)
+	GO4K_ENV	ATTAC(72),DECAY(96),SUSTAIN(96),RELEASE(88),GAIN(128)
+	GO4K_FST	AMOUNT(64),DEST(0*MAX_WORKSPACE_SLOTS+2)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(60),PHASE(32),GATES(0),COLOR(80),SHAPE(64),GAIN(128),FLAGS(PULSE)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(72),PHASE(32),GATES(0),COLOR(96),SHAPE(64),GAIN(128),FLAGS(TRISAW)
+	GO4K_VCO	TRANSPOSE(32),DETUNE(64),PHASE(0),GATES(0),COLOR(64),SHAPE(96),GAIN(128),FLAGS(SINE|LFO)
+	GO4K_FST	AMOUNT(68),DEST(2*MAX_WORKSPACE_SLOTS+2)
+	GO4K_FST	AMOUNT(61),DEST(3*MAX_WORKSPACE_SLOTS+2)
+	GO4K_FOP	OP(FOP_POP)
+	GO4K_FOP	OP(FOP_ADDP)
+	GO4K_FOP	OP(FOP_MULP)
+	GO4K_VCF	FREQUENCY(26),RESONANCE(128),VCFTYPE(PEAK)
+	GO4K_VCF	FREQUENCY(64),RESONANCE(64),VCFTYPE(LOWPASS)
+	GO4K_DST	DRIVE(104),	SNHFREQ(128)
+	GO4K_PAN	PANNING(64)
+	GO4K_DLL	PREGAIN(96),DRY(128),FEEDBACK(96),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(16),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_DLL	PREGAIN(96),DRY(128),FEEDBACK(64),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(17),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_OUT	GAIN(0), AUXSEND(32)
+GO4K_END_PARAMDEF
+GO4K_BEGIN_PARAMDEF(Instrument1)
+	GO4K_ENV	ATTAC(72),DECAY(96),SUSTAIN(96),RELEASE(88),GAIN(128)
+	GO4K_FST	AMOUNT(64),DEST(0*MAX_WORKSPACE_SLOTS+2)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(60),PHASE(32),GATES(0),COLOR(80),SHAPE(64),GAIN(128),FLAGS(TRISAW)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(72),PHASE(32),GATES(0),COLOR(96),SHAPE(112),GAIN(64),FLAGS(SINE)
+	GO4K_VCO	TRANSPOSE(80),DETUNE(112),PHASE(0),GATES(0),COLOR(64),SHAPE(16),GAIN(128),FLAGS(PULSE|LFO)
+	GO4K_FST	AMOUNT(68),DEST(2*MAX_WORKSPACE_SLOTS+2)
+	GO4K_FST	AMOUNT(60),DEST(3*MAX_WORKSPACE_SLOTS+2)
+	GO4K_FOP	OP(FOP_POP)
+	GO4K_FOP	OP(FOP_ADDP)
+	GO4K_FOP	OP(FOP_MULP)
+	GO4K_VCF	FREQUENCY(80),RESONANCE(24),VCFTYPE(LOWPASS)
+	GO4K_VCF	FREQUENCY(48),RESONANCE(24),VCFTYPE(HIGHPASS)
+	GO4K_DST	DRIVE(64), SNHFREQ(128)
+	GO4K_PAN	PANNING(64)
+	GO4K_DLL	PREGAIN(96),DRY(128),FEEDBACK(96),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(16),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_DLL	PREGAIN(96),DRY(128),FEEDBACK(64),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(17),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_OUT	GAIN(0), AUXSEND(32)
+GO4K_END_PARAMDEF
+GO4K_BEGIN_PARAMDEF(Instrument2)
+	GO4K_ENV	ATTAC(32),DECAY(64),SUSTAIN(64),RELEASE(64),GAIN(64)
+	GO4K_FST	AMOUNT(120),DEST(0*MAX_WORKSPACE_SLOTS+2)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(64),PHASE(32),GATES(0),COLOR(80),SHAPE(64),GAIN(128),FLAGS(PULSE)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(72),PHASE(32),GATES(0),COLOR(96),SHAPE(64),GAIN(128),FLAGS(TRISAW)
+	GO4K_VCO	TRANSPOSE(32),DETUNE(64),PHASE(0),GATES(0),COLOR(64),SHAPE(96),GAIN(128),FLAGS(SINE|LFO)
+	GO4K_FST	AMOUNT(68),DEST(2*MAX_WORKSPACE_SLOTS+2)
+	GO4K_FST	AMOUNT(60),DEST(3*MAX_WORKSPACE_SLOTS+2)
+	GO4K_FOP	OP(FOP_POP)
+	GO4K_FOP	OP(FOP_ADDP)
+	GO4K_FOP	OP(FOP_MULP)
+	GO4K_VCF	FREQUENCY(18),RESONANCE(64),VCFTYPE(PEAK)
+	GO4K_VCF	FREQUENCY(32),RESONANCE(48),VCFTYPE(LOWPASS)
+	GO4K_DST	DRIVE(88), SNHFREQ(128)
+	GO4K_PAN	PANNING(64)
+	GO4K_DLL	PREGAIN(64),DRY(128),FEEDBACK(96),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(16),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_DLL	PREGAIN(64),DRY(128),FEEDBACK(64),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(17),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_OUT	GAIN(64), AUXSEND(64)
+GO4K_END_PARAMDEF
+GO4K_BEGIN_PARAMDEF(Instrument3)
+	GO4K_ENV	ATTAC(0),DECAY(76),SUSTAIN(0),RELEASE(0),GAIN(32)
+	GO4K_FST	AMOUNT(128),DEST(0*MAX_WORKSPACE_SLOTS+2)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(64),PHASE(64),GATES(0),COLOR(64),SHAPE(64),GAIN(128),FLAGS(NOISE)
+	GO4K_FOP	OP(FOP_MULP)
+	GO4K_VCF	FREQUENCY(80),RESONANCE(128),VCFTYPE(LOWPASS)
+	GO4K_PAN	PANNING(64)
+	GO4K_OUT	GAIN(64), AUXSEND(0)
+GO4K_END_PARAMDEF
+GO4K_BEGIN_PARAMDEF(Instrument4)
+	GO4K_ENV	ATTAC(0),DECAY(64),SUSTAIN(96),RELEASE(64),GAIN(128)
+	GO4K_FST	AMOUNT(128),DEST(0*MAX_WORKSPACE_SLOTS+2)
+	GO4K_ENV	ATTAC(0),DECAY(70),SUSTAIN(0),RELEASE(0),GAIN(128)
+	GO4K_DST	DRIVE(32), SNHFREQ(128)
+	GO4K_FST	AMOUNT(80),DEST(6*MAX_WORKSPACE_SLOTS+1)
+	GO4K_FOP	OP(FOP_POP)
+	GO4K_VCO	TRANSPOSE(46),DETUNE(64),PHASE(0),GATES(0),COLOR(64),SHAPE(64),GAIN(128),FLAGS(TRISAW)
+	GO4K_FOP	OP(FOP_MULP)
+	GO4K_PAN	PANNING(64)
+	GO4K_OUT	GAIN(128), AUXSEND(0)
+GO4K_END_PARAMDEF
+GO4K_BEGIN_PARAMDEF(Instrument5)
+	GO4K_ENV	ATTAC(0),DECAY(64),SUSTAIN(0),RELEASE(0),GAIN(128)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(64),PHASE(64),GATES(0),COLOR(64),SHAPE(64),GAIN(128),FLAGS(NOISE)
+	GO4K_FOP	OP(FOP_MULP)
+	GO4K_VCF	FREQUENCY(128),RESONANCE(128),VCFTYPE(BANDPASS)
+	GO4K_PAN	PANNING(64)
+	GO4K_DLL	PREGAIN(64),DRY(128),FEEDBACK(96),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(16),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_DLL	PREGAIN(64),DRY(128),FEEDBACK(64),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(17),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_OUT	GAIN(64), AUXSEND(0)
+GO4K_END_PARAMDEF
+GO4K_BEGIN_PARAMDEF(Instrument6)
+	GO4K_ENV	ATTAC(0),DECAY(72),SUSTAIN(0),RELEASE(72),GAIN(128)
+	GO4K_FST	AMOUNT(128),DEST(0*MAX_WORKSPACE_SLOTS+2)
+	GO4K_ENV	ATTAC(0),DECAY(56),SUSTAIN(0),RELEASE(0),GAIN(128)
+	GO4K_FST	AMOUNT(108),DEST(6*MAX_WORKSPACE_SLOTS+1)
+	GO4K_FST	AMOUNT(72),DEST(7*MAX_WORKSPACE_SLOTS+1)
+	GO4K_FOP	OP(FOP_POP)
+	GO4K_VCO	TRANSPOSE(32),DETUNE(64),PHASE(0),GATES(0),COLOR(64),SHAPE(32),GAIN(64),FLAGS(SINE)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(64),PHASE(0),GATES(0),COLOR(64),SHAPE(80),GAIN(64),FLAGS(SINE)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(64),PHASE(0),GATES(0),COLOR(64),SHAPE(64),GAIN(64),FLAGS(NOISE)
+	GO4K_VCF	FREQUENCY(104),RESONANCE(128),VCFTYPE(LOWPASS)
+	GO4K_FOP	OP(FOP_ADDP)
+	GO4K_FOP	OP(FOP_ADDP)
+	GO4K_FOP	OP(FOP_MULP)
+	GO4K_VCF	FREQUENCY(22),RESONANCE(32),VCFTYPE(HIGHPASS)
+	GO4K_PAN	PANNING(64)
+	GO4K_OUT	GAIN(64), AUXSEND(0)
+GO4K_END_PARAMDEF
+GO4K_BEGIN_PARAMDEF(Instrument7)
+	GO4K_ENV	ATTAC(0),DECAY(0),SUSTAIN(96),RELEASE(32),GAIN(128)
+	GO4K_VCO	TRANSPOSE(64),DETUNE(64),PHASE(0),GATES(0),COLOR(80),SHAPE(64),GAIN(128),FLAGS(PULSE)
+	GO4K_FOP	OP(FOP_MULP)
+	GO4K_PAN	PANNING(64)
+	GO4K_DLL	PREGAIN(96),DRY(128),FEEDBACK(96),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(16),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_DLL	PREGAIN(96),DRY(128),FEEDBACK(64),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(17),COUNT(1)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_OUT	GAIN(0), AUXSEND(64)
+GO4K_END_PARAMDEF
+GO4K_BEGIN_PARAMDEF(Instrument8)
+	GO4K_ENV	ATTAC(0),DECAY(0),SUSTAIN(128),RELEASE(0),GAIN(128)
+	GO4K_VCO	TRANSPOSE(48),DETUNE(64),PHASE(0),GATES(0),COLOR(64),SHAPE(64),GAIN(128),FLAGS(TRISAW|LFO)
+	GO4K_FOP	OP(FOP_MULP)
+	GO4K_FSTG	AMOUNT(72),DEST(2*go4k_instrument.size*MAX_VOICES+10*MAX_WORKSPACE_SLOTS*4+4*4+go4k_instrument.workspace)
+	GO4K_FSTG	AMOUNT(66),DEST(1*go4k_instrument.size*MAX_VOICES+10*MAX_WORKSPACE_SLOTS*4+4*4+go4k_instrument.workspace)
+	GO4K_FOP	OP(FOP_POP)
+GO4K_END_PARAMDEF
+;//	global parameters
+GO4K_BEGIN_PARAMDEF(Global)
+	GO4K_ACC	ACCTYPE(AUX)
+	GO4K_DLL	PREGAIN(40),DRY(128),FEEDBACK(125),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(0),COUNT(8)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_DLL	PREGAIN(40),DRY(128),FEEDBACK(125),DAMP(64),FREQUENCY(0),DEPTH(0),DELAY(8),COUNT(8)
+	GO4K_FOP	OP(FOP_XCH)
+	GO4K_ACC	ACCTYPE(OUTPUT)
+	GO4K_FOP	OP(FOP_ADDP2)
+	GO4K_OUT	GAIN(64), AUXSEND(0)
+GO4K_END_PARAMDEF
+go4k_synth_parameter_values_end
+; //----------------------------------------------------------------------------------------
+; // Delay/Reverb Times
+; //----------------------------------------------------------------------------------------
+%ifdef USE_SECTIONS
+section	.g4kmuc5 data align=1
+%else
+section .data
+%endif
+%ifdef GO4K_USE_DLL
+global _go4k_delay_times
+_go4k_delay_times
+	dw 0
+	dw 1116
+	dw 1188
+	dw 1276
+	dw 1356
+	dw 1422
+	dw 1492
+	dw 1556
+	dw 1618
+	dw 1140
+	dw 1212
+	dw 1300
+	dw 1380
+	dw 1446
+	dw 1516
+	dw 1580
+	dw 1642
+	times 100 dw 0	
+%endif

4klang_source/Go4kVSTi/source/GoSynth/Go4kVSTi.cpp

@@ -0,0 +1,131 @@
+#include <stdio.h>
+#include <windows.h>
+#ifndef __Go4kVSTi__
+#include "Go4kVSTi.h"
+#endif
+
+//-----------------------------------------------------------------------------------------
+// Go4kVSTi
+//-----------------------------------------------------------------------------------------
+
+//-----------------------------------------------------------------------------------------
+Go4kVSTi::Go4kVSTi (audioMasterCallback audioMaster) : AudioEffectX (audioMaster, 0, 0)
+{
+	if (audioMaster)
+	{
+		setNumInputs (0);				// no inputs
+		setNumOutputs (2);				// 2 outputs, stereo
+		canProcessReplacing ();
+		hasVu (false);
+		hasClip (false);
+		isSynth ();
+		setUniqueID ('4klg');
+	}
+	initProcess ();
+	suspend ();
+}
+
+//-----------------------------------------------------------------------------------------
+Go4kVSTi::~Go4kVSTi ()
+{
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::setProgram (long program)
+{
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::setProgramName (char *name)
+{
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::getProgramName (char *name)
+{
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::getParameterLabel (long index, char *label)
+{
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::getParameterDisplay (long index, char *text)
+{
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::getParameterName (long index, char *label)
+{
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::setParameter (long index, float value)
+{
+}
+
+//-----------------------------------------------------------------------------------------
+float Go4kVSTi::getParameter (long index)
+{
+	return 0;
+}
+
+//-----------------------------------------------------------------------------------------
+bool Go4kVSTi::getOutputProperties (long index, VstPinProperties* properties)
+{
+	if (index < 2)
+	{
+		sprintf (properties->label, "Vstx %1d", index + 1);
+		properties->flags = kVstPinIsActive;
+		properties->flags |= kVstPinIsStereo;	// test, make channel 1+2 stereo
+		return true;
+	}
+	return false;
+}
+
+//-----------------------------------------------------------------------------------------
+bool Go4kVSTi::getProgramNameIndexed (long category, long index, char* text)
+{
+	return false;
+}
+
+//-----------------------------------------------------------------------------------------
+bool Go4kVSTi::copyProgram (long destination)
+{
+	return false;
+}
+
+//-----------------------------------------------------------------------------------------
+bool Go4kVSTi::getEffectName (char* name)
+{
+	strcpy (name, "4klang");
+	return true;
+}
+
+//-----------------------------------------------------------------------------------------
+bool Go4kVSTi::getVendorString (char* text)
+{
+	strcpy (text, "Alcatraz");
+	return true;
+}
+
+//-----------------------------------------------------------------------------------------
+bool Go4kVSTi::getProductString (char* text)
+{
+	strcpy (text, "4klang");
+	return true;
+}
+
+//-----------------------------------------------------------------------------------------
+long Go4kVSTi::canDo (char* text)
+{
+	if (!strcmp (text, "receiveVstEvents"))
+		return 1;
+	if (!strcmp (text, "receiveVstMidiEvent"))
+		return 1;
+	if (!strcmp (text, "receiveVstTimeInfo"))
+		return 1;
+	return -1;	// explicitly can't do; 0 => don't know
+}
+

4klang_source/Go4kVSTi/source/GoSynth/Go4kVSTi.h

@@ -0,0 +1,51 @@
+#ifndef __Go4kVSTi__
+#define __Go4kVSTi__
+
+#include <string.h>
+#include <vector>
+
+#ifndef __AudioEffectX__
+#include "audioeffectx.h"
+#endif
+
+//------------------------------------------------------------------------------------------
+class Go4kVSTi : public AudioEffectX
+{
+public:
+	Go4kVSTi(audioMasterCallback audioMaster);
+	~Go4kVSTi();
+
+	virtual void process(float **inputs, float **outputs, long sampleframes);
+	virtual void processReplacing(float **inputs, float **outputs, long sampleframes);
+	void processAnyhow(float **inputs, float **outputs, long sampleFrames);
+	virtual long processEvents(VstEvents* events);
+
+	virtual void setProgram(long program);
+	virtual void setProgramName(char *name);
+	virtual void getProgramName(char *name);
+	virtual void setParameter(long index, float value);
+	virtual float getParameter(long index);
+	virtual void getParameterLabel(long index, char *label);
+	virtual void getParameterDisplay(long index, char *text);
+	virtual void getParameterName(long index, char *text);
+	virtual void setSampleRate(float sampleRate);
+	virtual void setBlockSize(long blockSize);
+	virtual void suspend();
+	virtual void resume();
+	virtual bool getOutputProperties (long index, VstPinProperties* properties);
+	virtual bool getProgramNameIndexed (long category, long index, char* text);
+	virtual bool copyProgram (long destination);
+	virtual bool getEffectName (char* name);
+	virtual bool getVendorString (char* text);
+	virtual bool getProductString (char* text);
+	virtual long getVendorVersion () {return 1;}
+	virtual long canDo (char* text);
+
+private:
+	void initProcess();
+	void ApplyEvent(VstMidiEvent *event);
+
+	std::vector<VstMidiEvent*> m_currentEvents;
+};
+
+#endif

4klang_source/Go4kVSTi/source/GoSynth/Go4kVSTiCore.h

@@ -0,0 +1,294 @@
+#include "windows.h"
+
+// init synth
+void Go4kVSTi_Init();
+
+// clear instrument slot
+void Go4kVSTi_ClearInstrumentSlot(char channel, int slot);
+// clear instrument workspace
+void Go4kVSTi_ClearInstrumentWorkspace(char channel);
+// clear global slot
+void Go4kVSTi_ClearGlobalSlot(int slot);
+// clear global workspace
+void Go4kVSTi_ClearGlobalWorkspace();
+
+// reset instrument to default values
+void Go4kVSTi_ResetInstrument(char channel);
+// reset global to default values
+void Go4kVSTi_ResetGlobal();
+// reset the synth to default values
+void Go4kVSTi_ResetPatch();
+
+// flip 2 neighbour instrument slots
+void Go4kVSTi_FlipInstrumentSlots(char channel, int a, int b);
+// flip 2 neighbour global slots
+void Go4kVSTi_FlipGlobalSlots(int a, int b);
+
+// init a slot with given type with default values
+void Go4kVSTi_InitSlot(BYTE* slot, int channel, int type);
+// init a instrument slot
+void Go4kVSTi_InitInstrumentSlot(char channel, int s, int type);
+// init a global slot
+void Go4kVSTi_InitGlobalSlot(int s, int type);
+
+// set global bpm
+void Go4kVSTi_SetBPM(float bpm);
+float Go4kVSTi_GetBPM();
+
+// activate solo mode
+void Go4kVSTi_Solo(int channel, int solo);
+// stream recording activation/deactivation
+void Go4kVSTi_Record(bool record, int patternsize, float patternquant);
+// panic
+void Go4kVSTi_Panic();
+// update dll times (e.g. sync to current bpm)
+void Go4kVSTi_UpdateDelayTimes();
+// clear delay lines
+void Go4kVSTi_ClearDelayLines();
+
+// one tick the whole synth pipeline. results are left and right output sample
+void Go4kVSTi_Tick(float *oleft, float *oright, int samples);
+// add a voice with given parameters to synth
+void Go4kVSTi_AddVoice(int channel, int note);
+// stop a voice with given parameters in synth
+void Go4kVSTi_StopVoice(int channel, int note);
+
+// load binary patch data
+void Go4kVSTi_LoadPatch(char *filename);
+// save binary patch data
+void Go4kVSTi_SavePatch(char *filename);
+// load instrumen data to specified channel
+void Go4kVSTi_LoadInstrument(char* filename, char channel);
+// save instrument data from current channel
+void Go4kVSTi_SaveInstrument(char* filename, char channel);
+// load unit data into specified slot
+void Go4kVSTi_LoadUnit(char* filename, BYTE* slot);
+// save unit date from specified slot
+void Go4kVSTi_SaveUnit(char* filename, BYTE* slot);
+
+#define EXPORT_OBJECT_FILE_
+void Go4kVSTi_SaveByteStream(HINSTANCE hInst, char* filename, int useenvlevels, int useenotevalues, int clipoutput, int undenormalize, int objformat, int output16);
+
+#define MAX_POLYPHONY		2
+#define MAX_INSTRUMENTS		16
+#define MAX_SLOT_VALUES		32
+
+#define MAX_SLOTS			32
+
+enum UnitID
+{
+	M_NONE = 0,
+	M_ENV,
+	M_VCO,
+	M_VCF,
+	M_DST,
+	M_DLL,
+	M_FOP,
+	M_FST,
+	M_PAN,
+	M_OUT,
+	M_ACC,
+	M_FLD,
+	NUM_MODULES
+};
+
+/////////////////////////////////////////////////////////////////////////////////////
+// value definitions
+/////////////////////////////////////////////////////////////////////////////////////
+
+
+#define ENV_STATE_ATTAC		0
+#define ENV_STATE_DECAY		1
+#define ENV_STATE_SUSTAIN	2
+#define ENV_STATE_RELEASE	3
+#define ENV_STATE_OFF		4
+
+typedef struct ENV_val
+{
+	BYTE	id;
+	BYTE	attac;
+	BYTE	decay;
+	BYTE	sustain;
+	BYTE	release;
+	BYTE	gain;
+// GUI STUFF
+} *ENV_valP;
+
+#define VCO_SINE		0x01
+#define VCO_TRISAW		0x02
+#define VCO_PULSE		0x04
+#define VCO_NOISE		0x08
+#define VCO_LFO			0x10
+#define VCO_GATE		0x20
+typedef struct VCO_val
+{
+	BYTE	id;
+	BYTE	transpose;
+	BYTE	detune;
+	BYTE	phaseofs;
+	BYTE	gate;
+	BYTE	color;
+	BYTE	shape;
+	BYTE	gain;
+	BYTE	flags;
+// GUI STUFF
+} *VCO_valP;
+
+typedef struct VCO11_val
+{
+	BYTE	id;
+	BYTE	transpose;
+	BYTE	detune;
+	BYTE	phaseofs;
+	BYTE	color;
+	BYTE	shape;
+	BYTE	gain;
+	BYTE	flags;
+// GUI STUFF
+} *VCO11_valP;
+
+#define VCF_LOWPASS		0x1
+#define VCF_HIGHPASS	0x2
+#define VCF_BANDPASS	0x4
+#define	VCF_BANDSTOP	0x3
+#define VCF_ALLPASS		0x7
+#define	VCF_PEAK		0x8
+typedef struct VCF_val
+{
+	BYTE	id;
+	BYTE	freq;
+	BYTE	res;
+	BYTE	type;
+// GUI STUFF
+} *VCF_valP;
+
+typedef struct DST_val
+{
+	BYTE	id;
+	BYTE	drive;
+	BYTE	snhfreq;
+// GUI STUFF
+} *DST_valP;
+
+typedef struct DLL_val
+{
+	BYTE	id;
+	BYTE	pregain;
+	BYTE	dry;
+	BYTE	feedback;
+	BYTE	damp;
+	BYTE	freq;
+	BYTE	depth;
+	BYTE	delay;
+	BYTE	count;
+// GUI STUFF
+	BYTE	guidelay;
+	BYTE	synctype;
+	BYTE	leftreverb;
+	BYTE	reverb;
+} *DLL_valP;
+
+typedef struct DLL10_val
+{
+	BYTE	id;
+	BYTE	pregain;
+	BYTE	dry;
+	BYTE	feedback;
+	BYTE	damp;
+	BYTE	delay;
+	BYTE	count;
+// GUI STUFF
+	BYTE	guidelay;
+	BYTE	synctype;
+	BYTE	leftreverb;
+	BYTE	reverb;
+} *DLL10_valP;
+
+#define FOP_POP			0x1
+#define FOP_ADDP		0x2
+#define FOP_MULP		0x3
+#define FOP_PUSH		0x4
+#define FOP_XCH			0x5
+#define FOP_ADD			0x6
+#define FOP_MUL			0x7
+#define FOP_ADDP2		0x8
+#define FOP_LOADNOTE	0x9
+typedef struct FOP_val
+{
+	BYTE	id;
+	BYTE	flags;
+} *FOP_valP;
+
+typedef struct FST_val
+{
+	BYTE	id;
+	BYTE	amount;
+	BYTE	dest;
+// GUI STUFF
+	char	dest_stack;
+	char	dest_unit;
+	char	dest_slot;
+	char	dest_id;
+} *FST_valP;
+
+typedef struct PAN_val
+{
+	BYTE	id;
+	BYTE	panning;
+// GUI STUFF
+} *PAN_valP;
+
+typedef struct OUT_val
+{
+	BYTE	id;
+	BYTE	gain;
+	BYTE	auxsend;
+// GUI STUFF
+} *OUT_valP;
+
+#define ACC_OUT				0
+#define	ACC_AUX				8
+typedef struct ACC_val
+{
+	BYTE	id;
+	BYTE	flags;
+} *ACC_valP;
+
+typedef struct FLD_val
+{
+	BYTE	id;
+	BYTE	value;
+// GUI STUFF
+} *FLD_valP;
+
+/////////////////////////////////////////////////////////////////////////////////////
+// workspace definitions
+/////////////////////////////////////////////////////////////////////////////////////
+
+typedef struct InstrumentWorkspace
+{
+	DWORD	release;
+	DWORD	note;
+	float	workspace[256];
+	float	dlloutl;
+	float	dlloutr;
+	float	outl;
+	float	outr;
+} *InstrumentWorkspaceP;
+
+typedef struct SynthObject
+{
+	DWORD Polyphony;
+	char InstrumentNames[MAX_INSTRUMENTS][64];
+	BYTE InstrumentValues[MAX_INSTRUMENTS][MAX_SLOTS][MAX_SLOT_VALUES];		// 16 instruments a 32 slots a 32 dowrds
+	BYTE GlobalValues[MAX_SLOTS][MAX_SLOT_VALUES];								// 32 slots a 32 dwords
+	InstrumentWorkspace InstrumentWork[MAX_INSTRUMENTS*MAX_POLYPHONY];
+	InstrumentWorkspace GlobalWork;
+	DWORD InstrumentSignalValid[MAX_INSTRUMENTS];
+	DWORD GlobalSignalValid;
+	float SignalTrace[MAX_INSTRUMENTS];
+	int ControlInstrument[MAX_INSTRUMENTS];
+	int VoiceIndex[MAX_INSTRUMENTS];
+} *SynthObjectP;
+
+SynthObjectP Go4kVSTi_GetSynthObject();

4klang_source/Go4kVSTi/source/GoSynth/Go4kVSTiGUI.h

@@ -0,0 +1,182 @@
+#include <windows.h>
+
+#define ButtonGroupChanged(btn_firstid, btn_lastid, test_id, seltab, result_index)	\
+{																					\
+	result_index = 0;																\
+	if (LOWORD(test_id) >= btn_firstid &&											\
+		LOWORD(test_id) <= btn_lastid)												\
+	{																				\
+		for (WORD bgci = btn_firstid; bgci <= btn_lastid; bgci++)					\
+		{																			\
+			if (LOWORD(test_id) == bgci)											\
+			{																		\
+				EnableWindow(GetDlgItem(ModuleWnd[seltab], bgci), false);			\
+				result_index = bgci;												\
+			}																		\
+			else																	\
+			{																		\
+				EnableWindow(GetDlgItem(ModuleWnd[seltab], bgci), true);			\
+			}																		\
+		}																			\
+	}																				\
+}							
+
+#define EnableButtonGroup(btn_firstid, btn_lastid, seltab, btn_show)				\
+{																					\
+	for (WORD bgci = btn_firstid; bgci <= btn_lastid; bgci++)						\
+	{																				\
+		EnableWindow(GetDlgItem(ModuleWnd[seltab], bgci), btn_show);				\
+	}																				\
+}		
+
+#define SetCheckboxGroupBitmask(btn_firstid, btn_lastid, seltab, input_bits)		\
+{																					\
+	WORD curbitsel = 0x0001;														\
+	for (WORD bgci = btn_firstid; bgci <= btn_lastid; bgci++,curbitsel*=2)			\
+	{																				\
+		SendDlgItemMessage(ModuleWnd[seltab], bgci, BM_SETCHECK, input_bits & curbitsel, 0);	\
+	}																				\
+}
+
+#define GetCheckboxGroupBitmask(btn_firstid, btn_lastid, test_id, seltab, result_bits, result_index)	\
+{																					\
+	result_index = 0;																\
+	result_bits = 0;																\
+	WORD curbitsel = 0x0001;														\
+	if (LOWORD(test_id) >= btn_firstid &&											\
+		LOWORD(test_id) <= btn_lastid)												\
+	{																				\
+		for (WORD bgci = btn_firstid; bgci <= btn_lastid; bgci++,curbitsel*=2)		\
+		{																			\
+			if (LOWORD(test_id) == bgci)											\
+			{																		\
+				result_index = bgci;												\
+			}																		\
+			if (SendDlgItemMessage(ModuleWnd[seltab], bgci, BM_GETCHECK, 0, 0)==BST_CHECKED)	\
+			{																		\
+				result_bits |= curbitsel;											\
+			}																		\
+			else																	\
+			{																		\
+				result_bits &= ~curbitsel;											\
+			}																		\
+		}																			\
+	}																				\
+}
+
+#define InitSlider(tab_id, slider_id, slider_low, slider_hi, slider_pos)						\
+{																								\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETRANGE, true, MAKELONG(slider_low, slider_hi)); \
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETPOS, true, slider_pos);						\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETLINESIZE, 0, 1);						\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETPAGESIZE, 0, 1);						\
+	sprintf(SliderValTxt, "%d", slider_pos);											\
+	SetWindowText(GetDlgItem(tab_id, slider_id ## _VAL), SliderValTxt);					\
+}
+
+#define InitSliderCenter(tab_id, slider_id, slider_low, slider_hi, slider_pos)						\
+{																								\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETRANGE, true, MAKELONG(slider_low, slider_hi)); \
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETPOS, true, slider_pos);						\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETLINESIZE, 0, 1);						\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETPAGESIZE, 0, 1);						\
+	sprintf(SliderValTxt, "%d", slider_pos-64);											\
+	SetWindowText(GetDlgItem(tab_id, slider_id ## _VAL), SliderValTxt);					\
+}
+
+#define InitSliderCenter2(tab_id, slider_id, slider_low, slider_hi, slider_pos)						\
+{																								\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETRANGE, true, MAKELONG(slider_low, slider_hi)); \
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETPOS, true, slider_pos);						\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETLINESIZE, 0, 1);						\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETPAGESIZE, 0, 1);						\
+	sprintf(SliderValTxt, "%d", (slider_pos-64)*2);											\
+	SetWindowText(GetDlgItem(tab_id, slider_id ## _VAL), SliderValTxt);					\
+}
+
+#define InitSliderNoGUI(tab_id, slider_id, slider_low, slider_hi, slider_pos)						\
+{																								\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETRANGE, true, MAKELONG(slider_low, slider_hi)); \
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETPOS, true, slider_pos);						\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETLINESIZE, 0, 1);						\
+	SendDlgItemMessage(tab_id, slider_id, TBM_SETPAGESIZE, 0, 1);						\
+}
+
+#define DisableButtonGroup(btn_firstid, btn_lastid, seltab)					\
+{																			\
+	for (WORD bgci = btn_firstid; bgci <= btn_lastid; bgci++)				\
+	{																		\
+		EnableWindow(GetDlgItem(ModuleWnd[seltab], bgci), true);			\
+	}																		\
+}			
+
+#define InterleavedButtonGroupChanged(btn_firstid, btn_count, test_id, result_index)\
+{																					\
+	result_index = -1;																\
+	if (((LOWORD(test_id)-btn_firstid) % 6) == 0)									\
+	{																				\
+		for (WORD bgci = 0; bgci < btn_count; bgci++)								\
+		{																			\
+			WORD ibtn = btn_firstid+bgci*6;											\
+			if (LOWORD(test_id) == ibtn)											\
+			{																		\
+				EnableWindow(GetDlgItem(TabWnd[SelectedTab], ibtn), false);			\
+				result_index = bgci;												\
+			}																		\
+			else																	\
+			{																		\
+				EnableWindow(GetDlgItem(TabWnd[SelectedTab], ibtn), true);			\
+			}																		\
+		}																			\
+	}																				\
+}							
+
+#define DisableInterleavedButtonGroup(btn_firstid, btn_count, seltab)		\
+{																			\
+	for (WORD bgci = 0; bgci < btn_count; bgci++)							\
+	{																		\
+		EnableWindow(GetDlgItem(TabWnd[seltab], btn_firstid+bgci*6), true);	\
+	}																		\
+}			
+
+#define UpdateSliderValue(usv_id, usv_v)													\
+{																							\
+	usv_v = SendMessage(GetDlgItem(ModuleWnd[uid], usv_id), TBM_GETPOS, 0, 0);				\
+	sprintf(SliderValTxt, "%d", usv_v);														\
+	SetWindowText(GetDlgItem(ModuleWnd[uid], usv_id ## _VAL), SliderValTxt);					\
+}		
+
+#define UpdateSliderValueCenter(usv_id, usv_v)													\
+{																							\
+	usv_v = SendMessage(GetDlgItem(ModuleWnd[uid], usv_id), TBM_GETPOS, 0, 0);				\
+	sprintf(SliderValTxt, "%d", usv_v-64);														\
+	SetWindowText(GetDlgItem(ModuleWnd[uid], usv_id ## _VAL), SliderValTxt);					\
+}
+
+#define UpdateSliderValueCenter2(usv_id, usv_v)													\
+{																							\
+	usv_v = SendMessage(GetDlgItem(ModuleWnd[uid], usv_id), TBM_GETPOS, 0, 0);				\
+	sprintf(SliderValTxt, "%d", (usv_v-64)*2);														\
+	SetWindowText(GetDlgItem(ModuleWnd[uid], usv_id ## _VAL), SliderValTxt);					\
+}
+
+void Go4kVSTiGUI_Create(HINSTANCE hInst);
+void Go4kVSTiGUI_Show(int showCommand);
+void Go4kVSTiGUI_Destroy();
+
+bool InitTabDlg();
+
+bool ButtonPressed(WPARAM id, LPARAM lParam);
+bool ScrollbarChanged(HWND hwndDlg, WPARAM wParam, LPARAM lParam);
+bool StackButtonPressed(WPARAM id);
+void TabChanged(int index);
+
+void UpdateSignalCount(int channel);
+void UpdateControls(int channel);
+void UpdateModuleParamWindow(int tab, int unit);
+void UpdateVoiceDisplay(int i);
+
+void GetStreamFileName();
+
+
+

4klang_source/Go4kVSTi/source/GoSynth/Go4kVSTimain.cpp

@@ -0,0 +1,60 @@
+#include <windows.h>
+#include <stddef.h>
+#include "Go4kVSTi.h"
+#include "Go4kVSTiGUI.h"
+
+static AudioEffect *effect = 0;
+bool oome = false;
+
+//------------------------------------------------------------------------
+// prototype of the export function main
+int main (audioMasterCallback audioMaster);
+
+int main (audioMasterCallback audioMaster)
+{
+	// get vst version
+	if(!audioMaster (0, audioMasterVersion, 0, 0, 0, 0))
+		return 0;  // old version
+
+	effect = new Go4kVSTi (audioMaster);
+	if (!effect)
+		return 0;
+	if (oome)
+	{
+		delete effect;
+		return 0;
+	}
+	return (int)effect->getAeffect();
+}
+
+void* hInstance;
+BOOL WINAPI DllMain (HINSTANCE hInst, DWORD dwReason, LPVOID lpvReserved)
+{
+	switch (dwReason)
+	{
+		// wird aufgerufen, wenn zum ersten mal das plugin aktiviert wird
+		// also hier init für den synth
+		case DLL_PROCESS_ATTACH:
+            //MessageBox(NULL, "DLL_PROCESS_ATTACH", "DllMain", MB_OK);
+			Go4kVSTiGUI_Create(hInst);
+			Go4kVSTiGUI_Show(SW_SHOW);
+			break;
+		// wird aufgerufen, wenn das plugin nicht mehr verwendet wird
+		// entweder bei entfernen des letzten, schliessen des songs oder
+		// des programms. Also hier Deinit und zerstörung des Synths
+		case DLL_PROCESS_DETACH:
+			//MessageBox(NULL, "DLL_PROCESS_DETACH", "DllMain", MB_OK);
+			Go4kVSTiGUI_Destroy();
+			effect = 0;			
+			break;
+		// die beiden brauchts wohl nicht
+		case DLL_THREAD_ATTACH:
+			//MessageBox(NULL, "DLL_THREAD_ATTACH", "DllMain", MB_OK);
+			break;
+		case DLL_THREAD_DETACH:
+			//MessageBox(NULL, "DLL_THREAD_DETACH", "DllMain", MB_OK);
+			break;
+	}
+	hInstance = hInst;
+	return 1;
+}

4klang_source/Go4kVSTi/source/GoSynth/Go4kVSTiproc.cpp

@@ -0,0 +1,158 @@
+#ifndef __Go4kVSTi__
+#include "Go4kVSTi.h"
+#include "Go4kVSTiCore.h"
+#include "stdio.h"
+#endif
+
+#include "math.h"
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::setSampleRate (float sampleRate)
+{
+	AudioEffectX::setSampleRate (sampleRate);
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::setBlockSize (long blockSize)
+{
+	AudioEffectX::setBlockSize (blockSize);
+	// you may need to have to do something here...
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::suspend ()
+{
+	m_currentEvents.clear();
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::resume ()
+{
+	wantEvents ();
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::initProcess ()
+{
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::process (float **inputs, float **outputs, long sampleFrames)
+{
+	processAnyhow(inputs, outputs, sampleFrames);	
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::processReplacing (float **inputs, float **outputs, long sampleFrames)
+{
+	processAnyhow(inputs, outputs, sampleFrames);
+}
+
+void Go4kVSTi::processAnyhow(float **inputs, float **outputs, long sampleFrames)
+{
+	float* outl = outputs[0];
+	float* outr = outputs[1];
+	static int bpmCheck = 0;
+	if ( bpmCheck <= 0 )
+	{
+		VstTimeInfo* myTime = getTimeInfo ( kVstTempoValid );
+		Go4kVSTi_SetBPM(myTime->tempo);
+		bpmCheck = 20; // only check every 20th call of this function (bpm shouldnt change that often)
+    }
+	bpmCheck--;
+
+	int start = 0;
+	// midi events will occur this frame, so render partially
+	if (m_currentEvents.size() > 0)
+	{		
+		// for all events
+        for (unsigned int i = 0; i < m_currentEvents.size(); i++)
+		{
+			// process samples until next event
+			int todo = m_currentEvents[i]->deltaFrames - start;
+			Go4kVSTi_Tick(outl+start, outr+start, todo);
+			start = m_currentEvents[i]->deltaFrames;
+			// apply changes due to event
+			ApplyEvent(m_currentEvents[i]);
+		}
+	}
+	Go4kVSTi_Tick(outl+start, outr+start, sampleFrames - start);
+
+	// clear event list (old event pointer wont be valid next frame anyway)
+	m_currentEvents.clear();
+}
+
+//-----------------------------------------------------------------------------------------
+long Go4kVSTi::processEvents(VstEvents* ev)
+{
+	for (long i = 0; i < ev->numEvents; i++)
+	{
+		if ((ev->events[i])->type != kVstMidiType)
+			continue;
+		VstMidiEvent* event = (VstMidiEvent*)ev->events[i];
+		m_currentEvents.push_back(event);
+	} 
+	return 1;	// want more
+}
+
+//-----------------------------------------------------------------------------------------
+void Go4kVSTi::ApplyEvent(VstMidiEvent *event)
+{
+	char* midiData = event->midiData;
+	byte status = midiData[0] & 0xf0;		// status
+	byte channel = midiData[0] & 0x0f;		// channel
+
+	// note on/off events
+	if (status == 0x90 || status == 0x80)
+	{
+		byte note = midiData[1] & 0x7f;
+		byte velocity = midiData[2] & 0x7f;
+		if (status == 0x80)
+			velocity = 0;
+		// note off
+		if (!velocity)
+		{
+			Go4kVSTi_StopVoice(channel, note);
+		}
+		// note on	
+		else
+		{
+			Go4kVSTi_AddVoice(channel, note);
+		}
+	}
+/*	// polyphonic aftertouch
+	else if (status == 0xA)
+	{
+		byte note = midiData[1] & 0x7f;
+		byte pressure = midiData[2] & 0x7f;
+		Go4kVSTi_PolyAftertouch(channel, note, pressure);
+	}
+	// channel aftertouch
+	else if (status == 0xD)
+	{
+		byte pressure = midiData[1] & 0x7f;
+		Go4kVSTi_ChannelAftertouch(channel, pressure);
+	}
+	// Controller Change
+	else if (status == 0xB0)
+	{
+		byte number = midiData[1] & 0x7f;
+		byte value = midiData[2] & 0x7f;
+//		Go4kVSTi_ControllerChange(channel, number, value, event->deltaFrames);
+	}
+	// Pitch Bend
+	else if (status == 0xE0)
+	{
+		byte lsb = midiData[1] & 0x7f;
+		byte msb = midiData[2] & 0x7f;
+		int value = (((int)(msb)) << 7) + lsb;
+//		Go4kVSTi_PitchBend(channel, value); // 0 - 16383, center 8192
+		// dont use full precision for the sake of equally sized streams
+//		Go4kVSTi_PitchBend(channel, value >> 7, event->deltaFrames); // 0 - 127, center 64
+	}*/
+	// all notes off (dont seem to come anyway
+	else if (status == 0xb0 && midiData[1] == 0x7e)	// all notes off
+	{
+		Go4kVSTi_StopVoice(channel, 0);
+	}		
+}

4klang_source/Go4kVSTi/source/common/AEffEditor.hpp

@@ -0,0 +1,44 @@
+#ifndef __AEffEditor__
+#define __AEffEditor__
+
+class AudioEffect;
+
+struct ERect
+{
+	short top;
+	short left;
+	short bottom;
+	short right;
+};
+
+class AEffEditor
+{
+public:
+	AEffEditor (AudioEffect *effect) {this->effect = effect; updateFlag = 0; }
+	virtual ~AEffEditor() {}
+
+	virtual long getRect(ERect **rect) {*rect = 0; return 0;}
+	virtual long open(void *ptr) {systemWindow = ptr; return 0;}
+	virtual void close() {}
+	virtual void idle() { if(updateFlag) {updateFlag = 0; update();} }
+	
+#if MAC
+	virtual void draw(ERect *rect) {rect = rect;}
+	virtual long mouse(long x, long y) {x = x; y = y; return 0;}
+	virtual long key(long keyCode) {keyCode = keyCode; return 0;}
+	virtual void top() {}
+	virtual void sleep() {}
+#endif
+	virtual void update() {}
+	virtual void postUpdate() {updateFlag = 1;}
+	
+protected:
+	AEffEditor () {};
+
+	AudioEffect *effect;
+	void *systemWindow;
+	long updateFlag;
+};
+
+#endif
+