Matthew Shanley arkadyan

## Risset Bell - final version
SynthDef(
  \risset_bell,
	{ |freq=440, dur=4.0, out=0|
		var partials, addPartial;

		partials = Array.new(11);

		addPartial = { |amplitude, rel_duration, rel_freq, detune|
				partials.add(
					EnvGen.kr(

## Risset Bell - take 1
SynthDef(
  \risset_bell,
	{ |freq=440, dur=4.0, out=0|
		var partial;

		partial = { |amplitude, rel_duration, rel_freq, detune|
			OffsetOut.ar(out,
				EnvGen.kr(
					Env.perc(0.05, dur*rel_duration, amplitude*0.1, -4),
					doneAction: 0

## Paste CSV.scpt
set delim to ","

set the clipboard to my remplace(the clipboard as text, delim, tab)

on remplace(_t, _delim, _tab)
  local l
	set AppleScript's text item delimiters to _delim
	set l to text items of _t
	set AppleScript's text item delimiters to _tab
	set _t to l as text

## OmniFocus Entry from GitHub ticket.scpt
tell application "Safari"
  set ticketPage to the document of the front window
	set ticketUrl to the URL of ticketPage
	set nameArray to my splitText((name of ticketPage), " · ")
	set ticketTitle to the first item of nameArray
end tell

tell application "OmniFocus" to tell default document
	make new inbox task with properties {name:ticketTitle, note:ticketUrl}
end tell

## View Artist on AllMusic.scpt
tell application "iTunes"
	if player state is not stopped then
		set currentArtist to artist of current track
	end if
end tell

tell application "Safari"
	open location "http://www.allmusic.com/search/all/" & currentArtist
end tell

## 2011_hot_dog_prices.csv

          
            Team
            2011 Hot Dog Price (US$)
            2010 Hot Dog Price (US$)
            2009 Hot Dog Price (US$)

            
              Boston Red Sox
              4.50
              4.50
              4.50

            
              New York Yankees
              3.00
              3.00
              3.00

            
              Chicago Cubs
              4.50
              4.25
              3.00

            
              Chicago White Sox
              3.50
              3.25
              3.25

            
              New York Mets
              5.00
              5.00
              4.75

            
              Philadelphia Phillies
              3.75
              3.75
              3.75

            
              Los Angeles Dodgers
              5.00
              5.00
              5.00

            
              St. Louis Cardinals
              4.25
              4.00
              4.00

            
              Houston Astros
              4.75
              4.75
              4.75

## git_prompt.sh
        RED="\[\033[0;31m\]"
     YELLOW="\[\033[0;33m\]"
 	  GREEN="\[\033[0;32m\]"
       BLUE="\[\033[0;34m\]"
  LIGHT_RED="\[\033[1;31m\]"
LIGHT_GREEN="\[\033[1;32m\]"
      WHITE="\[\033[1;37m\]"
 LIGHT_GRAY="\[\033[0;37m\]"
 COLOR_NONE="\[\e[0m\]"
	SynthDef(
	\risset_bell,
	{ \|freq=440, dur=4.0, out=0\|
	var partials, addPartial;

	partials = Array.new(11);

	addPartial = { \|amplitude, rel_duration, rel_freq, detune\|
	partials.add(
	EnvGen.kr(
	set delim to ","

	set the clipboard to my remplace(the clipboard as text, delim, tab)

	on remplace(_t, _delim, _tab)
	local l
	set AppleScript's text item delimiters to _delim
	set l to text items of _t
	set AppleScript's text item delimiters to _tab
	set _t to l as text
	tell application "Safari"
	set ticketPage to the document of the front window
	set ticketUrl to the URL of ticketPage
	set nameArray to my splitText((name of ticketPage), " · ")
	set ticketTitle to the first item of nameArray
	end tell

	tell application "OmniFocus" to tell default document
	make new inbox task with properties {name:ticketTitle, note:ticketUrl}
	end tell
	tell application "iTunes"
	if player state is not stopped then
	set currentArtist to artist of current track
	end if
	end tell

	tell application "Safari"
	open location "http://www.allmusic.com/search/all/" & currentArtist
	end tell
Team	2011 Hot Dog Price (US$)	2010 Hot Dog Price (US$)	2009 Hot Dog Price (US$)
Boston Red Sox	4.50	4.50	4.50
New York Yankees	3.00	3.00	3.00
Chicago Cubs	4.50	4.25	3.00
Chicago White Sox	3.50	3.25	3.25
New York Mets	5.00	5.00	4.75
Philadelphia Phillies	3.75	3.75	3.75
Los Angeles Dodgers	5.00	5.00	5.00
St. Louis Cardinals	4.25	4.00	4.00
Houston Astros	4.75	4.75	4.75
	RED="\[\033[0;31m\]"
	YELLOW="\[\033[0;33m\]"
	GREEN="\[\033[0;32m\]"
	BLUE="\[\033[0;34m\]"
	LIGHT_RED="\[\033[1;31m\]"
	LIGHT_GREEN="\[\033[1;32m\]"
	WHITE="\[\033[1;37m\]"
	LIGHT_GRAY="\[\033[0;37m\]"
	COLOR_NONE="\[\e[0m\]"