windytan

#!/usr/bin/perl
# Oona Räisänen 2014
use warnings;

$fs = 48000;
$f  = 200;
$pi = 3.141592653589793238;

open(U,"|sox -t .raw -c 1 -r $fs -b 16 -e signed - sines.wav");

windytan

use warnings;
use DateTime;

$snum    = 0;
$writing = 0;

open OUT, "|sox -t .raw -e signed-integer -b 16 -r 44100 ".
          "-c 1 - stamped.wav";

while (not eof STDIN) {

windytan

use warnings;

my $snum    = 0;
my $reading = 0;

open my $in, '-|', 'sox stamped.wav -e unsigned-integer -t .raw -';

while (read $in, $sample, 2) {
  $bit = (unpack "S", $sample) & 1;

windytan

use warnings;
use DateTime;

$snum    = 0;
$writing = 0;

open OUT, "|sox -t .raw -e unsigned-integer -b 16 -r 44100 ".
          "-c 1 - stamped.wav";

while (not eof STDIN) {

windytan

# Oona Räisänen 2013
# http://windytan.com

# ssh-keygen -l -f ~/.ssh/id_rsa.pub | perl emoji.pl

@emoji = qw( 🌀  🌂  🌅  🌈  🌙  🌞  🌟  🌠  🌰  🌱  🌲  🌳  🌴  🌵  🌷  🌸 
             🌹  🌺  🌻  🌼  🌽  🌾  🌿  🍀  🍁  🍂  🍃  🍄  🍅  🍆  🍇  🍈 
             🍉  🍊  🍋  🍌  🍍  🍎  🍏  🍐  🍑  🍒  🍓  🍔  🍕  🍖  🍗  🍘 
             🍜  🍝  🍞  🍟  🍠  🍡  🍢  🍣  🍤  🍥  🍦  🍧  🍨  🍩  🍪  🍫 
             🍬  🍭  🍮  🍯  🍰  🍱  🍲  🍳  🍴  🍵  🍶  🍷  🍸  🍹  🍺  🍻 

windytan

$fs = 48000; # sample rate
$fc = 3729;  # carrier frequency
$filter = " sinc -$fc"; # optional LP filter

$fc = freq($fc);

open(IN, "sox scrambled.wav -c 1 -b 16 -e signed -t .raw -|");
open(OUT,"|sox -r $fs -c 1 -b 16 -e signed -t .raw - descrambled.wav".
         $filter);

windytan

open(IN, "sox scrambled.wav -r 8600 -c 1 -t .s16 -|");
open(OUT,"|sox -r 8600 -c 1 -t .s16 - descrambled.wav");
$n = 1;

while (not eof IN) {
  read IN, $a, 2;
  print OUT pack("s",unpack("s",$a) * $n);
  $n *= -1;
}

windytan

use warnings;
use Getopt::Std;

getopt('xytGgwsf',\%opts);

# pcm file = $opts{f}

# samples per pixel x
$xscale = $opts{x} // 1200;

windytan

$|++;
use warnings;
use Text::LevenshteinXS qw(distance);

for (qx!cat nappis.txt!) {
  $merkki{$2} = $1 if (/^(.+) ([01]+)/);
}

while (<>) {
  chomp();

windytan

#include <stdlib.h>
#include <math.h>
#include <string.h>
#include <fftw3.h>

#define FFTLEN 2048
#define SRATE  22050

// Return sinusoid power from complex DFT coefficients
double power (fftw_complex coeff) {