Nutso distortion patch for electronic sounds

Algorithm development and general DSP issues

Moderator: frank

Post Reply
Digital Larry
Posts: 338
Joined: Mon Nov 12, 2012 1:12 pm
Contact:

Nutso distortion patch for electronic sounds

Post by Digital Larry »

This one splits the input signal into 3 bands with a state variable filter.

The low goes to a ring modulator with an LFO controlling the carrier.

The mid goes to an octave fuzz which goes to a flanger.

The highs go to a cube gain followed by an aliaser which is also being controlled by the same LFO as the ring modulator, but 90 degrees out of phase.

These are all mixed together to mono out.

POT0 = ringmod/aliaser LFO speed
POT1 = ringmod/aliaser LFO depth
POT2 = octave fuzz flange depth (this one might be a bit subtle)

Code: Select all

;  Program: Render Block exported from SpinCAD Designer
;------ Input
;------ SVF 2P
SOF 0.0000000000,0.0000000000
RDAX ADCL,1.0000000000
RDAX REG2,-1.0000000000
RDAX REG1,-0.0384615385
WRAX REG0,0.0753549996
RDAX REG1,1.0000000000
WRAX REG1,0.0753549996
RDAX REG2,1.0000000000
WRAX REG2,0.0753549996
;------ Pot 2
;------ Octave
RDAX REG1,1.0000000000
ABSA
WRAX REG3,0.0000000000
;------ Pot 0
;------ Cube gain
RDAX REG0,1.0000000000
WRAX REG4,-0.9333300000
MULX REG4
MULX REG4
RDAX REG4,1.0000000000
SOF 1.5000000000,0.0000000000
WRAX REG5,0.0000000000
;------ Pot 1
;------ LFO 0
SKP RUN ,1
WLDS 0,19,15855
RDAX POT0,0.0371819961
WRAX SIN0_RATE,0.0000000000
RDAX POT1,0.4838709677
WRAX SIN0_RANGE,0.0000000000
CHO RDAL,0
WRAX REG6,0.0000000000
CHO RDAL,8
WRAX REG7,0.0000000000
;------ Ring Mod
SKP RUN ,3
WRAX REG8,0.0000000000
SOF 0.0000000000,-1.0000000000
WRAX REG9,0.0000000000
RDAX REG8,0.1000000000
MULX REG6
RDAX REG9,1.0000000000
WRAX REG9,-0.1000000000
MULX REG6
RDAX REG8,1.0000000000
WRAX REG8,1.0000000000
MULX REG2
WRAX REG10,0.0000000000
;------ LFO 1
SKP RUN ,1
WLDS 1,16,30829
RDAX POT2,0.9408551286
WRAX SIN1_RANGE,0.0000000000
CHO RDAL,1
WRAX REG11,0.0000000000
CHO RDAL,9
WRAX REG12,0.0000000000
;------ Scale/Offset
RDAX REG11,1.0000000000
SOF 0.4800000000,0.5200000000
WRAX REG13,0.0000000000
;------ Servo Delay
RDAX REG3,1.0000000000
WRA 0,0.0
CLR
OR $007FFF00
MULX REG13
RDFX REG15,0.0012500000
WRAX REG15,1.0000000000
SOF 0.0029907227,0.0000305176
WRAX ADDR_PTR,0.0000000000
RMPA 1.0
WRAX REG14,0.0000000000
;------ Mixer 2-1
RDAX REG3,0.5000000000
WRAX REG16,0.0000000000
RDAX REG14,0.5000000000
RDAX REG16,1.0000000000
WRAX REG16,0.0000000000
;------ Scale/Offset
RDAX REG7,1.0000000000
SOF 0.2900000000,0.3900000000
WRAX REG17,0.0000000000
;------ Aliaser
RDAX REG18,1.0000000000
SOF 1.0000000000,-0.0150000000
SKP GEZ,4
RDAX REG5,0.5000000000
WRAX 51,0.0000000000
RDAX REG17,0.6000000000
SOF 1.0000000000,0.0000000000
WRAX REG18,0.0000000000
;------ Mixer 3-1
RDAX REG10,0.3333333333
WRAX 52,0.0000000000
RDAX REG16,0.3333333333
RDAX 52,1.0000000000
WRAX 52,0.0000000000
RDAX 51,0.3333333333
RDAX 52,1.0000000000
WRAX 52,0.0000000000
;------ Output
RDAX 52,1.0000000000
WRAX DACL,0.0000000000
RDAX 52,1.0000000000
WRAX DACR,0.0000000000
slacker
Posts: 116
Joined: Tue Feb 01, 2011 1:13 pm

Post by slacker »

Very weird in a good way :twisted:
Post Reply