sccode = """
SynthDef.new(\\bphase, {
	|bus = 0, freq = 0, fmod=0, atk = 0.02, amp=1, sus = 1, rel = 0.3, pan = 0, pmindex=2|
	var osc, env, osc1, osc2;
	freq = In.kr(bus, 1);
	freq = [freq, freq+fmod];
	osc1 = PMOsc;
	osc2 = SinOsc;
	env = EnvGen.ar(Env.linen(atk, sus, rel, curve: \\lin), doneAction:0);
	osc = osc1.ar(osc2.kr(0.1,freq), freq/2 + osc2.kr(freq * 0.6, pi), pmindex, osc1.ar(4,2,1,0,osc1.kr(freq*0.02, 2, 1)), osc2.kr(0.1));
	osc = Mix.ar(osc * env) * amp * 0.1;
	osc = Pan2.ar(osc,pan);
	ReplaceOut.ar(bus,osc)
},
metadata: (
	credit: "Credit",
	modified_by: "Modifier",
	decription: "Description",
	category: \\category,
	tags: [\\tag, \\tag]
)).add;
"""

synth = SCInstrument(
    shortname="bphase",
    fullname="Bphase",
    description="Bphase synth",
    code=sccode,
    arguments={}
)