New answers tagged

4

Here is my take on that: EventHandler[Dynamic@Refresh[ If[0 < handAngle - clickAngle < \[Pi]/30, EmitSound[Sound@SoundNote["C"]]]; handAngle = N@Mod[15 - DateValue[Now, "Second"], 60, -30] \[Pi]/30; Show[ClockGauge[], Graphics[Point[clickPoint]]], UpdateInterval -> 1], {"MouseClicked" :> (clickPoint = ...


2

Here is a quick first draft: DynamicModule[{s = 0, pt = {0, 1}}, Column@{ClickPane[ Dynamic[Show[Refresh[Graphics[ClockGauge[]], UpdateInterval -> 1], Graphics[{Red, Point[pt]}]]], (pt = #; s = 30*(1 + ArcTan[-pt[[2]], -pt[[1]]]/Pi)) &], DynamicWrapper[Dynamic@s, If[DateValue["Second"] == Round[s], ...


6

The sample rate is the second element in solo. The first element (i.e., solo[[1, 1]]) is the waveform data. solo = Import["ExampleData/rule30.wav"]; solo[[1, 2]] 44100


9

One can also use Import[] to directly query the *.wav file's sample rate, like so: Import["ExampleData/rule30.wav", "SampleRate"] 44100


8

solo = Import[ "ExampleData/rule30.wav" ] Cases[solo, (SampledSoundFunction | SampledSoundList)[__, r_] :> r, Infinity][[1]] 44100


5

It doesn't seem to be available with Options so let's edit this manually. So you can inspect the output or use ToBoxes to know what needs to be changed. And change it: sound = Sound[{SoundNote["C"], SoundNote["G"]}] ToBoxes[ sound ] /. GraphicsBox[gr_, opts___, ImageSize -> _, opts2___ ] :> GraphicsBox[gr, opts, opts2, ImageSize -> 500 ] // ...



Top 50 recent answers are included