This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use warnings; | |
use Getopt::Std; | |
getopt('xytGgwsf',\%opts); | |
# pcm file = $opts{f} | |
# samples per pixel x | |
$xscale = $opts{x} // 1200; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
# Decode the helicopter position signal from youtube videos! | |
# It makes a KML file. You can open it in Google Earth or many other GIS programs. | |
# Requires sox, perl, and minimodem, and optionally youtube-dl / ffmpeg | |
# https://www.windytan.com/2014/02/mystery-signal-from-helicopter.html | |
# !!! | |
# !!! Don't just run any random script you find online! Read what it does first! |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Oona Räisänen 2013 | |
# http://windytan.com | |
# ssh-keygen -l -f ~/.ssh/id_rsa.pub | perl emoji.pl | |
@emoji = qw( 🌀 🌂 🌅 🌈 🌙 🌞 🌟 🌠 🌰 🌱 🌲 🌳 🌴 🌵 🌷 🌸 | |
🌹 🌺 🌻 🌼 🌽 🌾 🌿 🍀 🍁 🍂 🍃 🍄 🍅 🍆 🍇 🍈 | |
🍉 🍊 🍋 🍌 🍍 🍎 🍏 🍐 🍑 🍒 🍓 🍔 🍕 🍖 🍗 🍘 | |
🍜 🍝 🍞 🍟 🍠 🍡 🍢 🍣 🍤 🍥 🍦 🍧 🍨 🍩 🍪 🍫 | |
🍬 🍭 🍮 🍯 🍰 🍱 🍲 🍳 🍴 🍵 🍶 🍷 🍸 🍹 🍺 🍻 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# windytan's pea whistle encoder | |
# http://www.windytan.com/2015/10/pea-whistle-steganography.html | |
# (c) 2015 Oona Räisänen | |
# ISC license | |
use warnings; | |
use strict; | |
my $data = $ARGV[0] // "OHAI!"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
# Perl script to plot the amplitude in an audio file as a grayscale image. | |
# Uses SoX and ImageMagick via shell. | |
# | |
# Note that the height of the image is only limited by the length of the | |
# audio file. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$|++; | |
use warnings; | |
use Text::LevenshteinXS qw(distance); | |
for (qx!cat nappis.txt!) { | |
$merkki{$2} = $1 if (/^(.+) ([01]+)/); | |
} | |
while (<>) { | |
chomp(); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use warnings; | |
my $width = 1000; | |
my $height = 500; | |
my $n_pts = 1000; | |
my $wavelength = 9; | |
print '<svg xmlns="http://www.w3.org/2000/svg" version="1.1" '. | |
'width="'.$width.'" height="'.$height.'">'."\n"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
while true; do cat $1; done |
NewerOlder