windytan

#!/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 yt-dlp / ffmpeg

# https://www.windytan.com/2014/02/mystery-signal-from-helicopter.html

# Remove this line
echo "Don't just run any random script you find online! Read what it does first!" && exit 1

windytan

#!/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.

windytan

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";

windytan

#!/bin/sh
while true; do cat $1; done

windytan

#!/usr/bin/perl
#
# Markov-tavutin
#
# (c) Oona Räisänen
# MIT license
#

use strict;
use warnings;

windytan

#!/usr/bin/perl
# windytan 2017, public domain
use warnings;
use strict;

my $img_width      = 1200;
my $img_height     = 900;
my $yscale         = 0.6;
my $xscale         = 0.13;
my $rowheight      = 5;

windytan

  if (/^\.ninja (.+)/) {
    $irivi = lc($1);
    $irivi =~ tr/ÅÄÖ/åäö/;
    $irivi =~ tr/åäöéèü/aaoeeu/;
    $irivi =~ s/[^a-z\- ]//g;
    $irivi =~ s/\s+$//;
    $irivi =~ s/\s\s/ /g;
    %ninjanames = qw( a KA b ZU  c MI  d TE e KU f LU g JI h RI i KI j ZU
                      k ME l TA  m RIN n TO o MO p NO q KE r SHI s ARI
                      t CHI u DO v RU w MEI x NA y FU z ZI );

windytan

#!/usr/bin/perl
#
# bpm.pl - count newlines per minute
#
# Oona Räisänen 2012
# Public domain
#
# Usage: ./bpm [-n SAMPLES] [-p DECIMALS] [-s]
#
# -n SECONDS:  average over SECONDS seconds (default 5)

windytan

@size       = (1920, 1080);
@center     = (-.743653135, .131826563);
$zoom       = .000014628;
$max_it     = 700;
$oversample = 2;

$_ *= $oversample for (@size);
open $fh, "|-", "convert -size ".join("x",@size)." -depth 8 gray:- ".
                "-resize ".(100/$oversample)."% mandel.png";
for $py (1 .. $size[1]) {

windytan

#!/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!";