Aardbei MegaLoler

## parallel.scpt
-- Choose some line-aligned text files to read line by line
-- For exmaple, the first one in German, the second one in Dutch, and the third in English
-- The lines of the first file will be read aloud using text-to-speech

set srcFiles to {}
set fileLns to {}
repeat
	set srcFile to (choose file with prompt ("L" & (length of srcFiles) + 1)) as text
	copy srcFile to end of srcFiles
	copy paragraphs of (read file srcFile as «class utf8») to end of fileLns

## vuby.html
<html>
	<head>
		<title>Bouncing Vubes are Godo</title>
		<style>

		#id
		{
			padding: 0px;
			margin: 0px;
			border: 0px;

## marble.html
<html>
	<head>
		<title>Marb Maze Yo</title>
		<style>

		#id
		{
			padding: 0px;
			margin: 0px;
			border: 0px;

## subtitlestudier.py
#!/usr/bin/python3

from subprocess import Popen
import os
import sys
import time
import random
import requests
import urllib.parse
import re

## launchseq.c
// by megaloler!  (megaloler9000@gmail.com)
// a custom 100% midi-controlled live loop-based sequencer for the launchkey mini!

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <signal.h>
#include <alsa/asoundlib.h>

#define ALSA_CLIENT_NAME "LaunchSEQ"

## avr_softsynth.asm
.define NOTE_C 262
.define NOTE_Cs 277
.define NOTE_D 294
.define NOTE_Ds 311
.define NOTE_E 330
.define NOTE_F 349
.define NOTE_Fs 370
.define NOTE_G 392
.define NOTE_Gs 415
.define NOTE_A 440

## sub-eval.scm
;; todo: variable constrainns throughout whole sub-eval
;;       avoid infinite wildcard vars!!
;;       figure out the perfect eval order...
;;       how to handle infinite recursive rules?
;;       inductive programming ? ?

;; return possible evaluations by substitution of expression according to rules
(define (sub-eval expression rules direction)
  (let ((subs (sub expression rules direction)))
    (if (not (null? subs))

## dsp.scm
#!/usr/bin/chibi-scheme
(import (scheme r5rs)
	(scheme base)
	(chibi io))

; plot function f
; start with x = start
; get next value by applying function next-f to value
; for number of samples
; output vector vec

## subcleaner.lisp
#!/usr/bin/sbcl --script
;; a simple script to clean up .srt files
;; - removes html and other formatting
;; - removes duplicate segments (after removing formatting)
;; - merges consecutive segments with same start time
;;
;; usage: ./subcleaner.lisp < input.srt > output.srt
;;
;; todo:
;; - handle entries with double new lines?

## memrise.lisp
#!/usr/bin/sbcl --script
;; a simple script to scrape the html of a japanese memrise course edit page
;; change the main function at the very bottom to select output type
;; - main:   outputs .tsv
;; - main-2: outputs .html
;; - main-3: outputs list of audio links
;; - main-4: outputs .tsv with audio links formatted for anki (and urls converted to sound file names, so download the audio files and put them in your anki media folder)
;; usage: ./memrise.lisp < memrise.html > output_file

(defun split-with-subseq (seq subseq)
	-- Choose some line-aligned text files to read line by line
	-- For exmaple, the first one in German, the second one in Dutch, and the third in English
	-- The lines of the first file will be read aloud using text-to-speech

	set srcFiles to {}
	set fileLns to {}
	repeat
	set srcFile to (choose file with prompt ("L" & (length of srcFiles) + 1)) as text
	copy srcFile to end of srcFiles
	copy paragraphs of (read file srcFile as «class utf8») to end of fileLns
	<html>
	<head>
	<title>Bouncing Vubes are Godo</title>
	<style>

	#id
	{
	padding: 0px;
	margin: 0px;
	border: 0px;
	<html>
	<head>
	<title>Marb Maze Yo</title>
	<style>

	#id
	{
	padding: 0px;
	margin: 0px;
	border: 0px;
	#!/usr/bin/python3

	from subprocess import Popen
	import os
	import sys
	import time
	import random
	import requests
	import urllib.parse
	import re
	// by megaloler! (megaloler9000@gmail.com)
	// a custom 100% midi-controlled live loop-based sequencer for the launchkey mini!

	#include <stdio.h>
	#include <stdlib.h>
	#include <unistd.h>
	#include <signal.h>
	#include <alsa/asoundlib.h>

	#define ALSA_CLIENT_NAME "LaunchSEQ"
	.define NOTE_C 262
	.define NOTE_Cs 277
	.define NOTE_D 294
	.define NOTE_Ds 311
	.define NOTE_E 330
	.define NOTE_F 349
	.define NOTE_Fs 370
	.define NOTE_G 392
	.define NOTE_Gs 415
	.define NOTE_A 440
	;; todo: variable constrainns throughout whole sub-eval
	;; avoid infinite wildcard vars!!
	;; figure out the perfect eval order...
	;; how to handle infinite recursive rules?
	;; inductive programming ? ?

	;; return possible evaluations by substitution of expression according to rules
	(define (sub-eval expression rules direction)
	(let ((subs (sub expression rules direction)))
	(if (not (null? subs))
	#!/usr/bin/chibi-scheme
	(import (scheme r5rs)
	(scheme base)
	(chibi io))

	; plot function f
	; start with x = start
	; get next value by applying function next-f to value
	; for number of samples
	; output vector vec
	#!/usr/bin/sbcl --script
	;; a simple script to clean up .srt files
	;; - removes html and other formatting
	;; - removes duplicate segments (after removing formatting)
	;; - merges consecutive segments with same start time
	;;
	;; usage: ./subcleaner.lisp < input.srt > output.srt
	;;
	;; todo:
	;; - handle entries with double new lines?
	#!/usr/bin/sbcl --script
	;; a simple script to scrape the html of a japanese memrise course edit page
	;; change the main function at the very bottom to select output type
	;; - main: outputs .tsv
	;; - main-2: outputs .html
	;; - main-3: outputs list of audio links
	;; - main-4: outputs .tsv with audio links formatted for anki (and urls converted to sound file names, so download the audio files and put them in your anki media folder)
	;; usage: ./memrise.lisp < memrise.html > output_file

	(defun split-with-subseq (seq subseq)