So I’m taking this Beginning Object-Oriented Programming class this semester with the hopes of getting into the beginning robot-music-making-cool-awesome class next Fall. Music tech school? Yes please! Here’s the ChucK code for anyone who happens to need a car alarm. (And yes, I’m still drawing, just not uploading much…. yet!) \ud83d\ude00
\nI’d totally attach an audio file if I knew how. Right now we’re working directly in miniAudicle, so if you download that then you can hear the car alarm in all its glory \ud83d\ude1b<\/p>\n
\/\/===========================================\/\/
\n\/\/ Author: Tahnee Gehm \/\/
\n\/\/ Assignment: 1 “Hello, ChucK. Make sound!” \/\/
\n\/\/ Date: September 17, 2010 \/\/
\n\/\/===========================================\/\/<\/p>\n
<<<“Tahnee Gehm – Assignment 1”>>>;<\/p>\n
\/\/START 1
\nTriOsc a => dac;
\n.1 => a.gain;
\nint freqa;
\n1300 => freqa; \/\/Starting frequency here
\nint checka;
\n0 => checka; \/\/making sub-counter exist
\nfor (0 => int asound; asound < 1; 0 == asound) { freqa => a.freq;
\nfreqa –; \/\/lowering sound
\n.0007::second => now; \/\/in these increments<\/p>\n
if(freqa <500) { 1300 => freqa; \/\/if below 500, reset high
\nchecka ++; \/\/add 1 to sub-counter in loop
\n\/\/<<>>;
\nif (checka > 7)
\n{
\n0 => a.gain;
\n1 => asound; \/\/sub counter affects main counter, ends loop
\n}
\n}
\n}
\n\/\/END 1<\/p>\n
\/\/START 2<\/p>\n
SinOsc b => dac;
\n0 => int bcounter;
\nwhile (bcounter < 16) \/\/Loops all the for statements 16 times { float gainb; .2 => gainb; \/\/shhhhhh, don’t blow out your eardrums
\ngainb => b.gain;
\nint freqb;
\n1500 => freqb; \/\/starting high<\/p>\n
for (0 => int countb_a; countb_a < 1000; countb_a == 0) { freqb++; \/\/increase frequency freqb => b.freq;
\n\/\/<<>>;
\n.00015::second => now;
\ncountb_a++; \/\/sends to part b_b
\n}
\nfor (0 => int countb_b; countb_b < 1000; countb_b == 0) { freqb–; \/\/decrease frequency freqb => b.freq;
\n\/\/<<>>;
\n.00015::second => now;
\ncountb_b++; \/\/ends to part b_a; rinse\/repeat
\n}
\nbcounter ++;\/\/for statements have gone through once; add 1 to counter
\n}<\/p>\n
0 => b.gain;<\/p>\n
\/\/END 2<\/p>\n
<<<“Turn off your @#$^&* car alarm!”>>>;<\/p>\n
\/\/START 3
\nTriOsc c => dac;
\n.2 => c.gain;
\nint freqc;
\n1000 => freqc;<\/p>\n
for (0 => int csound; csound < 16; csound == 0) { freqc –; \/\/lowering frequenC (pun intended) freqc => c.freq;
\n\/\/<<>>;
\n.00025::second => now;
\nif (freqc == 200)
\n{
\n1000 => freqc;
\ncsound ++; \/\/add to main counter
\n}
\nif (csound == 16)
\n{
\n0 => c.gain; \/\/silence after loop ends
\n}
\n}<\/p>\n
\/\/END 3<\/p>\n
\/\/START 4
\nSqrOsc d => dac;
\nSawOsc dd => dac; \/\/extra buzz, closer to “authentic”
\n.05 => d.gain;
\n.05 => dd.gain;
\nfor (0 => int dsound; dsound < 4; dsound == 0) { 420 => d.freq;
\n420 => dd.freq;
\n.8::second => now; \/\/starting frequency
\n650 => d.freq;
\n650 => dd.freq;
\n.8::second => now; \/\/ending frequency; ping-pong effect
\ndsound ++; \/\/add to main counter
\n\/\/<<>>;
\nif (dsound == 4)
\n{
\n0 => d.gain;
\n0 => dd.gain; \/\/silence when main counter is maxed out
\n}
\n}<\/p>\n
\/\/END 4<\/p>\n
<<<“I SAID TURN OFF THAT !#@$^% CAR ALARM!”>>>;
\n\/\/har har har<\/p>\n
\/\/START 5
\nSqrOsc e => dac;
\n.2 => e.gain;<\/p>\n
int freqe;
\n200 => freqe;<\/p>\n
for (0 => int countf; countf < 2; 0 == countf) { freqe ++; freqe => e.freq;
\n\/\/<<>>;
\n.006::second => now;
\nif (500 == freqe)
\n{
\n0 => e.gain;\/\/brief pause
\n.3::second => now;
\n.2 => e.gain;
\n200 => freqe;
\ncountf ++;
\n}
\nif (countf == 2) \/\/when counter ends…
\n{
\n0 => e.gain; \/\/…shhhh
\n}
\n}<\/p>\n
\/\/END 5<\/p>\n
\/\/START 6
\nSawOsc f => dac;
\nTriOsc ff => dac; \/\/added buzzzzzz<\/p>\n
220 => f.freq;
\n220 => ff.freq;
\n.2 => float gainf;
\nint countf; \/\/sub-counter
\n0 => countf;
\nfor (0 => int soundf; soundf < 1; 0 == soundf) { .2 => gainf;
\ngainf => f.gain;
\ngainf => ff.gain;
\ncountf ++;
\n\/\/<<>>;
\n.25::second => now;<\/p>\n
0 => gainf;
\ngainf => f.gain;
\ngainf => ff.gain;
\n.25::second => now;<\/p>\n
if (countf > 7)
\n{
\n1 => soundf; \/\/end main counter
\n}
\n}
\n\/\/END 6<\/p>\n
\/\/RE-START A, BUT AS G
\nTriOsc g => dac;
\n.1 => g.gain;
\nint freqg;
\n1300 => freqg;
\nint checkg;
\n0 => checkg;
\nfor (0 => int gsound; gsound < 1; 0 == gsound) { freqg => g.freq;
\nfreqg –;<\/p>\n
.0007::second => now;<\/p>\n
if(freqg <500) { 1300 => freqg;
\ncheckg ++;
\n\/\/<<>>;
\nif (checkg > 4)
\n{
\n0 => g.gain;
\n1 => gsound;
\n}
\n}
\n}
\n\/\/END A<\/p>\n
\/\/Okay, I’ll turn it off…<\/p>\n
SqrOsc h => dac;
\nfloat gainh;
\nint freqh;
\n800 => freqh; \/\/starts pretty high<\/p>\n
for (0 => int hclock; hclock <2; hclock == 0) { .1 => gainh; \/\/Working with Sqr; trying to not annoy neighbors
\ngainh => h.gain;<\/p>\n
freqh ++;
\nfreqh => h.freq;
\n\/\/<<>>;
\n.0004::second => now;<\/p>\n
if (freqh > 1000) \/\/gets high enough–
\n{
\nhclock ++;
\n0 => h.gain; \/\/brief pause
\n.2::second => now;
\n800 => freqh; \/\/re-set freq, will loop ++
\n.1 => gainh; \/\/once maxed out, everything ends
\n}
\n}
\n\/\/Car alarm off!
\n<<<“Car alarm turned off. Happy?”>>>;<\/p>\n","protected":false},"excerpt":{"rendered":"
So I’m taking this Beginning Object-Oriented Programming class this semester with the hopes of getting into the beginning robot-music-making-cool-awesome class next Fall. Music tech school? Yes please! Here’s the ChucK code for anyone who happens to need a car alarm. (And yes, I’m still drawing, just not uploading much…. yet!)
\nI’d totally attach an audio file if I knew how. Right now we’re working directly in miniAudicle, so if you download that then you can hear the car alarm in all its glory. Continue reading