Browse Source

Update cabbage examples

tags/2018-04-16
falkTX 10 years ago
parent
commit
7c3feee55f
14 changed files with 76 additions and 76 deletions
  1. +7
    -7
      bin/cabbage/Effects/EnvelopeFollower.csd
  2. +10
    -10
      bin/cabbage/Effects/FrequencyShifter.csd
  3. +3
    -3
      bin/cabbage/Effects/LoFi.csd
  4. +10
    -10
      bin/cabbage/Effects/Phaser.csd
  5. +5
    -5
      bin/cabbage/Effects/PingPongDelay.csd
  6. +2
    -2
      bin/cabbage/Effects/Powershape.csd
  7. +3
    -3
      bin/cabbage/Effects/RingModulator.csd
  8. +4
    -4
      bin/cabbage/Effects/StereoChorus.csd
  9. +9
    -9
      bin/cabbage/Effects/pvScale.csd
  10. +6
    -6
      bin/cabbage/Effects/pvSmooth.csd
  11. +4
    -4
      bin/cabbage/Effects/pvsBlur.csd
  12. +8
    -8
      bin/cabbage/Effects/pvsBuffer.csd
  13. +2
    -2
      bin/cabbage/Synths/WhiteNoise.csd
  14. +3
    -3
      bin/cabbage/Synths/bassline.csd

+ 7
- 7
bin/cabbage/Effects/EnvelopeFollower.csd View File

@@ -6,13 +6,13 @@ checkbox bounds(15, 55, 15, 15), channel("lev2"), value(0), colour(250,190,0,255
checkbox bounds(15, 40, 15, 15), channel("lev3"), value(0), colour(255,120,0,255),shape("ellipse")
checkbox bounds(15, 25, 15, 15), channel("lev4"), value(0), colour(255, 60,0,255),shape("ellipse")
checkbox bounds(15, 10, 15, 15), channel("lev5"), value(0), colour(255, 0,0,255),shape("ellipse")
rslider bounds( 40, 11, 75, 75), text("Sensitivity"), channel("sens"), range(0, 1, 0.65), colour(255,100,100), fontcolour(255,255,200)
rslider bounds(110, 6, 45, 45), text("Att."), channel("att"), range(0.001, 0.5, 0.01, 0.5, 0.001), colour(255,200,100), fontcolour(255,255,200)
rslider bounds(110, 51, 45, 45), text("Dec."), channel("rel"), range(0.001, 0.5, 0.2, 0.5, 0.001), colour(255,200,100), fontcolour(255,255,200)
rslider bounds(150, 11, 75, 75), text("Frequency"), channel("freq"), range(10, 10000, 1000, 0.5), colour(255,100,100), fontcolour(255,255,200)
rslider bounds(220, 11, 75, 75), text("Resonance"), channel("res"), range(0, 1, 0.75), colour(255,100,100), fontcolour(255,255,200)
rslider bounds(290, 11, 75, 75), text("Distortion"), channel("dist"), range(0, 1.00, 0), colour(255,100,100), fontcolour(255,255,200)
rslider bounds(360, 11, 75, 75), text("Level"), channel("level"), range(0, 1.00, 1), colour(255,200,100), fontcolour(255,255,200)
rslider bounds( 40, 11, 75, 75), text("Sensitivity"), channel("sens"), range(0, 1, 0.65), colour(255,100,100), fontcolour(255,255,200), trackercolour(255,255,150)
rslider bounds(110, 6, 45, 45), text("Att."), channel("att"), range(0.001, 0.5, 0.01, 0.5, 0.001), colour(255,200,100), fontcolour(255,255,200), trackercolour(255,255,150)
rslider bounds(110, 51, 45, 45), text("Dec."), channel("rel"), range(0.001, 0.5, 0.2, 0.5, 0.001), colour(255,200,100), fontcolour(255,255,200), trackercolour(255,255,150)
rslider bounds(150, 11, 75, 75), text("Frequency"), channel("freq"), range(10, 10000, 1000, 0.5), colour(255,100,100), fontcolour(255,255,200), trackercolour(255,255,150)
rslider bounds(220, 11, 75, 75), text("Resonance"), channel("res"), range(0, 1, 0.75), colour(255,100,100), fontcolour(255,255,200), trackercolour(255,255,150)
rslider bounds(290, 11, 75, 75), text("Distortion"), channel("dist"), range(0, 1.00, 0), colour(255,100,100), fontcolour(255,255,200), trackercolour(255,255,150)
rslider bounds(360, 11, 75, 75), text("Level"), channel("level"), range(0, 1.00, 1), colour(255,200,100), fontcolour(255,255,200), trackercolour(255,255,150)
}
</Cabbage>
<CsoundSynthesizer>


+ 10
- 10
bin/cabbage/Effects/FrequencyShifter.csd View File

@@ -26,17 +26,17 @@


<Cabbage>
form caption("Time Domain Frequency Shifter") size(500,180), pluginID("fshi")
form caption("Frequency Shifter (time domain)") size(500,180), pluginID("fshi")
image bounds( 0, 0, 500,180), colour("darkslategrey"), outline("silver"), line(6), shape("rounded")
label bounds(22, 7, 60, 11), text("INPUT"), fontcolour("white")
combobox bounds(10, 18, 65, 20), channel("input"), value(1), text("Live","Tone","Noise")
label bounds(14, 42, 60, 11), text("POLARITY"), fontcolour("white")
combobox bounds(10, 53, 65, 20), channel("polarity"), value(1), text("Positive","Negative","Dual")
rslider bounds( 75, 10, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 0.5), colour("darkslategrey"), fontcolour("white), tracker("yellow")
rslider bounds(145, 10, 70, 70), text("Freq."), channel("freq"), range(-4000, 4000, -50), colour("darkslategrey"), fontcolour("white), tracker("yellow")
rslider bounds(215, 10, 70, 70), text("Mult."), channel("mult"), range(-1, 1.00, 0.1), colour("darkslategrey"), fontcolour("white), tracker("yellow")
rslider bounds(285, 10, 70, 70), text("Feedback"), channel("fback"), range(0, 0.75, 0.6), colour("darkslategrey"), fontcolour("white), tracker("yellow")
rslider bounds(355, 10, 70, 70), text("Level"), channel("level"), range(0, 1.00, 1), colour("darkslategrey"), fontcolour("white), tracker("yellow")
rslider bounds( 75, 10, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 0.5), colour("darkslategrey"), fontcolour("white), trackercolour("yellow")
rslider bounds(145, 10, 70, 70), text("Freq."), channel("freq"), range(-4000, 4000, -50), colour("darkslategrey"), fontcolour("white), trackercolour("yellow")
rslider bounds(215, 10, 70, 70), text("Mult."), channel("mult"), range(-1, 1.00, 0.1), colour("darkslategrey"), fontcolour("white), trackercolour("yellow")
rslider bounds(285, 10, 70, 70), text("Feedback"), channel("fback"), range(0, 0.75, 0.6), colour("darkslategrey"), fontcolour("white), trackercolour("yellow")
rslider bounds(355, 10, 70, 70), text("Level"), channel("level"), range(0, 1.00, 1), colour("darkslategrey"), fontcolour("white), trackercolour("yellow")

checkbox bounds(425, 20, 12, 12), channel("r1") fontcolour("white") colour(yellow) value(1)
checkbox bounds(425, 32, 12, 12), channel("r2") fontcolour("white") colour(yellow)
@@ -49,10 +49,10 @@ line bounds( 10, 90, 480, 2), colour("Grey")
checkbox bounds( 10,100,150, 20), channel("ModOnOff") text("LFO Modulate Freq."), fontcolour("white") colour(lime) value(0)
label bounds( 30,127, 75, 11), text("SHAPE"), fontcolour("white")
combobox bounds( 10,138, 85, 20), channel("LFOShape"), value(7), text("Sine","Triangle","Square","Saw Up","Saw Down","Rand.S&H","Rand.Spline")
rslider bounds( 145,100, 70, 70), text("Rate"), channel("LFORate"), range(0, 30, 1.5, 0.5, 0.001), colour("lightslategrey"), fontcolour("white), tracker("yellow")
rslider bounds( 215,100, 70, 70), text("Min"), channel("LFOMin"), range(-2000, 2000, -600), colour("lightslategrey"), fontcolour("white), tracker("yellow")
rslider bounds( 285,100, 70, 70), text("Max"), channel("LFOMax"), range(-2000, 2000, 600), colour("lightslategrey"), fontcolour("white), tracker("yellow")
rslider bounds( 355,100, 70, 70), text("Pan Mod."), channel("PanSpread"),range(0, 1.00, 1), colour("lightslategrey"), fontcolour("white), tracker("yellow")
rslider bounds( 145,100, 70, 70), text("Rate"), channel("LFORate"), range(0, 30, 1.5, 0.5, 0.001), colour("lightslategrey"), fontcolour("white), trackercolour("yellow")
rslider bounds( 215,100, 70, 70), text("Min"), channel("LFOMin"), range(-2000, 2000, -600), colour("lightslategrey"), fontcolour("white), trackercolour("yellow")
rslider bounds( 285,100, 70, 70), text("Max"), channel("LFOMax"), range(-2000, 2000, 600), colour("lightslategrey"), fontcolour("white), trackercolour("yellow")
rslider bounds( 355,100, 70, 70), text("Pan Mod."), channel("PanSpread"),range(0, 1.00, 1), colour("lightslategrey"), fontcolour("white), trackercolour("yellow")
button bounds(425,100, 65, 20), colour("Green"), text("Sync LFO", "Sync LFO"), channel("SyncLFO"), value(0)

</Cabbage>


+ 3
- 3
bin/cabbage/Effects/LoFi.csd View File

@@ -7,9 +7,9 @@ image pos( 80, 20), size(300,300), colour( 0, 0,255,0), shape("ellipse"), outl
image pos(120, 30), size(300,300), colour( 0,255,255,0), shape("ellipse"), outline( 0,255,255, 50), line(70)
image pos(160, 40), size(300,300), colour(255,255, 0,0), shape("ellipse"), outline(255,255, 0, 50), line(70)
image pos(0, 0), size(230, 120), colour("Chocolate"), shape("rounded"), outline("white"), line(5)
rslider bounds( 5, 31, 80, 80), text("Bits"), channel("bits"), range(1, 16, 16), fontcolour("White"),colour("orange"), tracker("brown")
rslider bounds( 75, 7, 80, 80), text("Foldover"), channel("fold"), range(1, 1024, 0, 0.25), fontcolour("White"),colour("orange"), tracker("brown")
rslider bounds(145, 31, 80, 80), text("Level"), channel("level"), range(0, 1.00, 1), fontcolour("White"),colour("orange"), tracker("brown")
rslider bounds( 5, 31, 80, 80), text("Bits"), channel("bits"), range(1, 16, 16), fontcolour("White"),colour("orange"), trackercolour("brown")
rslider bounds( 75, 7, 80, 80), text("Foldover"), channel("fold"), range(1, 1024, 0, 0.25), fontcolour("White"),colour("orange"), trackercolour("brown")
rslider bounds(145, 31, 80, 80), text("Level"), channel("level"), range(0, 1.00, 1), fontcolour("White"),colour("orange"), trackercolour("brown")
}
</Cabbage>
<CsoundSynthesizer>


+ 10
- 10
bin/cabbage/Effects/Phaser.csd View File

@@ -5,13 +5,13 @@ label bounds(29, 8, 60, 10), text("INPUT"), fontcolour(0,10,30)
combobox bounds(10, 18, 70, 20), channel("input"), value(1), text("Live","Tone","Noise")
label bounds(19, 43, 60, 10), text("LFO SHAPE"), fontcolour(0,10,30)
combobox bounds(10, 53, 70, 20), channel("shape"), value(1), text("Triangle","Sine","Square","Saw","Saw","Rand.Int","Rand.S&H")
rslider bounds( 85, 10, 70, 70), text("Rate"), channel("rate"), range(0,14.00,0.5,0.5, 0.0001), colour(100,100,110), fontcolour(0,10,30), tracker(255,255,200), midiCtrl(1,1)
rslider bounds(155, 10, 70, 70), text("Depth"), channel("depth"), range(0, 1.00, 0.5, 1, .01), colour(100,100,110), fontcolour(0,10,30), tracker(255,255,200)
rslider bounds(225, 10, 70, 70), text("Freq."), channel("freq"), range(0, 1.00, 0.4, 1, .01), colour(100,100,110), fontcolour(0,10,30), tracker(255,255,200)
rslider bounds(295, 10, 70, 70), text("Feedback"), channel("fback"), range(0, 1.00, 0.4, 1, .01), colour(100,100,110), fontcolour(0,10,30), tracker(255,255,200)
rslider bounds(365, 10, 70, 70), text("Stages"), channel("stages"), range(1, 64,8, 1, 1), colour(100,100,110), fontcolour(0,10,30), tracker(255,255,200)
rslider bounds(435, 10, 70, 70), text("Mix"), channel("mix"), range(0, 1.00,0.5, 1, .01), colour(100,100,110), fontcolour(0,10,30), tracker(255,255,200)
rslider bounds(505, 10, 70, 70), text("Level"), channel("level"), range(0, 1.00, 1, 1, .01), colour(100,100,110), fontcolour(0,10,30), tracker(255,255,200)
rslider bounds( 85, 10, 70, 70), text("Rate"), channel("rate"), range(0,14.00,0.5,0.5, 0.0001), colour(100,100,110), fontcolour(0,10,30), trackercolour(255,255,200), midiCtrl(1,1)
rslider bounds(155, 10, 70, 70), text("Depth"), channel("depth"), range(0, 1.00, 0.5, 1, .01), colour(100,100,110), fontcolour(0,10,30), trackercolour(255,255,200)
rslider bounds(225, 10, 70, 70), text("Freq."), channel("freq"), range(0, 1.00, 0.4, 1, .01), colour(100,100,110), fontcolour(0,10,30), trackercolour(255,255,200)
rslider bounds(295, 10, 70, 70), text("Feedback"), channel("fback"), range(0, 1.00, 0.4, 1, .01), colour(100,100,110), fontcolour(0,10,30), trackercolour(255,255,200)
rslider bounds(365, 10, 70, 70), text("Stages"), channel("stages"), range(1, 64,8, 1, 1), colour(100,100,110), fontcolour(0,10,30), trackercolour(255,255,200)
rslider bounds(435, 10, 70, 70), text("Mix"), channel("mix"), range(0, 1.00,0.5, 1, .01), colour(100,100,110), fontcolour(0,10,30), trackercolour(255,255,200)
rslider bounds(505, 10, 70, 70), text("Level"), channel("level"), range(0, 1.00, 1, 1, .01), colour(100,100,110), fontcolour(0,10,30), trackercolour(255,255,200)
</Cabbage>

<CsoundSynthesizer>
@@ -90,11 +90,11 @@ kinput chnget "input"
if kinput=1 then
a1,a2 ins
elseif kinput=2 then
a1 vco2 0.2,200
a1 vco2 0.1,200
a2 = a1
else
a1 pinkish 0.2
a2 pinkish 0.2
a1 pinkish 0.1
a2 pinkish 0.1
endif

ktrig changed kshape,kstages ; reinitialise for i-rate parms


+ 5
- 5
bin/cabbage/Effects/PingPongDelay.csd View File

@@ -1,11 +1,11 @@
<Cabbage>
form caption("Ping Pong Delay") size(350, 90), pluginID("ppdl")
image bounds(0, 0,350, 90), colour("Maroon"), shape("rounded"), outline("white"), line(4)
rslider bounds(10, 11, 70, 70), text("Time"), channel("time"), range(0.001, 10, 0.4, 0.5), colour(135, 30, 30) tracker(255,255,150) fontcolour(silver)
rslider bounds(75, 11, 70, 70), text("Cutoff"), channel("cutoff"), range(20,20000,20000,0.5), colour(135, 30, 30) tracker(255,255,150) fontcolour(silver)
rslider bounds(140, 11, 70, 70), text("Feedback"), channel("feedback"), range(0, 1.00, 0.5), colour(135, 30, 30) tracker(255,255,150) fontcolour(silver)
rslider bounds(205, 11, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 0.5), colour(135, 30, 30) tracker(255,255,150) fontcolour(silver)
rslider bounds(270, 11, 70, 70), text("Level"), channel("level"), range(0, 1.00, 0.7), colour(135, 30, 30) tracker(255,255,150) fontcolour(silver)
rslider bounds(10, 11, 70, 70), text("Time"), channel("time"), range(0.001, 10, 0.4, 0.5), colour(135, 30, 30) trackercolour(255,255,150) fontcolour(silver)
rslider bounds(75, 11, 70, 70), text("Cutoff"), channel("cutoff"), range(20,20000,20000,0.5), colour(135, 30, 30) trackercolour(255,255,150) fontcolour(silver)
rslider bounds(140, 11, 70, 70), text("Feedback"), channel("feedback"), range(0, 1.00, 0.5), colour(135, 30, 30) trackercolour(255,255,150) fontcolour(silver)
rslider bounds(205, 11, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 0.5), colour(135, 30, 30) trackercolour(255,255,150) fontcolour(silver)
rslider bounds(270, 11, 70, 70), text("Level"), channel("level"), range(0, 1.00, 0.7), colour(135, 30, 30) trackercolour(255,255,150) fontcolour(silver)

</Cabbage>



+ 2
- 2
bin/cabbage/Effects/Powershape.csd View File

@@ -13,9 +13,9 @@
form caption("Powershape") size(300,107), pluginID("pshp")
image bounds(0, 0,300,107), colour("Brown"), shape("rounded"), outline("white"), line(4)
checkbox bounds(10, 8,130, 12), channel("TestTone"), FontColour("white"), value(0), text("Sine Tone"), colour(yellow)
hslider bounds( 5, 15,290, 40), colour("white"), tracker("white"), channel("amount"), range(1, 500, 1, 0.5,0.001)
hslider bounds( 5, 15,290, 40), colour("white"), trackercolour("white"), channel("amount"), range(1, 500, 1, 0.5,0.001)
label bounds(130, 47, 60, 11), text("Amount"), fontcolour("white")
hslider bounds( 5, 55,290, 40), colour("white"), tracker("white"), channel("level"), range(0, 50, 0.5, 0.25,0.000001)
hslider bounds( 5, 55,290, 40), colour("white"), trackercolour("white"), channel("level"), range(0, 50, 0.5, 0.25,0.000001)
label bounds(135, 87, 60, 11), text("Level"), fontcolour("white")
}
</Cabbage>


+ 3
- 3
bin/cabbage/Effects/RingModulator.csd View File

@@ -3,13 +3,13 @@ form caption("Ring Modulator") size(435, 90), pluginID("rmod")
;label bounds(7, 3, 200, 11), text("Iain McCurdy [2013]"), FontColour("grey")
image pos(0, 0), size(435, 90), colour("black"), shape("rounded"), outline("lime"), line(5)
rslider bounds( 5, 12, 70, 70), text("Freq."), channel("freq"), range(0, 15000, 800, 0.25), colour("yellow")
rslider bounds( 75, 12, 70, 70), text("Sine/Sq."), channel("wave"), range(0, 1.00, 0), colour("yellow")
rslider bounds( 75, 12, 70, 70), text("Sine/Sq."), channel("wave"), range(0, 1.00, 0), colour("yellow")
line bounds(150, 2, 3, 86), colour("lime")
rslider bounds(160, 12, 70, 70), text("Env."), channel("env"), range(0, 1.00, 0.5, 0.5), colour("orange")
rslider bounds(160, 12, 70, 70), text("Env."), channel("env"), range(0, 1.00, 0.5, 0.5), colour("orange")
rslider bounds(230, 6, 40, 40), text("Att."), channel("att"), range(0.001, 0.5, 0.01, 0.5), colour("orange")
rslider bounds(230, 46, 40, 40), text("Dec."), channel("dec"), range(0.001, 0.5, 0.1, 0.5), colour("orange")
line bounds(275, 2, 3, 86), colour("lime")
rslider bounds(290, 12, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 1), colour("chocolate")
rslider bounds(290, 12, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 1), colour("chocolate")
rslider bounds(360, 12, 70, 70), text("Level"), channel("level"), range(0, 1.00, 1), colour("chocolate")
</Cabbage>
<CsoundSynthesizer>


+ 4
- 4
bin/cabbage/Effects/StereoChorus.csd View File

@@ -1,10 +1,10 @@
<Cabbage>
form caption("Stereo Chorus") size(305, 100), pluginID("scho")
image bounds(0, 0, 305, 100), colour("DarkSlateGrey"), shape("rounded"), outline("white"), line(6)
rslider bounds( 10, 13, 75, 75), text("Rate"), channel("rate"), range(0.001, 7, 0.5,0.5), fontcolour("white"), colour("DarkSlateGrey"), tracker("Silver")
rslider bounds( 80, 13, 75, 75), text("Depth"), channel("depth"), range(0, 1.00, 0.2), fontcolour("white"), colour("DarkSlateGrey"), tracker("Silver")
rslider bounds(150, 13, 75, 75), text("Width"), channel("width"), range(0, 1.00, 0.75), fontcolour("white"), colour("DarkSlateGrey"), tracker("Silver")
rslider bounds(220, 13, 75, 75), text("Level"), channel("level"), range(0, 1.00, .1), fontcolour("white"), colour("DarkSlateGrey"), tracker("Silver")
rslider bounds( 10, 13, 75, 75), text("Rate"), channel("rate"), range(0.001, 7, 0.5,0.5), fontcolour("white"), colour("DarkSlateGrey"), trackercolour("Silver")
rslider bounds( 80, 13, 75, 75), text("Depth"), channel("depth"), range(0, 1.00, 0.2), fontcolour("white"), colour("DarkSlateGrey"), trackercolour("Silver")
rslider bounds(150, 13, 75, 75), text("Width"), channel("width"), range(0, 1.00, 0.75), fontcolour("white"), colour("DarkSlateGrey"), trackercolour("Silver")
rslider bounds(220, 13, 75, 75), text("Level"), channel("level"), range(0, 1.00, .1), fontcolour("white"), colour("DarkSlateGrey"), trackercolour("Silver")
</Cabbage>
<CsoundSynthesizer>
<CsOptions>


+ 9
- 9
bin/cabbage/Effects/pvScale.csd View File

@@ -1,21 +1,21 @@
<Cabbage>
form caption("pvscale Pitch Shifter") size(510, 90), pluginID("scal")
image bounds( 15, 9, 60, 60), colour(30,30,30), shape("ellipse"), line(0)
image bounds(0, 0, 510, 90), colour("SlateGrey"), outline("silver"), line(4)
image bounds( 6, 23,498, 30), colour("silver"), shape("ellipse"), line(3)
image bounds( 15, 9, 60, 60), colour(30,30,30), shape("ellipse"), line(0) ; circles around rsliders
image bounds( 85, 9, 60, 60), colour(30,30,30), shape("ellipse"), line(0)
image bounds(155, 9, 60, 60), colour(30,30,30), shape("ellipse"), line(0)
image bounds(295, 9, 60, 60), colour(30,30,30), shape("ellipse"), line(0)
image bounds(365, 9, 60, 60), colour(30,30,30), shape("ellipse"), line(0)
image bounds(435, 9, 60, 60), colour(30,30,30), shape("ellipse"), line(0)
image bounds(6,23, 498, 30), colour("grey"), shape("ellipse")
image bounds(0, 0, 510, 90), colour("SlateGrey"), outline("silver"), line(4)
rslider bounds(10, 10, 70, 70), text("Semitones"), channel("semis"), range(-24, 24, 7, 1, 1),fontcolour("black"),colour("DarkSlateGrey")
rslider bounds(80, 10, 70, 70), text("Cents"), channel("cents"), range(-100, 100, 0, 1, 1),fontcolour("black"),colour("DarkSlateGrey")
rslider bounds(150, 10, 70, 70), text("Feedback"), channel("FB"), range(0.00, 0.99, 0),fontcolour("black"),colour("DarkSlateGrey")
rslider bounds(10, 10, 70, 70), text("Semitones"), channel("semis"), range(-24, 24, 7, 1, 1), fontcolour("black"),colour("DarkSlateGrey"), trackercolour("LightBlue")
rslider bounds(80, 10, 70, 70), text("Cents"), channel("cents"), range(-100, 100, 0, 1, 1), fontcolour("black"),colour("DarkSlateGrey"), trackercolour("LightBlue")
rslider bounds(150, 10, 70, 70), text("Feedback"), channel("FB"), range(0.00, 0.99, 0), fontcolour("black"),colour("DarkSlateGrey"), trackercolour("LightBlue")
combobox bounds(220, 28, 70,20), channel("FB_mode"), value(0), text("F Sig.", "Audio")
label bounds(220, 54, 70, 12), text("F.back Mode"), FontColour("black")
rslider bounds(290, 10, 70, 70), text("FFT Size"), channel("att_table"), range(1, 8, 5, 1,1), fontcolour("black"),colour("DarkSlateGrey")
rslider bounds(360, 10, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 0.5),fontcolour("black"),colour("DarkSlateGrey")
rslider bounds(430, 10, 70, 70), text("Level"), channel("lev"), range(0, 1.00, 0.5, 0.5),fontcolour("black"),colour("DarkSlateGrey")
rslider bounds(290, 10, 70, 70), text("FFT Size"), channel("att_table"), range(1, 8, 5, 1,1), fontcolour("black"),colour("DarkSlateGrey"), trackercolour("LightBlue")
rslider bounds(360, 10, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 0.5), fontcolour("black"),colour("DarkSlateGrey"), trackercolour("LightBlue")
rslider bounds(430, 10, 70, 70), text("Level"), channel("lev"), range(0, 1.00, 0.5, 0.5), fontcolour("black"),colour("DarkSlateGrey"), trackercolour("LightBlue")
</Cabbage>
<CsoundSynthesizer>
<CsOptions>


+ 6
- 6
bin/cabbage/Effects/pvSmooth.csd View File

@@ -5,12 +5,12 @@ FFT feedback is disabled if amplitude smoothing is increased beyond zero. If thi
form caption("pvSmooth") size(505, 90), pluginID("smoo")
image bounds(0, 0, 505, 90), colour("Cream"), outline("silver"), line(5)
label pos(-5, -30), size(815, 150), fontcolour(210,105, 30, 80), text("smooth"), shape("rounded"), outline("white"), line(4)
rslider bounds( 10, 8, 75, 75), text("Amp.Smooth"), channel("acf"), range(0, 1.00, 0, 0.75, 0.001),fontcolour(138, 54, 15),colour("chocolate"), tracker(138, 54, 15)
rslider bounds( 90, 8, 75, 75), text("Frq.Smooth"), channel("fcf"), range(0, 1.00, 0, 0.5, 0.0001),fontcolour(138, 54, 15),colour("chocolate"), tracker(138, 54, 15)
rslider bounds(170, 8, 75, 75), text("Feedback"), channel("FB"), range(0, 0.999, 0, 1,0.001),fontcolour(138, 54, 15),colour("chocolate"), tracker(138, 54, 15)
rslider bounds(250, 8, 75, 75), text("FFT Size"), channel("att_table"), range(1,10, 5, 1,1),fontcolour(138, 54, 15),colour("chocolate"), tracker(138, 54, 15)
rslider bounds(330, 8, 75, 75), text("Mix"), channel("mix"), range(0, 1.00, 1),fontcolour(138, 54, 15),colour("chocolate"), tracker(138, 54, 15)
rslider bounds(410, 8, 75, 75), text("Level"), channel("lev"), range(0, 1.00, 0.5),fontcolour(138, 54, 15),colour("chocolate"), tracker(138, 54, 15)
rslider bounds( 10, 8, 75, 75), text("Amp.Smooth"), channel("acf"), range(0, 1.00, 0, 0.75, 0.001),fontcolour(138, 54, 15), colour("chocolate"), trackercolour(138, 54, 15)
rslider bounds( 90, 8, 75, 75), text("Frq.Smooth"), channel("fcf"), range(0, 1.00, 0, 0.5, 0.0001),fontcolour(138, 54, 15), colour("chocolate"), trackercolour(138, 54, 15)
rslider bounds(170, 8, 75, 75), text("Feedback"), channel("FB"), range(0, 0.999, 0, 1,0.001), fontcolour(138, 54, 15), colour("chocolate"), trackercolour(138, 54, 15)
rslider bounds(250, 8, 75, 75), text("FFT Size"), channel("att_table"), range(1,10, 5, 1,1), fontcolour(138, 54, 15), colour("chocolate"), trackercolour(138, 54, 15)
rslider bounds(330, 8, 75, 75), text("Mix"), channel("mix"), range(0, 1.00, 1), fontcolour(138, 54, 15), colour("chocolate"), trackercolour(138, 54, 15)
rslider bounds(410, 8, 75, 75), text("Level"), channel("lev"), range(0, 1.00, 0.5), fontcolour(138, 54, 15), colour("chocolate"), trackercolour(138, 54, 15)
</Cabbage>
<CsoundSynthesizer>
<CsOptions>


+ 4
- 4
bin/cabbage/Effects/pvsBlur.csd View File

@@ -1,10 +1,10 @@
<Cabbage>
form caption("pvsBlur"), size(235,125) colour( 70, 90,100), pluginID("blur")
image bounds(0, 0,235,125), colour( 70, 90,100), shape("rounded"), outline("white"), line(5)
rslider bounds( 10, 10, 70, 70), text("FFT Size"), channel("att_table"), range(1, 7, 4, 1,1), fontcolour("white"),colour( 70, 90,100),tracker("white")
rslider bounds( 80, 10, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 1), fontcolour("white"),colour( 70, 90,100),tracker("white")
rslider bounds(150, 10, 70, 70), text("Level"), channel("lev"), range(0, 1.00, 0.5, 0.5), fontcolour("white"),colour( 70, 90,100),tracker("white")
hslider bounds( 10, 70,210, 40), channel("blurtime"), range(0, 2.00, 0.0, 0.5, 0.0001), fontcolour("white"),colour( 70, 90,100),tracker("white")
rslider bounds( 10, 10, 70, 70), text("FFT Size"), channel("att_table"), range(1, 7, 4, 1,1), fontcolour("white"),colour( 70, 90,100),trackercolour("white")
rslider bounds( 80, 10, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 1), fontcolour("white"),colour( 70, 90,100),trackercolour("white")
rslider bounds(150, 10, 70, 70), text("Level"), channel("lev"), range(0, 1.00, 0.5, 0.5), fontcolour("white"),colour( 70, 90,100),trackercolour("white")
hslider bounds( 10, 70,210, 40), channel("blurtime"), range(0, 2.00, 0.0, 0.5, 0.0001), fontcolour("white"),colour( 70, 90,100),trackercolour("white")
label bounds( 92,103, 60, 11), text("Blur Time"), fontcolour("white")
</Cabbage>
<CsoundSynthesizer>


+ 8
- 8
bin/cabbage/Effects/pvsBuffer.csd View File

@@ -6,14 +6,14 @@
<Cabbage>
form caption("pvsBuffer") size(580,90), pluginID("buff")
image bounds(0, 0, 580, 90), colour(100, 80, 80,125), shape("rounded"), outline("white"), line(4)
rslider bounds(10, 11, 70, 70), text("Speed"), channel("speed"), range(0, 4, 1, 0.5, 0.0001), fontcolour("white"), colour(100, 80, 80, 5) tracker(silver)
rslider bounds(80, 11, 70, 70), text("Buf. Size"), channel("buflen"), range(0.10, 8.00, 1, 0.5), fontcolour("white"), colour(100, 80, 80, 5) tracker(silver)
rslider bounds(150, 11, 70, 70), text("Semitones"), channel("semis"), range(-24, 24, 0, 1, 1), fontcolour("white"), colour(100, 80, 80, 5) tracker(silver)
rslider bounds(220, 11, 70, 70), text("Cents"), channel("cents"), range(-100, 100, 0, 1, 1), fontcolour("white"), colour(100, 80, 80, 5) tracker(silver)
rslider bounds(290, 11, 70, 70), text("Feedback"), channel("FB"), range(0, 1.50, 0), fontcolour("white"), colour(100, 80, 80, 5) tracker(silver)
rslider bounds(360, 11, 70, 70), text("FFT Size"), channel("att_table"), range(1, 8, 5, 1,1), fontcolour("white"), colour(100, 80, 80, 5) tracker(silver)
rslider bounds(430, 11, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 1), fontcolour("white"), colour(100, 80, 80, 5) tracker(silver)
rslider bounds(500, 11, 70, 70), text("Level"), channel("lev"), range(0, 1.00, 0.5), fontcolour("white"), colour(100, 80, 80, 5) tracker(silver)
rslider bounds(10, 11, 70, 70), text("Speed"), channel("speed"), range(0, 4, 1, 0.5, 0.0001), fontcolour("white"), colour(100, 80, 80, 5) trackercolour(silver)
rslider bounds(80, 11, 70, 70), text("Buf. Size"), channel("buflen"), range(0.10, 8.00, 1, 0.5), fontcolour("white"), colour(100, 80, 80, 5) trackercolour(silver)
rslider bounds(150, 11, 70, 70), text("Semitones"), channel("semis"), range(-24, 24, 0, 1, 1), fontcolour("white"), colour(100, 80, 80, 5) trackercolour(silver)
rslider bounds(220, 11, 70, 70), text("Cents"), channel("cents"), range(-100, 100, 0, 1, 1), fontcolour("white"), colour(100, 80, 80, 5) trackercolour(silver)
rslider bounds(290, 11, 70, 70), text("Feedback"), channel("FB"), range(0, 1.50, 0), fontcolour("white"), colour(100, 80, 80, 5) trackercolour(silver)
rslider bounds(360, 11, 70, 70), text("FFT Size"), channel("att_table"), range(1, 8, 5, 1,1), fontcolour("white"), colour(100, 80, 80, 5) trackercolour(silver)
rslider bounds(430, 11, 70, 70), text("Mix"), channel("mix"), range(0, 1.00, 1), fontcolour("white"), colour(100, 80, 80, 5) trackercolour(silver)
rslider bounds(500, 11, 70, 70), text("Level"), channel("lev"), range(0, 1.00, 0.5), fontcolour("white"), colour(100, 80, 80, 5) trackercolour(silver)
</Cabbage>
<CsoundSynthesizer>
<CsOptions>


+ 2
- 2
bin/cabbage/Synths/WhiteNoise.csd View File

@@ -2,8 +2,8 @@
form caption("White Noise"), size(210, 80), pluginID("wnse")
image bounds( 0, 0,210, 80), colour("white"), shape("rounded"), outline("black"), line(4)
checkbox bounds( 20, 10, 80, 15), text("On/Off"), channel("onoff"), value(1), fontcolour("black")
rslider bounds( 80, 10, 60, 60), text("Amplitude"), channel("amp"), range(0, 1, 0.5, 0.5, 0.001), fontcolour("black")
rslider bounds(140, 10, 60, 60), text("Beta"), channel("beta"), range(-0.999, 0.999,0,1,0.001), fontcolour("black")
rslider bounds( 80, 10, 60, 60), text("Amplitude"), channel("amp"), range(0, 1, 0.1, 0.5, 0.001), fontcolour("black"), trackercolour("grey")
rslider bounds(140, 10, 60, 60), text("Beta"), channel("beta"), range(-0.999, 0.999,0,1,0.001), fontcolour("black") , trackercolour("grey")
</Cabbage>

<CsoundSynthesizer>


+ 3
- 3
bin/cabbage/Synths/bassline.csd View File

@@ -93,7 +93,7 @@ checkbox bounds(516, 98, 12, 12), channel("Acc14"), value(0), preset("bassline")
checkbox bounds(551, 98, 12, 12), channel("Acc15"), value(0), preset("bassline")
checkbox bounds(586, 98, 12, 12), channel("Acc16"), value(0), preset("bassline")

button bounds( 10,120, 60, 25), colour("Green"), text("Stop", "Run"), channel("OnOff"), value(1)
button bounds( 10,120, 60, 25), colour("Green"), text("Run","Stop"), channel("OnOff"), value(1)
combobox bounds( 10,150, 60, 15), channel("Waveform"), value(1), text("saw","square","triangle","PWM","noise"), preset("bassline")
rslider bounds( 20,170, 40, 40), text("P.W."), channel("pw"), range(0.01,0.99, 0.25), preset("bassline"), FontColour("black")
rslider bounds( 70,120, 60, 60), text("Vol."), channel("Vol"), range(0, 5.00, 1), preset("bassline"), FontColour("black")
@@ -111,7 +111,7 @@ button bounds(540,140, 60, 15), text("+semi"), channel("SemiUp"), value(0)
button bounds(480,160, 60, 15), text("-oct"), channel("OctDn"), value(0)
button bounds(540,160, 60, 15), text("+oct"), channel("OctUp"), value(0)

button bounds(280, 185, 80, 20), text("External", "Internal"), channel("ClockSource"), value(0)
button bounds(280, 185, 80, 20), text("Internal","External"), channel("ClockSource"), value(0)
label bounds(285, 205, 80, 12), text("Clock Source"), FontColour("black")

image bounds(5, 225, 330, 20), colour(75, 85, 90, 100), plant("credit"){
@@ -370,7 +370,7 @@ instr 1 ;BASSLINE INSTRUMENT
SKIP_DISTORTION:
kOn port kOn, 0.006 ;SMOOTH CHANGES IN ON OFF SWITCHING
aAmp interp kAmp*kOn*((kAcc*0.7)+1)*gkVol ;COMBINE ALL FACTORS THAT CONTRIBUTE TO AMPLITUDE AND INTERPOLATE AND CREATE AN A-RATE VERSION OF THIS RESULT (TO PREVENT QUANTISATION NOISE)
aAmp interp ((kAmp*kOn)*((kAcc*0.7)+1)*gkVol) ;COMBINE ALL FACTORS THAT CONTRIBUTE TO AMPLITUDE AND INTERPOLATE AND CREATE AN A-RATE VERSION OF THIS RESULT (TO PREVENT QUANTISATION NOISE)
aSig = aSig * aAmp ;SCALE AUDIO USING AMPLITUDE CONTROL FUNCTION
outs aSig, aSig ;AUDIO SENT TO OUTPUT, APPLY AMP. ENVELOPE, VOLUME CONTROL AND NOTE ON/OFF STATUS



Loading…
Cancel
Save