#!/usr/bin/perl

# #########################################################
# Audio Oscillograph, (uncalibrated AF Oscilloscope).
# NOTE: Many terminal escape codes are not supported, so workarounds ARE needed.
# Oscillograph.pl
#
# This is perl 5, version 18, subversion 2 (v5.18.2) built for darwin-thread-multi-2level
# (with 2 registered patches, see perl -V for more detail

# #########################################################
# Needed!
use warnings;
use strict;

# #########################################################
# Global variables...
my $horiz=9;
my $vert=9;
my $plot="";
# Manually alter the variable below to suit your system, DEMO, DSP, ALSA or QT.
my $capture_mode='DEMO';

# #########################################################
# Clear the screen and reset the terminal.
sub clrscn
{
    my $clearscn=1;
    print "\x1B[0m\x1Bc";
    for($clearscn=1; $clearscn<=25; $clearscn=$clearscn+1)
    {
        print "                                                                                \n";
    }
    print "\x1B[1;1f";
}

# #########################################################
# This generates a shell script that runs an applescript to access QuickTime Player.
sub QT_script
{
system("echo '/usr/bin/osascript << AppleSampler
    tell application \"QuickTime Player\"
        activate
        set savePath to \"Macintosh HD:tmp:Untitled.m4a\"
        set recording to new audio recording
        set visible of front window to false
        delay 2
        start recording
        delay 2
        stop recording
        export document \"Untitled\" in file savePath using settings preset \"Audio Only\"
        close (every document whose name contains \"Untitled\") saving no
        tell application \"System Events\" to click menu item \"Hide Export Progress\" of menu \"Window\" of menu bar 1 of process \"QuickTime Player\"
        delay 1
        quit
    end tell
AppleSampler' > /tmp/qt.scpt");
}

# #########################################################
# Screen DISPLAY setup function. For a terminal size of 80 x 24.
sub display
{
    # Set foreground and background graticule colours and foreground and background other window colours.
    print "\x1B[H\x1B[0;36;44m       +-------+-------+-------+---[\x1B[1;37;44mDISPLAY\x1B[0;36;44m]---+-------+-------+--------+       
       |       |       |       |       +       |       |       |        | \x1B[0;31;44mMAX\x1B[0;36;44m   
       |       |       |       |       +       |       |       |        |       
       |       |       |       |       +       |       |       |        |       
   \x1B[0;31;44m+ve\x1B[0;36;44m +-------+-------+-------+-------+-------+-------+-------+--------+       
       |       |       |       |       +       |       |       |        |       
       |       |       |       |       +       |       |       |        |       
       |       |       |       |       +       |       |       |        |       
     \x1B[1;32;44m0\x1B[0;36;44m +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+--+ \x1B[1;32;44mREF\x1B[0;36;44m   
       |       |       |       |       +       |       |       |        |       
       |       |       |       |       +       |       |       |        |       
       |       |       |       |       +       |       |       |        |       
   \x1B[0;30;44m-ve\x1B[0;36;44m +-------+-------+-------+-------+-------+-------+-------+--------+       
       |       |       |       |       +       |       |       |        |       
       |       |       |       |       +       |       |       |        |       
       |       |       |       |       +       |       |       |        |       
       |       |       |       |       +       |       |       |        | \x1B[0;30;44mMIN\x1B[0;36;44m   
       +-------+-------+-----[\x1B[1;37;44mAUDIO  OSCILLOGRAPH\x1B[0;36;44m]-----+-------+--------+       \x1B[0m\n\n";
}

# #########################################################
# Capture methods, '/dev/urandom', '/dev/dsp', '/usr/bin/arecord' and 'QuickTime Player'.
sub capture
{
    # IMPORTANT! None are used yet and NOT tested inside Perl.
    if ("$capture_mode" eq 'DEMO')
    {
        # DEMO mode that requires no HW access.
        system("/bin/dd if=/dev/urandom of=/tmp/waveform.raw bs=1 count=8000 > /dev/null 2>&1");
        sleep(1);
    }
    if ($capture_mode eq 'DSP')
    {
        # DSP mode for the likes of old Linux boxes and CygWin, (OSS or PulseAudio).
        system("/bin/dd if=/dev/dsp of=/tmp/waveform.raw bs=1 count=8000 > /dev/null 2>&1");
    }
    if ($capture_mode eq 'ALSA')
    {
        # ALSA mode for Linux boxes that have 'arecord'. !!! Not tested yet. !!!
        system("/usr/bin/arecord -d 1 -c 1 -f U8 -r 8000 -t raw /tmp/waveform.raw > /dev/null 2>&1");
    }
    if ($capture_mode eq 'QT')
    {
        # A crucifyingly SSLLOOWW mode for Apple, OSX Mojave.
        # Conversion to RAW file not done yet...
        system("/bin/sh", "/tmp/qt.scpt");
    }
}

# #########################################################
# Plot the points in the terminal window.
sub plotter
{
    for($horiz=9; $horiz<=72; $horiz=$horiz+1)
    {
        # Simulate an 8 bit grab and divide by 16 to give 4 bit depth.
        # Add offset of 2 to allow for missing the top graticule line.
        # IMPORTATNT! Using the builtin random number generator at present for DEMO.
        $vert=int(rand(256/16)+2);
        $plot="\x1B["."$vert".";"."$horiz"."f\x1B[1;37;44m*";
        print "$plot";
    }
}

# #########################################################
# Initiation and main loop.
clrscn;
if ($capture_mode eq 'QT')
{
    print "Setting up QT for first time (re)run!";
    QT_script;
    system("/bin/sh", "/tmp/qt.scpt");
}
display;
while(1)
{
    capture;
    display;
    plotter;
    print "\x1B[21;1f\x1B[0m$capture_mode mode, press Ctrl-C to stop! ";
}

AMIGA:amiga~/Desktop/Code/Perl> ls -l /tmp/                                     
total 80                                                                        
drwx------  4 root   wheel    128 16 Nov  2018 PKInstallSandbox.MMTz8b
-rw-r--r--@ 1 amiga  wheel  26312 20 Aug 20:38 Untitled.m4a
drwx------  3 amiga  wheel     96 20 Aug 18:15 com.apple.launchd.Dk0vVDZ1G8
drwx------  3 amiga  wheel     96 20 Aug 18:15 com.apple.launchd.y5Rib6CVUt
drwxr-xr-x  2 root   wheel     64 20 Aug 18:14 powerlog
-rw-r--r--  1 amiga  wheel    591 20 Aug 20:33 qt.scpt
-rw-r--r--  1 amiga  wheel   8000 20 Aug 20:50 waveform.raw
AMIGA:amiga~/Desktop/Code/Perl> cat /tmp/qt.scpt
/usr/bin/osascript << AppleSampler
    tell application "QuickTime Player"
        activate
        set savePath to "Macintosh HD:tmp:Untitled.m4a"
        set recording to new audio recording
        set visible of front window to false
        delay 2
        start recording
        delay 2
        stop recording
        export document "Untitled" in file savePath using settings preset "Audio Only"
        close (every document whose name contains "Untitled") saving no
        tell application "System Events" to click menu item "Hide Export Progress" of menu "Window" of menu bar 1 of process "QuickTime Player"
        delay 1
        quit
    end tell
AppleSampler
AMIGA:amiga~/Desktop/Code/Perl> _