phaser problem

Algorithm development and general DSP issues

Moderator: frank

Post Reply
musicvoice
Posts: 10
Joined: Mon Jun 27, 2011 4:11 pm

phaser problem

Post by musicvoice »

my problem
ı want smallstone elektroharmonix tone.
sample
http://www.effectsdatabase.com/model/eh/smallstone
click please-------- vintage Electro Harmonix Small Stone phaser (simplexiammine)
please help me.
ı want pot 0- reverb ------ pot 1 color(smallstone) -----pot 2 rate (small stone)
thank you very much.

I expect the code


my phaser kod :
;GA_DEMO Phase shifter

;Pot0 = Reverb level
;Pot1 = Phase rate
;pot2 = Sweep width

;memory declarations:

;register equates:

equ mono reg0
equ apout reg1
equ lp1 reg2
equ lp2 reg3
equ revout reg4
equ phase reg5
equ pout reg6
equ p1 reg7
equ p2 reg8
equ p3 reg9
equ p4 reg10
equ p5 reg11
equ p6 reg12
equ p7 reg13
equ p8 reg14
equ p9 reg20
equ p10 reg21
equ p11 reg22
equ p12 reg23
equ temp reg15
equ temp1 reg16
equ bypass reg17

;declare constants:


;clear registers and initialize LFOs:

skp run,endclr
wrax lp1,0
wrax lp2,0

wlds sin1,0,32767
endclr:

;sum inputs to mono:

rdax adcl,0.5
rdax adcr,0.5
wrax mono,0

;do reverb and put result in revout (after pot0 control):


;smooth reverb:

;Do phase shifter from sin1:

rdax pot2,1
rdax bypass,0.9
wrax bypass,0

rdax pot1,1
mulx pot1
sof 0.2,0.02
wrax sin1_rate,0

cho rdal,sin1 ;read sin1 as +/-1
sof 0.5,0.5 ;make positive only sin ranges 0 to 1
log 0.5,0
exp 1,0 ;square root function
sof 1,-0.5 ;make +/-0.5
sof 1.999,0 ;make +/-1 again
mulx pot2 ;pot2 controls width and mix
sof 0.1,0.85
wrax phase,0 ;phase variable ranges 0.8 to 0.95

rdax p1,1
wrax temp,1
mulx phase
rdax mono,1/64 ;input to phase shift network
wrax p1,-1
mulx phase
rdax temp,1
wrax temp1,0

rdax p2,1
wrax temp,1
mulx phase
rdax temp1,1
wrax p2,-1
mulx phase
rdax temp,1
wrax temp1,0

rdax p3,1
wrax temp,1
mulx phase
rdax temp1,1
wrax p3,-1
mulx phase
rdax temp,1
wrax temp1,0

rdax p4,1
wrax temp,1
mulx phase
rdax temp1,1
wrax p4,-1
mulx phase
rdax temp,1
wrax temp1,0

rdax p5,1
wrax temp,1
mulx phase
rdax temp1,1
wrax p5,-1
mulx phase
rdax temp,1
wrax temp1,0

rdax p6,1
wrax temp,1
mulx phase
rdax temp1,1
wrax p6,-1
mulx phase
rdax temp,1
wrax temp1,0

rdax p7,1
wrax temp,1
mulx phase
rdax temp1,1
wrax p7,-1
mulx phase
rdax temp,1
wrax temp1,0

rdax p8,1
wrax temp,1
mulx phase
rdax temp1,1
wrax p8,-1
mulx phase
rdax temp,1
wrax temp1,0

rdax p9,1
wrax temp,1
mulx phase
rdax temp1,1
wrax p9,-1
mulx phase
rdax temp,1

rdax p10,1
wrax temp,1
mulx phase
rdax temp1,1
wrax p10,-1
mulx phase
rdax temp,1




sof -2,0
sof -2,0
sof -2,0
sof -2,0
sof -2,0
sof -2,0 ;output of phase shifter in acc

mulx bypass
rdax mono,1
wrax pout,1

sof 1,0.02
wrax dacl,1

wrax dacr,0

but I would like to tone smallstone
please help me
thank you very much
Hides-His-Eyes
Posts: 5
Joined: Thu Jun 16, 2011 1:54 pm
Location: UK

Post by Hides-His-Eyes »

If it has to sound exactly like a small stone you're gonna have to build a small stone using CA3094s. You can build a phaser using DSP; probably a "perfect" phaser by some descriptions; but when it comes to modelling one specific unit with their inadequacies and nonlinearities I think you're barking up the wrong tree.
Alex MAK
Posts: 89
Joined: Fri Nov 05, 2010 1:00 pm

Post by Alex MAK »

Delaunay disadvantages of simulated models. The task of the developer, in the first place, to simulate the LFO
Post Reply