From 9d91426871fc7e25c277f5ee9a468d0bc311f101 Mon Sep 17 00:00:00 2001
From: Michael Murtaugh <mm@automatist.org>
Date: Tue, 12 May 2020 14:03:28 +0200
Subject: [PATCH] liquidsoap files

---
 Makefile                        |  5 +++
 liquidsoap/complex_schedule.liq | 60 +++++++++++++++++++++++++++++++++
 liquidsoap/counting.pls         |  3 ++
 liquidsoap/dj.liq               |  8 +++++
 liquidsoap/live_interrupt.liq   | 19 +++++++++++
 liquidsoap/make_speech.sh       |  6 ++++
 liquidsoap/make_stereo.sh       |  2 ++
 liquidsoap/noise.pls            |  3 ++
 liquidsoap/overlaps.sh          | 10 ++++++
 liquidsoap/playlist.liq         | 14 ++++++++
 liquidsoap/playlist.pls         |  4 +++
 liquidsoap/playlist.sh          | 15 +++++++++
 liquidsoap/prototyping.pls      |  3 ++
 liquidsoap/tonesequence.liq     | 14 ++++++++
 14 files changed, 166 insertions(+)
 create mode 100644 liquidsoap/complex_schedule.liq
 create mode 100644 liquidsoap/counting.pls
 create mode 100755 liquidsoap/dj.liq
 create mode 100755 liquidsoap/live_interrupt.liq
 create mode 100644 liquidsoap/make_speech.sh
 create mode 100644 liquidsoap/make_stereo.sh
 create mode 100644 liquidsoap/noise.pls
 create mode 100755 liquidsoap/overlaps.sh
 create mode 100755 liquidsoap/playlist.liq
 create mode 100644 liquidsoap/playlist.pls
 create mode 100644 liquidsoap/playlist.sh
 create mode 100644 liquidsoap/prototyping.pls
 create mode 100755 liquidsoap/tonesequence.liq

diff --git a/Makefile b/Makefile
index d498501..98f4ffa 100644
--- a/Makefile
+++ b/Makefile
@@ -5,3 +5,8 @@ README.html: README.md
 	    --standalone \
 	    --css style.css \
 	    $< -o $@
+
+liquidsoap/brownnoise.mp3:
+	sox -c2 -r44100 -n -t wav - synth 0.2 brownnoise vol 1.0 > liquidsoap/brownnoise.wav
+	ffmpeg -i liquidsoap/brownnoise.wav liquidsoap/brownoise.mp3
+	rm liquidsoap/brownnoise.wav
diff --git a/liquidsoap/complex_schedule.liq b/liquidsoap/complex_schedule.liq
new file mode 100644
index 0000000..7e14d9a
--- /dev/null
+++ b/liquidsoap/complex_schedule.liq
@@ -0,0 +1,60 @@
+#!/usr/bin/liquidsoap
+# TAKEN FROM https://www.oshyn.com/Blogs/2010/June/Audio-and-Video-Streaming-with-Liquidsoap-and-Icecast
+# Set the files and playlists,
+default = single("/root/default.mp3")
+jingles = playlist("/root/jingles")
+tech =  playlist.safe("/root/featured/tech")
+minimal = playlist("/root/featured/minimal")
+prog_trance = playlist("/root/featured/prog trance")
+tech_trance = playlist("/root/featured/tech trance")
+electro_house = playlist("/root/featured/electro house")
+prog_house = playlist("/root/featured/prog house")
+psy = playlist("/root/featured/psy")
+chillout = playlist("/root/featured/chillout")
+sets = playlist("/root/featured/sets")
+liveset = mksafe(input.http("http://66.7.216.22:8968"))
+liveset = rewrite_metadata([("artist", "Santiago Saa"),("title", "120 minutest Live")], liveset)
+# Play files and playlists according to the radio program,
+# and the default file if anything goes wrong.
+radio = fallback(
+  [ switch( track_sensitive=false,
+    [
+      ({ (1w or 2w or 3w) and 5h-8h }, prog_house),
+      ({ (4w or 5w) and 5h05-8h }, prog_house),
+      ({ (1w or 2w or 3w or 4w or 5w) and 8h-11h }, prog_trance),
+      ({ (1w or 2w or 3w or 4w or 5w) and 11h-13h }, electro_house),
+      ({ (1w or 2w or 3w or 4w or 5w) and 13h-15h }, prog_house),
+      ({ (1w or 2w or 3w or 4w or 5w) and 15h-17h }, tech),
+      ({ (1w or 2w or 3w or 4w or 5w) and 17h-20h }, sets),
+      ({ (1w or 2w or 3w or 4w or 5w) and 20h-22h }, tech),
+      ({ (1w or 2w or 3w or 4w or 5w) and 22h-0h }, prog_house),
+      ({ 2w and 0h-5h }, psy),
+      ({ 3w and 0h-5h }, psy),
+      ({ 4w and 0h-3h }, psy),
+      ({ 4w and 3h-5h05 }, liveset),
+      ({ 5w and 0h-3h }, psy),
+      ({ 5w and 3h-5h05 }, liveset),
+      ({ 6w and 0h-3h }, psy),
+      ({ 6w and 3h-5h05 }, liveset),
+      ({ 6w and 5h05-8h }, psy),
+      ({ 6w and 8h-11h }, tech_trance),
+      ({ 6w and 11h-18h }, prog_trance),
+      ({ 6w and 18h-21h }, tech_trance),
+      ({ 6w and 21h-0h }, psy),
+      ({ 7w and 0h-2h }, tech_trance),
+      ({ 7w and 2h-3h }, psy),
+      ({ 7w and 3h-5h }, psy),
+      ({ 7w and 5h-7h }, tech),
+      ({ 7w and 7h-23h59 }, minimal),
+      ({ 1w and 0h-5h }, minimal),
+      ({ true }, tech),
+    ]),
+  tech])
+# Add the normal jingles
+radio = random(weights=[1,5],[ jingles, radio ])
+# Output the full stream in OGG and MP3
+output.icecast.mp3(
+  host="localhost",port=80, user”radio”,password="hackmeradio",
+  genre="Electronica",url="http://localhost",
+  description="Radio",mount="radio",
+  name="(((( Evolution Bass Radio ))))", bitrate=128,radio)
diff --git a/liquidsoap/counting.pls b/liquidsoap/counting.pls
new file mode 100644
index 0000000..a65d1bf
--- /dev/null
+++ b/liquidsoap/counting.pls
@@ -0,0 +1,3 @@
+speech0001.mp3
+speech0002.mp3
+speech0003.mp3
diff --git a/liquidsoap/dj.liq b/liquidsoap/dj.liq
new file mode 100755
index 0000000..9949bb4
--- /dev/null
+++ b/liquidsoap/dj.liq
@@ -0,0 +1,8 @@
+#!/usr/bin/liquidsoap -v
+
+set("log.file.path","/tmp/<script>.log")
+set("log.stdout",true)
+
+recipe = playlist("playlist.pls")
+# dj = say_metadata(playlist("playlist.pls"))
+out(dj)
diff --git a/liquidsoap/live_interrupt.liq b/liquidsoap/live_interrupt.liq
new file mode 100755
index 0000000..7da6259
--- /dev/null
+++ b/liquidsoap/live_interrupt.liq
@@ -0,0 +1,19 @@
+#!/usr/bin/liquidsoap -v
+
+set("log.file.path","/tmp/<script>.log")
+set("log.stdout",true)
+
+%include "passwords.liq"
+
+# Add the ability to relay live shows
+liveorstatic =
+  fallback(track_sensitive=false,
+           [input.http("http://echo.lurk.org:999/prototyping_live.ogg"),
+            single("brownnoise.mp3")])
+
+output.icecast(%vorbis,
+     host = ICECAST_SERVER_HOST, port = ICECAST_SERVER_PORT,
+     password = ICECAST_SERVER_PASSWORD, mount = "prototyping.ogg",
+     mksafe(liveorstatic))
+
+# out(liveorstatic)
\ No newline at end of file
diff --git a/liquidsoap/make_speech.sh b/liquidsoap/make_speech.sh
new file mode 100644
index 0000000..61812aa
--- /dev/null
+++ b/liquidsoap/make_speech.sh
@@ -0,0 +1,6 @@
+i=1
+for word in one two three
+do
+    espeak "$word" -w `printf speech%04d.wav $i`
+i=$((i+1))
+done
\ No newline at end of file
diff --git a/liquidsoap/make_stereo.sh b/liquidsoap/make_stereo.sh
new file mode 100644
index 0000000..cfc320d
--- /dev/null
+++ b/liquidsoap/make_stereo.sh
@@ -0,0 +1,2 @@
+ffmpeg -i $1 -filter_complex "[0:a][0:a]amerge=inputs=2[a]" -map "[a]" $2
+
diff --git a/liquidsoap/noise.pls b/liquidsoap/noise.pls
new file mode 100644
index 0000000..1144d00
--- /dev/null
+++ b/liquidsoap/noise.pls
@@ -0,0 +1,3 @@
+brownnoise.mp3
+noise.mp3
+pinknoise.mp3
diff --git a/liquidsoap/overlaps.sh b/liquidsoap/overlaps.sh
new file mode 100755
index 0000000..6444ab4
--- /dev/null
+++ b/liquidsoap/overlaps.sh
@@ -0,0 +1,10 @@
+#!/usr/bin/liquidsoap -v
+
+set("log.file.path","/tmp/<script>.log")
+set("log.stdout",true)
+
+counting = playlist("counting.pls")
+noise = playlist("noise.pls")
+# dj = say_metadata(playlist("playlist.pls"))
+mix = add([counting, noise])
+out(mix)
diff --git a/liquidsoap/playlist.liq b/liquidsoap/playlist.liq
new file mode 100755
index 0000000..3703fea
--- /dev/null
+++ b/liquidsoap/playlist.liq
@@ -0,0 +1,14 @@
+#!/usr/bin/liquidsoap -v
+
+# You need to include these two lines in any standalone
+# liquidsoap script (otherwise you get permissions errors)
+
+set("log.file.path","/tmp/<script>.log")
+set("log.stdout",true)
+
+%include "passwords.liq"
+
+output.icecast(%vorbis,
+     host = ICECAST_SERVER_HOST, port = ICECAST_SERVER_PORT,
+     password = ICECAST_SERVER_PASSWORD, mount = "prototyping_live.ogg",
+     mksafe(playlist("prototyping.pls")))
diff --git a/liquidsoap/playlist.pls b/liquidsoap/playlist.pls
new file mode 100644
index 0000000..c17fbbe
--- /dev/null
+++ b/liquidsoap/playlist.pls
@@ -0,0 +1,4 @@
+brown.mp3
+speech0001.mp3
+speech0002.mp3
+speech0003.mp3
diff --git a/liquidsoap/playlist.sh b/liquidsoap/playlist.sh
new file mode 100644
index 0000000..df1bf01
--- /dev/null
+++ b/liquidsoap/playlist.sh
@@ -0,0 +1,15 @@
+# play a playlist file
+# to an icecase server
+
+# liquidsoap \
+#   'output.icecast(%vorbis,
+#      host = "your.server.net", port = PORT,
+#      password = "PASSWORD", mount = "RADIO.MP3",
+#      mksafe(playlist("playlist.m3u")))
+
+%include "passwords.liq"
+
+output.icecast(%vorbis,
+     host = ICECAST_SERVER_HOST, port = ICECAST_SERVER_PORT,
+     password = ICECAST_SERVER_PASSWORD, mount = "radioimplicancies.mp3",
+     mksafe(playlist("playlist.m3u")))
diff --git a/liquidsoap/prototyping.pls b/liquidsoap/prototyping.pls
new file mode 100644
index 0000000..a65d1bf
--- /dev/null
+++ b/liquidsoap/prototyping.pls
@@ -0,0 +1,3 @@
+speech0001.mp3
+speech0002.mp3
+speech0003.mp3
diff --git a/liquidsoap/tonesequence.liq b/liquidsoap/tonesequence.liq
new file mode 100755
index 0000000..7adbbb4
--- /dev/null
+++ b/liquidsoap/tonesequence.liq
@@ -0,0 +1,14 @@
+#!/usr/bin/liquidsoap -v
+
+set("log.file.path","/tmp/<script>.log")
+set("log.stdout",true)
+
+out(
+   rotate([
+        square(220.0,amplitude=0.02,duration=1.0),
+        square(260.0,amplitude=0.02,duration=1.0),
+        square(300.0,amplitude=0.02,duration=1.0),
+        square(360.0,amplitude=0.02,duration=1.0),
+        sine(440.0,amplitude=0.02,duration=1.0)
+    ])
+)