lbajardsilogic@0: #!/bin/bash
lbajardsilogic@0: 
lbajardsilogic@0: audio=/data/music
lbajardsilogic@0: preferred=$audio/free
lbajardsilogic@0: list=audiofiles.txt
lbajardsilogic@0: used=audiofiles-used.txt
lbajardsilogic@0: 
lbajardsilogic@0: df=vamp:vamp-aubio:aubioonset:detectionfunction
lbajardsilogic@0: #df=vamp:qm-vamp-plugins:qm-tempotracker:detection_fn
lbajardsilogic@0: onsets=vamp:vamp-aubio:aubioonset:onsets
lbajardsilogic@0: #onsets=vamp:qm-vamp-plugins:qm-tempotracker:beats
lbajardsilogic@0: beats=vamp:vamp-aubio:aubiotempo:beats
lbajardsilogic@0: #beats=$onsets
lbajardsilogic@0: #onsets=$beats
lbajardsilogic@0: chromagram=vamp:qm-vamp-plugins:qm-chromagram:chromagram
lbajardsilogic@0: notes=vamp:vamp-aubio:aubionotes:notes
lbajardsilogic@0: 
lbajardsilogic@0: pid=`cat /tmp/demoscript.pid 2>/dev/null`
lbajardsilogic@0: if [ -n "$pid" ]; then
lbajardsilogic@0:     kill "$pid"
lbajardsilogic@0: fi
lbajardsilogic@0: echo $$ > /tmp/demoscript.pid
lbajardsilogic@0: trap "rm /tmp/demoscript.pid" 0
lbajardsilogic@0: 
lbajardsilogic@0: sv-command quit
lbajardsilogic@0: sleep 1
lbajardsilogic@0: killall -9 sonic-visualiser
lbajardsilogic@0: sleep 1
lbajardsilogic@0: 
lbajardsilogic@0: pick_file()
lbajardsilogic@0: {
lbajardsilogic@0:     file=""
lbajardsilogic@0:     count=`wc -l "$list" 2>/dev/null | awk '{ print $1 }'`
lbajardsilogic@0:     if [ ! -f "$list" ] || [ "$count" -eq "0" ] ; then
lbajardsilogic@0: 	find "$audio" -name \*.ogg -print >> "$list"
lbajardsilogic@0: 	find "$audio" -name \*.mp3 -print >> "$list"
lbajardsilogic@0: 	find "$audio" -name \*.wav -print >> "$list"
lbajardsilogic@0: 	find "$preferred" -name \*.ogg -print >> "$list"
lbajardsilogic@0: 	find "$preferred" -name \*.mp3 -print >> "$list"
lbajardsilogic@0: 	find "$preferred" -name \*.wav -print >> "$list"
lbajardsilogic@0: 	count=`wc -l "$list" 2>/dev/null | awk '{ print $1 }'`
lbajardsilogic@0:     fi
lbajardsilogic@0:     while [ -z "$file" ]; do
lbajardsilogic@0: 	index=$((RANDOM % $count))
lbajardsilogic@0: 	file=`tail +"$index" "$list" | head -1`
lbajardsilogic@0: 	[ -f "$file" ] || continue
lbajardsilogic@0:     done
lbajardsilogic@0:     fgrep -v "$file" "$list" > "$list"_ && mv "$list"_ "$list"
lbajardsilogic@0:     echo "$file"
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: load_a_file()
lbajardsilogic@0: {
lbajardsilogic@0:     file=`pick_file`
lbajardsilogic@0:     if ! sv-command open "$file"; then
lbajardsilogic@0: 	pid="`pidof sonic-visualiser`"
lbajardsilogic@0: 	if [ -z "$pid" ]; then
lbajardsilogic@0: 	    ( setsid sonic-visualiser -geometry 1000x500+10+100 & )
lbajardsilogic@0: 	    sleep 2
lbajardsilogic@0:             sudo renice +19 `pidof sonic-visualiser`
lbajardsilogic@0:             sudo renice +18 `pidof Xorg`
lbajardsilogic@0:             sv-command resize 1000 500
lbajardsilogic@0: 	    load_a_file
lbajardsilogic@0: 	else
lbajardsilogic@0: 	    echo "ERROR: Unable to contact sonic-visualiser pid $pid" 1>&2
lbajardsilogic@0: 	    exit 1
lbajardsilogic@0: 	fi
lbajardsilogic@0:     fi
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: show_stuff()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command set overlays 2
lbajardsilogic@0: #    sv-command set zoomwheels 1
lbajardsilogic@0:     sv-command set propertyboxes 1
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: hide_stuff()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command set overlays 0
lbajardsilogic@0: #    sv-command set zoomwheels 0
lbajardsilogic@0:     sv-command set propertyboxes 0
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: reset()
lbajardsilogic@0: {
lbajardsilogic@0:     for pane in 1 2 3 4 5; do
lbajardsilogic@0: 	for layer in 1 2 3 4 5 6 7 8 9 10; do
lbajardsilogic@0: 	    sv-command delete layer
lbajardsilogic@0: 	done
lbajardsilogic@0: 	sv-command delete pane
lbajardsilogic@0:     done
lbajardsilogic@0:     sv-command zoom default
lbajardsilogic@0:     sv-command add waveform
lbajardsilogic@0:     show_stuff
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: scroll_and_zoom()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command set overlays 0
lbajardsilogic@0:     sv-command set zoomwheels 0
lbajardsilogic@0:     sv-command set propertyboxes 0
lbajardsilogic@0: #    sv-command setcurrent 1 1
lbajardsilogic@0: #    sv-command delete layer
lbajardsilogic@0: #    sv-command setcurrent 1 1
lbajardsilogic@0:     sv-command set layer Colour Red
lbajardsilogic@0:     sleep 1
lbajardsilogic@0:     sv-command set pane Global-Zoom off
lbajardsilogic@0:     sv-command set pane Global-Scroll off
lbajardsilogic@0:     sv-command set pane Follow-Playback Scroll
lbajardsilogic@0:     for zoom in 950 900 850 800 750 700 650 600 550 512 450 400 350 300 256 192 160 128 96 64 48 32 24 16; do
lbajardsilogic@0: 	sv-command zoom $zoom
lbajardsilogic@0: 	sleep 0.1
lbajardsilogic@0:     done
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: play()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command play "$@"
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: fade_in()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command set gain 0
lbajardsilogic@0:     sleep 0.5
lbajardsilogic@0:     play "$@"
lbajardsilogic@0:     for gain in 0.001 0.01 0.05 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1; do
lbajardsilogic@0: 	sv-command set gain $gain
lbajardsilogic@0: 	sleep 0.1
lbajardsilogic@0:     done
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: fade_out()
lbajardsilogic@0: {
lbajardsilogic@0:     for gain in 0.9 0.8 0.7 0.6 0.5 0.4 0.3 0.2 0.1 0.05 0.01 0.001; do
lbajardsilogic@0: 	sv-command set gain $gain
lbajardsilogic@0: 	sleep 0.1
lbajardsilogic@0:     done
lbajardsilogic@0:     stop
lbajardsilogic@0:     sv-command set gain 1
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: slow()
lbajardsilogic@0: {
lbajardsilogic@0: #    for speed in -1 -10 -20 -30 -40 -50 -60 -70 -80 -100 -140 -200 -250 -300 -400 -500 -700 -800 -900 -1000; do
lbajardsilogic@0: #	sv-command set speedup "$speed"
lbajardsilogic@0: #	sleep 1
lbajardsilogic@0: #    done
lbajardsilogic@0:     for speed in -20 -100 -1000; do
lbajardsilogic@0:         sv-command set speedup "$speed"
lbajardsilogic@0:         sleep 10
lbajardsilogic@0:     done
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: stop()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command stop "$@"
lbajardsilogic@0:     sv-command set speedup 0
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: quit()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command quit
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: add_melodic_range_spectrogram()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command set propertyboxes 1
lbajardsilogic@0:     sv-command add spectrogram
lbajardsilogic@0:     sv-command set layer Window-Size 8192
lbajardsilogic@0: #    sv-command set layer Window-Size 4096
lbajardsilogic@0:     sv-command set layer Window-Overlap 4
lbajardsilogic@0: #    sv-command set layer Window-Overlap 3
lbajardsilogic@0:     sv-command set layer Frequency-Scale Log
lbajardsilogic@0:     sv-command set layer Colour-Scale Meter
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: zoom_in_spectrogram() 
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command zoomvertical 43 8000
lbajardsilogic@0:     for x in 1 2 3 4 5 6; do
lbajardsilogic@0: 	max=$((8000 - 1000*$x))
lbajardsilogic@0: 	sv-command zoomvertical 43 "$max"
lbajardsilogic@0: 	sleep 0.5
lbajardsilogic@0:     done
lbajardsilogic@0:     for x in 1 2 3 4 5; do
lbajardsilogic@0: 	max=$((2000 - 100 * $x))
lbajardsilogic@0: 	sv-command zoomvertical 43 "$max"
lbajardsilogic@0: 	sleep 0.5
lbajardsilogic@0:     done
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: zoom_in_spectrogram_further() 
lbajardsilogic@0: {
lbajardsilogic@0:     for x in 1 2 3 4 5; do
lbajardsilogic@0: 	sv-command zoomvertical in
lbajardsilogic@0:     done
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: playback_bits()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command setcurrent 1
lbajardsilogic@0:     sv-command set pane Global-Zoom off
lbajardsilogic@0:     sv-command set pane Global-Scroll off
lbajardsilogic@0:     sv-command set pane Follow-Playback Scroll
lbajardsilogic@0:     sv-command jump 10
lbajardsilogic@0:     sv-command setcurrent 1 1
lbajardsilogic@0:     sv-command delete layer
lbajardsilogic@0:     sv-command setcurrent 1 1
lbajardsilogic@0: #    sv-command setcurrent 1 2
lbajardsilogic@0:     sv-command set layer Colour Blue
lbajardsilogic@0:     sleep 5
lbajardsilogic@0:     hide_stuff
lbajardsilogic@0:     sv-command set overlays 0
lbajardsilogic@0:     sv-command set zoomwheels 0
lbajardsilogic@0:     sv-command set propertyboxes 0
lbajardsilogic@0:     fade_in
lbajardsilogic@0:     sleep 10
lbajardsilogic@0: #    sv-command set layer Colour Blue
lbajardsilogic@0: #    sleep 1
lbajardsilogic@0: #    sv-command set layer Colour Orange
lbajardsilogic@0: #    sleep 1
lbajardsilogic@0: #    sv-command set layer Colour Red
lbajardsilogic@0: #    sleep 1
lbajardsilogic@0: #    sv-command set layer Colour Green
lbajardsilogic@0: #    sleep 1
lbajardsilogic@0: #    sleep 1
lbajardsilogic@0:     
lbajardsilogic@0:     
lbajardsilogic@0: #    scroll_and_zoom
lbajardsilogic@0: 
lbajardsilogic@0: #    sv-command set overlays 0
lbajardsilogic@0: #    sv-command set zoomwheels 0
lbajardsilogic@0: #    sv-command set propertyboxes 0
lbajardsilogic@0: #    sv-command setcurrent 1 1
lbajardsilogic@0: #    sv-command delete layer
lbajardsilogic@0: #    sv-command setcurrent 1 1
lbajardsilogic@0: #    sv-command set layer Colour Red
lbajardsilogic@0: #    sleep 1
lbajardsilogic@0: #    sv-command set pane Global-Zoom off
lbajardsilogic@0: #    sv-command set pane Global-Scroll off
lbajardsilogic@0: #    sv-command set pane Follow-Playback Scroll
lbajardsilogic@0:     sv-command set zoomwheels 1
lbajardsilogic@0:     sleep 1
lbajardsilogic@0:     for zoom in 950 900 850 800 750 700 650 600 550 512 450 400 350 300 256 192 160 128 96 64 48 32 24 16; do
lbajardsilogic@0: 	sv-command zoom $zoom
lbajardsilogic@0: 	sleep 0.1
lbajardsilogic@0:     done
lbajardsilogic@0:     
lbajardsilogic@0:     sleep 1
lbajardsilogic@0:     sv-command set zoomwheels 0
lbajardsilogic@0:     sv-command zoom 16
lbajardsilogic@0: 
lbajardsilogic@0:     sleep 10
lbajardsilogic@0:     #slow
lbajardsilogic@0:     #sv-command set layer Normalize-Visible-Area on
lbajardsilogic@0: #    for zoom in 15 14 13 12 11 10 9 8 7 6 5 4 ; do
lbajardsilogic@0: #	sv-command zoom $zoom
lbajardsilogic@0: #	sleep 0.1
lbajardsilogic@0:  #   done
lbajardsilogic@0:     sleep 1
lbajardsilogic@0:     sv-command set zoomwheels 0
lbajardsilogic@0:     slow
lbajardsilogic@0:     sleep 7
lbajardsilogic@0:     fade_out
lbajardsilogic@0:     sv-command setcurrent 1
lbajardsilogic@0:     sv-command set pane Follow-Playback Page
lbajardsilogic@0:     sv-command set pane Global-Zoom on
lbajardsilogic@0:     sv-command set pane Global-Scroll on
lbajardsilogic@0:     done_playback_bits=1
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: spectrogram_bits()
lbajardsilogic@0: {
lbajardsilogic@0:     sv-command set pane Global-Zoom on
lbajardsilogic@0:     sv-command zoom 1024
lbajardsilogic@0:     add_melodic_range_spectrogram
lbajardsilogic@0:     sv-command zoom 1024
lbajardsilogic@0:     sleep 5
lbajardsilogic@0:     sv-command jump 10
lbajardsilogic@0:     sleep 20
lbajardsilogic@0:     zoom_in_spectrogram
lbajardsilogic@0:     sleep 20
lbajardsilogic@0: 
lbajardsilogic@0:     sv-command select 7.5 11
lbajardsilogic@0:     fade_in selection
lbajardsilogic@0:     sleep 10
lbajardsilogic@0:     sv-command set speedup -200
lbajardsilogic@0:     sleep 10
lbajardsilogic@0:     sv-command setcurrent 1
lbajardsilogic@0:     sv-command delete pane
lbajardsilogic@0:     sv-command zoom in
lbajardsilogic@0:     sv-command setcurrent 1 2
lbajardsilogic@0:     sv-command set layer Normalize-Columns off
lbajardsilogic@0:     sv-command set layer Normalize-Visible-Area on
lbajardsilogic@0:     sleep 20
lbajardsilogic@0:     sv-command set speedup 0
lbajardsilogic@0:     sleep 10
lbajardsilogic@0:     sv-command select none
lbajardsilogic@0: #    fade_out
lbajardsilogic@0: 
lbajardsilogic@0: #    if [ -n "$done_playback_bits" ]; then
lbajardsilogic@0: #	sv-command setcurrent 1
lbajardsilogic@0: #	sv-command zoom out
lbajardsilogic@0: #	sv-command zoom outvamp:qm-vamp-plugins:qm-chromagram:chromagram
lbajardsilogic@0: #	sv-command zoom out
lbajardsilogic@0: #	sv-command zoom out
lbajardsilogic@0: #	sv-command zoom out
lbajardsilogic@0: #	sv-command setcurrent 2
lbajardsilogic@0: #    fi
lbajardsilogic@0:     
lbajardsilogic@0: #    hide_stuff
lbajardsilogic@0: #    fade_in
lbajardsilogic@0:     sleep 10
lbajardsilogic@0: #    sv-command set layer Bin-Display Frequencies
lbajardsilogic@0: #    sv-command set layer Normalize-Columns on
lbajardsilogic@0: #    sleep 20
lbajardsilogic@0:     sv-command set layer Bin-Display "All Bins"
lbajardsilogic@0:     sv-command set layer Normalize-Columns on
lbajardsilogic@0:     sv-command set layer Normalize-Visible-Area off
lbajardsilogic@0:     sv-command set layer Colour-Scale 0
lbajardsilogic@0:     sv-command set layer Colour "Red on Blue"
lbajardsilogic@0:     sv-command zoomvertical 23 800
lbajardsilogic@0:     sleep 20
lbajardsilogic@0:     sv-command transform $onsets
lbajardsilogic@0:     sv-command set layer Colour Orange
lbajardsilogic@0:     sleep 20
lbajardsilogic@0:     fade_out
lbajardsilogic@0:     sleep 1
lbajardsilogic@0: #    sv-command jump 10
lbajardsilogic@0: #    sv-command setcurrent 1 2
lbajardsilogic@0: #    sv-command set layer Colour "Black on White"
lbajardsilogic@0: #    sv-command transform $notes
lbajardsilogic@0: #    sv-command set layer Colour Orange
lbajardsilogic@0:     sleep 10
lbajardsilogic@0: #    sv-command setcurrent 1 3
lbajardsilogic@0: #    sv-command delete layer
lbajardsilogic@0:     sv-command setcurrent 1 3
lbajardsilogic@0:     sv-command delete layer
lbajardsilogic@0:     sv-command setcurrent 1 2
lbajardsilogic@0:     sv-command set layer Colour Default
lbajardsilogic@0:     done_spectrogram_bits=1
lbajardsilogic@0: 
lbajardsilogic@0: #    zoom_in_spectrogram_further
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: onset_bits()
lbajardsilogic@0: {
lbajardsilogic@0:     show_stuff
lbajardsilogic@0:     sv-command set zoomwheels 0
lbajardsilogic@0:     sv-command setcurrent 1
lbajardsilogic@0:     sv-command set pane Global-Zoom on
lbajardsilogic@0:     sv-command set pane Global-Scroll on
lbajardsilogic@0:     sleep 0.5
lbajardsilogic@0:     sv-command set layer Colour Blue
lbajardsilogic@0:     sleep 0.5
lbajardsilogic@0:     sv-command set layer Colour Orange
lbajardsilogic@0:     sleep 0.5
lbajardsilogic@0:     sv-command set layer Colour Red
lbajardsilogic@0:     sleep 0.5
lbajardsilogic@0:     sv-command set layer Colour Green
lbajardsilogic@0:     sleep 1
lbajardsilogic@0: #    sleep 1
lbajardsilogic@0: #    if [ -n "$done_spectrogram_bits" ]; then
lbajardsilogic@0: #	sv-command setcurrent 2
lbajardsilogic@0: #	sv-command delete pane
lbajardsilogic@0: #    fi
lbajardsilogic@0: #    sv-command zoom default
lbajardsilogic@0: #    sv-command zoom in
lbajardsilogic@0: #    sv-command zoom in
lbajardsilogic@0: #    sv-command zoom in
lbajardsilogic@0:     sv-command zoom 192
lbajardsilogic@0:     sv-command zoom in
lbajardsilogic@0:     sv-command add timeruler
lbajardsilogic@0:     sv-command jump 0
lbajardsilogic@0:     sv-command transform $df
lbajardsilogic@0:     sv-command set layer Colour Black
lbajardsilogic@0:     sleep 5
lbajardsilogic@0:     sv-command set layer Plot-Type Curve
lbajardsilogic@0:     sleep 5
lbajardsilogic@0:     sv-command jump 30
lbajardsilogic@0:     sv-command setcurrent 1
lbajardsilogic@0:     sv-command set pane Follow-Playback Page
lbajardsilogic@0:     sv-command transform $df
lbajardsilogic@0:     sv-command set layer Colour Red
lbajardsilogic@0:     sleep 5
lbajardsilogic@0:     sv-command jump 30
lbajardsilogic@0:     sleep 5
lbajardsilogic@0:     if [ "$RANDOM" -lt 16384 ]; then
lbajardsilogic@0:         sv-command set layer Vertical-Scale "Log Scale"
lbajardsilogic@0:     fi
lbajardsilogic@0:     sv-command set layer Plot-Type Segmentation
lbajardsilogic@0:     sleep 5 
lbajardsilogic@0: #    hide_stuff
lbajardsilogic@0:     sleep 10
lbajardsilogic@0:     sv-command set overlays 0
lbajardsilogic@0:     sv-command set propertyboxes 0
lbajardsilogic@0: #    sv-command setcurrent 1 1
lbajardsilogic@0: #    sv-command set layer Colour Black
lbajardsilogic@0: #    sv-command setcurrent 1 2
lbajardsilogic@0:     sleep 2
lbajardsilogic@0:     fade_in
lbajardsilogic@0:     sleep 2
lbajardsilogic@0:     sv-command transform $onsets
lbajardsilogic@0:     sv-command set layer Colour Black
lbajardsilogic@0:     sv-command setcurrent 2
lbajardsilogic@0:     sv-command transform $onsets
lbajardsilogic@0:     sv-command set layer Colour Blue
lbajardsilogic@0:     sleep 20
lbajardsilogic@0: #    sv-command setcurrent 2
lbajardsilogic@0: #    sv-command transform vamp:qm-vamp-plugins:qm-tempotracker:beats
lbajardsilogic@0: #    sv-command transform $beats
lbajardsilogic@0:     sleep 20
lbajardsilogic@0: #    fade_out
lbajardsilogic@0: #    show_stuff
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: selection_bits()
lbajardsilogic@0: {
lbajardsilogic@0: #    reset
lbajardsilogic@0:     sv-command set overlays 1
lbajardsilogic@0:     sv-command set zoomwheels 0
lbajardsilogic@0:     sv-command resize 1000 500
lbajardsilogic@0:     sv-command zoom default
lbajardsilogic@0:     sv-command setcurrent 2
lbajardsilogic@0:     sv-command delete pane
lbajardsilogic@0: #    if [ -n "$done_playback_bits" ]; then
lbajardsilogic@0: 	sv-command setcurrent 1 2
lbajardsilogic@0: #    else
lbajardsilogic@0: #	sv-command setcurrent 1 3
lbajardsilogic@0: #    fi
lbajardsilogic@0:     sv-command delete layer
lbajardsilogic@0: #    if [ -n "$done_playback_bits" ]; then
lbajardsilogic@0: 	sv-command setcurrent 1 2
lbajardsilogic@0: #    else
lbajardsilogic@0: #	sv-command setcurrent 1 3
lbajardsilogic@0: #    fi
lbajardsilogic@0:     sv-command delete layer
lbajardsilogic@0:     sv-command setcurrent 1 2
lbajardsilogic@0:     sv-command set layer Colour Orange
lbajardsilogic@0: #    sv-command transform vamp:qm-vamp-plugins:qm-tempotracker:beats
lbajardsilogic@0:     sv-command transform $beats
lbajardsilogic@0: #    sv-command setcurrent 1 2
lbajardsilogic@0:     sv-command set layer Colour Black
lbajardsilogic@0:     sleep 20
lbajardsilogic@0:     sv-command loop on
lbajardsilogic@0:     base=$((RANDOM % 100))
lbajardsilogic@0:     sv-command select $base $base.3
lbajardsilogic@0: #    fade_in selection
lbajardsilogic@0:     play selection
lbajardsilogic@0:     sleep 8
lbajardsilogic@0:     base=$((base + 4))
lbajardsilogic@0:     sv-command addselect $base $base.1
lbajardsilogic@0:     #sleep 12
lbajardsilogic@0:     base=$((base + 2))
lbajardsilogic@0:     sv-command addselect $base $base.1
lbajardsilogic@0:     #sleep 6
lbajardsilogic@0:     base=$((base + 2))
lbajardsilogic@0:     sv-command addselect $base $base.3
lbajardsilogic@0:     #sleep 6
lbajardsilogic@0:     base=$((base + 3))
lbajardsilogic@0:     sv-command addselect $base $base.3
lbajardsilogic@0:     #sleep 6
lbajardsilogic@0:     base=$((base + 2))
lbajardsilogic@0:     sv-command addselect $base $base.3
lbajardsilogic@0:     sleep 4
lbajardsilogic@0:     sv-command delete layer
lbajardsilogic@0:     sleep 16
lbajardsilogic@0:     sv-command set speedup -50
lbajardsilogic@0:     sleep 14
lbajardsilogic@0:     sv-command set speedup 50
lbajardsilogic@0:     sleep 8
lbajardsilogic@0:     sv-command set speedup 100
lbajardsilogic@0:     sleep 5
lbajardsilogic@0:     sv-command set speedup 200
lbajardsilogic@0:     fade_out
lbajardsilogic@0: #    sleep 10
lbajardsilogic@0:     sv-command select none
lbajardsilogic@0:     sv-command set overlays 2
lbajardsilogic@0:     sv-command set propertyboxes 1
lbajardsilogic@0: #    sv-command setcurrent 1 3
lbajardsilogic@0: #    sv-command delete layer
lbajardsilogic@0:     sv-command setcurrent 1 2
lbajardsilogic@0:     sv-command set layer Colour Black
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: chromagram_bits()
lbajardsilogic@0: {
lbajardsilogic@0: #    add_melodic_range_spectrogram
lbajardsilogic@0: #    sleep 10
lbajardsilogic@0:     sv-command add timeruler
lbajardsilogic@0:     sleep 5
lbajardsilogic@0:     sv-command jump 10
lbajardsilogic@0:     sv-command zoom out
lbajardsilogic@0:     sleep 5
lbajardsilogic@0:     sv-command transform $chromagram
lbajardsilogic@0:     sleep 40
lbajardsilogic@0:     sv-command zoom out
lbajardsilogic@0:     fade_in
lbajardsilogic@0:     sleep 20
lbajardsilogic@0:     fade_out
lbajardsilogic@0: }
lbajardsilogic@0: 
lbajardsilogic@0: while /bin/true; do
lbajardsilogic@0: 
lbajardsilogic@0: sleep 2
lbajardsilogic@0: load_a_file
lbajardsilogic@0: sv-command loop on
lbajardsilogic@0: 
lbajardsilogic@0: sv-command resize 1000 500
lbajardsilogic@0: show_stuff
lbajardsilogic@0: sleep 5
lbajardsilogic@0: sleep 20
lbajardsilogic@0: playback_bits
lbajardsilogic@0: 
lbajardsilogic@0: #sleep 10
lbajardsilogic@0: sv-command resize 1000 700
lbajardsilogic@0: sv-command zoom default
lbajardsilogic@0: show_stuff
lbajardsilogic@0: onset_bits
lbajardsilogic@0: 
lbajardsilogic@0: selection_bits
lbajardsilogic@0: 
lbajardsilogic@0: #sv-command resize 1000 700
lbajardsilogic@0: 
lbajardsilogic@0: #sleep 10
lbajardsilogic@0: sv-command resize 1000 700
lbajardsilogic@0: #show_stuff
lbajardsilogic@0: spectrogram_bits
lbajardsilogic@0: 
lbajardsilogic@0: #sleep 10
lbajardsilogic@0: #sv-command jump 0
lbajardsilogic@0: #show_stuff
lbajardsilogic@0: #chromagram_bits
lbajardsilogic@0: 
lbajardsilogic@0: sleep 20
lbajardsilogic@0: 
lbajardsilogic@0: #reset
lbajardsilogic@0: killall -9 sonic-visualiser
lbajardsilogic@0: 
lbajardsilogic@0: done