(*^ ::[ frontEndVersion = "NeXT Mathematica Notebook Front End Version 2.1"; next21StandardFontEncoding; paletteColors = 128; showRuler; automaticGrouping; currentKernel; fontset = title, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8, 24, "Times"; ; fontset = subtitle, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 18, "Times"; ; fontset = subsubtitle, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6, 14, "Times"; ; fontset = section, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20, 18, "Times"; ; fontset = subsection, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15, 14, "Times"; ; fontset = subsubsection, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12, 12, "Times"; ; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = input, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L1, 12, "Courier"; ; fontset = output, output, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = message, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = print, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = info, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = postscript, PostScript, formatAsPostScript, output, inactive, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1, 12, "Courier"; ; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1, 10, "Times"; ; fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = Left Header, nohscroll, cellOutline, 12; fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, L1, 12; fontset = Left Footer, cellOutline, blackBox, 12; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Courier"; ; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; ] :[font = title; inactive; preserveAspect; startGroup; ] A Composer's Guide to Sound Production with Mathematica ;[s] 3:0,0;44,1;55,2;57,-1; 3:1,21,16,Times,1,24,0,0,0;1,21,16,Times,2,24,0,0,0;1,10,8,Courier,1,12,0,0,0; :[font = subtitle; inactive; preserveAspect; ] Arun Chandra :[font = subsubtitle; inactive; preserveAspect; ] Wolfram Research, Inc. (Draft) :[font = section; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Basic Sound Operations with Mathematica ;[s] 4:0,0;11,1;12,2;28,3;39,-1; 4:1,16,12,Times,0,18,0,0,0;1,13,10,Times,0,14,0,0,0;1,16,12,Times,0,18,0,0,0;1,16,12,Times,2,18,0,0,0; :[font = subsection; inactive; preserveAspect; ] Playing a Function :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Playing Lists of Integers :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Playing Sequences of Sounds :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Stereo Output :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Changing the SampleRate :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Changing the SampleDepth (Quantization) :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Setting the PlayRange :[font = subsubsection; inactive; preserveAspect; ] Apparent Loudness and the PlayRange ;[s] 2:0,0;25,1;36,-1; 2:1,11,8,Times,0,12,0,0,0;1,10,8,Times,1,12,0,0,0; :[font = subsubsection; inactive; preserveAspect; endGroup; ] Clipping and the PlayRange ;[s] 2:0,0;16,1;27,-1; 2:1,11,8,Times,0,12,0,0,0;1,10,8,Times,1,12,0,0,0; :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Efficient Computation with Mathematica :[font = subsubsection; inactive; preserveAspect; ] Nesting :[font = subsubsection; inactive; preserveAspect; endGroup; ] Using the Evaluate Command :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Problems with Output Distortion :[font = subsection; inactive; preserveAspect; startGroup; ] Standard Defaults :[font = subsubsection; inactive; preserveAspect; ] SampleRate :[font = subsubsection; inactive; preserveAspect; endGroup; endGroup; ] SampleDepth :[font = section; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Standard Wave Forms :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Efficient Generation of Standard Waveforms with Mathematica :[font = subsubsection; inactive; preserveAspect; plain; fontName = "Times"; ] Sawtooth Waves :[font = subsubsection; inactive; preserveAspect; plain; fontName = "Times"; ] Square Waves :[font = subsubsection; inactive; preserveAspect; plain; fontName = "Times"; endGroup; ] Triangle Waves :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Fourier Synthesis of Sawtooth Waves :[font = subsubsection; inactive; preserveAspect; ] Plotting Sawtooth Waves :[font = subsubsection; inactive; preserveAspect; endGroup; ] Playing a Sawtooth Wave :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Fourier Synthesis of Square Waves :[font = subsubsection; inactive; preserveAspect; ] Plotting Square Waves :[font = subsubsection; inactive; preserveAspect; endGroup; ] Playing Square Waves :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Fourier Synthesis of Triangle Waves :[font = subsubsection; inactive; preserveAspect; ] Plotting Triangle Waves :[font = subsubsection; inactive; preserveAspect; endGroup; endGroup; ] Playing Triangle Waves :[font = section; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Envelopes :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Amplitude Change :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Decay Envelopes :[font = subsubsection; inactive; preserveAspect; ] Decay Envelopes for a Single Tone :[font = subsubsection; inactive; preserveAspect; endGroup; ] Decay Envelopes for a Fundamental with Overtones :[font = subsection; inactive; preserveAspect; endGroup; ] Growth Envelopes :[font = section; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Interference :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Interference due to Phase Relationships :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; endGroup; ] Interference due to Beating :[font = section; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Amplitude Modulation :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Simple Amplitude Modulation (tremolo) :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Complex Amplitude Modulation :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] ``Ring'' Modulation (Suppressed Carrier Modulation) :[font = subsubsection; inactive; preserveAspect; endGroup; endGroup; ] Complex Ring Modulation :[font = section; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Frequency Modulation :[font = subsubsection; inactive; preserveAspect; rightWrapOffset = 465; plain; fontName = "Times"; ] The Modulation Index :[font = subsubsection; inactive; preserveAspect; plain; fontName = "Times"; ] The Modulation Ratio (Harmonic and Inharmonic Partials) :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Simple Frequency Modulation (Vibrato) :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Complex Frequency Modulation :[font = subsection; inactive; preserveAspect; ] Serial Frequency Modulation ("Cascade" FM) :[font = subsection; inactive; preserveAspect; startGroup; ] Parallel Frequency Modulation :[font = subsubsection; inactive; preserveAspect; ] Double Modulator FM :[font = subsubsection; inactive; preserveAspect; endGroup; endGroup; ] Double Carrier FM :[font = section; inactive; preserveAspect; plain; fontName = "Times"; startGroup; ] Scales and Tunings :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Pythagorean Tuning :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Just Intonation :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Mean-Tone Temperment :[font = subsection; inactive; preserveAspect; plain; fontName = "Times"; ] Equal Temperment :[font = subsection; inactive; preserveAspect; endGroup; ] Quarter-Tone and Sixth-Tone Scales :[font = section; inactive; initialization; preserveAspect; endGroup; ] References ^*)