Group Abstract

Message Boards

WOLFRAM COMMUNITY

22.3K Views

5 Replies

19 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Staff Picks Audio, Sound and Music Recreation Signal Processing Import and Export Wolfram Language Wolfram Cloud

Creating Star Wars Kylo Ren voice in one line of code

Rodrigo Murta

Rodrigo Murta, Looqbox

Posted 9 years ago

POSTED BY: Rodrigo Murta

5 Replies

Sort By:

Vitaliy Kaurov

Vitaliy Kaurov, WOLFRAM Research

Posted 9 years ago

Very nice! But surprisingly that type of processing does not make laughing scary. So this is a stab at scary laughs: Original laughter Scary laughter In the code below notice I overlaid the original and processed audio, in addition to other filters. laugh=ExampleData[{"Audio","Laughing"}]; AudioOverlay[{ AudioAmplify[laugh,7], AudioAmplify[ AudioReverb[ AudioDelay[ AudioFrequencyShift[ AudioPitchShift[laugh,0.6], -300], 1,.5], "LargeHall"], 20] }] CloudDeploy[ExportForm[%, "MP3"], "vkLaughingScary", Permissions -> "Public"] CloudDeploy[ExportForm[laugh, "MP3"], "LaughingExampleData", Permissions -> "Public"]

Very nice! But surprisingly that type of processing does not make laughing scary. So this is a stab at scary laughs:

In the code below notice I overlaid the original and processed audio, in addition to other filters.

laugh=ExampleData[{"Audio","Laughing"}];
AudioOverlay[{
    AudioAmplify[laugh,7],
    AudioAmplify[
       AudioReverb[
         AudioDelay[
          AudioFrequencyShift[
              AudioPitchShift[laugh,0.6],
          -300],
         1,.5],
       "LargeHall"],
    20]
}]

CloudDeploy[ExportForm[%, "MP3"], "vkLaughingScary", Permissions -> "Public"]

CloudDeploy[ExportForm[laugh, "MP3"], "LaughingExampleData", Permissions -> "Public"]

POSTED BY: Vitaliy Kaurov

George Varnavides

George Varnavides, Massachusetts Institute of Technology

Posted 9 years ago

Very nice, indeed! This might just be my tacky sense of humour, but I couldn't resist! pickUpLines = Flatten[Table[ Take[StringSplit[ Import[StringTemplate[ "http://pickup-lines.net/cute/page/`1`/"][i]], "\[HeartSuit]"], {2, -2}], {i, 5}]]; kyloRen[string_] := Block[{audioOrg, audioKylo}, audioOrg = SpeechSynthesize[string]; audioKylo = AudioPitchShift[audioOrg, 0.9]; Legended[ Normal[AudioFrequencyShift[audioKylo, -200] // AudioAmplify[#, 4] &], string]] kyloRen[RandomChoice[pickUpLines]] Cheers, George

Very nice, indeed!
This might just be my tacky sense of humour, but I couldn't resist!

pickUpLines = 
  Flatten[Table[
    Take[StringSplit[
      Import[StringTemplate[
         "http://pickup-lines.net/cute/page/`1`/"][i]], 
      "\[HeartSuit]"], {2, -2}], {i, 5}]];

kyloRen[string_] := Block[{audioOrg, audioKylo},
  audioOrg = SpeechSynthesize[string];
  audioKylo = AudioPitchShift[audioOrg, 0.9];
  Legended[
   Normal[AudioFrequencyShift[audioKylo, -200] // 
     AudioAmplify[#, 4] &], string]]

kyloRen[RandomChoice[pickUpLines]]

Cheers,
George

POSTED BY: George Varnavides