use older macos-12 runner

latest/14 fails and builds for arm64
also GA skipped 13 for macos-latest for some reason

.github/workflows/ci.yml

@@ -0,0 +1,234 @@
+name: Meson CI
+
+on:
+  push:
+    branches:
+      - master
+      - feature
+      - cibuilds
+  pull_request:
+    branches:
+      - master
+      - feature
+  workflow_dispatch:
+
+jobs:
+  build:
+    name: ${{ matrix.config.name }}
+    runs-on: ${{ matrix.config.os }}
+
+    strategy:
+      fail-fast: false
+      matrix:
+        config:
+          - name: Windows MSVC Release
+            os: windows-latest
+            msvc: true
+            buildtype: release
+            args: >-
+              -Ddefault_library=static 
+              --force-fallback-for=zlib,harfbuzz,freetype2,fribidi,libpng 
+              -Dfreetype2:harfbuzz=disabled 
+              -Dharfbuzz:freetype=disabled 
+              -Dharfbuzz:cairo=disabled 
+              -Dharfbuzz:glib=disabled 
+              -Dharfbuzz:gobject=disabled
+              -Dharfbuzz:tests=disabled
+              -Dharfbuzz:docs=disabled
+              -Dharfbuzz:icu=disabled
+              -Dfribidi:tests=false
+              -Dfribidi:docs=false
+              -Dlibass:fontconfig=disabled
+              -Davisynth=enabled
+              -Dbestsource=enabled
+              -Dvapoursynth=enabled
+          - name: Windows MSVC Release (wx master)
+            os: windows-latest
+            msvc: true
+            buildtype: release
+            args: >-
+              -Ddefault_library=static 
+              --force-fallback-for=zlib,harfbuzz,freetype2,fribidi,libpng 
+              -Dfreetype2:harfbuzz=disabled 
+              -Dharfbuzz:freetype=disabled 
+              -Dharfbuzz:cairo=disabled 
+              -Dharfbuzz:glib=disabled 
+              -Dharfbuzz:gobject=disabled
+              -Dharfbuzz:tests=disabled
+              -Dharfbuzz:docs=disabled
+              -Dharfbuzz:icu=disabled
+              -Dfribidi:tests=false
+              -Dfribidi:docs=false
+              -Dlibass:fontconfig=disabled
+              -Davisynth=enabled
+              -Dbestsource=enabled
+              -Dvapoursynth=enabled
+              -Dwx_version='3.3.0'
+          #- {
+          #  name: Windows MinGW,
+          #  os: windows-latest,
+          #  msvc: false
+          #}
+          - {
+            name: Ubuntu Debug,
+            os: ubuntu-latest,
+            buildtype: debugoptimized,
+            args: ''
+          }
+          - {
+            name: Ubuntu Release,
+            os: ubuntu-latest,
+            buildtype: release,
+            args: ''
+          }
+          - name: Ubuntu AppImage
+            os: ubuntu-22.04
+            buildtype: release
+            appimage: true
+            # distro ffms is currently broken
+            args: >-
+              --prefix=/usr
+              -Dbuild_appimage=true
+              -Ddefault_library=static
+              --force-fallback-for=ffms2
+              -Davisynth=enabled
+              -Dbestsource=enabled
+              -Dvapoursynth=enabled
+          - {
+            name: macOS Release,
+            os: macos-12,
+            buildtype: release,
+            args: -Ddefault_library=static -Dbuild_osx_bundle=true -Dlocal_boost=true -Dvapoursynth=enabled --force-fallback-for=ffms2
+          }
+
+    steps:
+      - uses: actions/checkout@v3
+        with:
+          fetch-depth: '0'
+
+      - uses: actions/setup-python@v4
+        with:
+          python-version: '3.x'
+
+      - name: Setup Meson
+        run: |
+          python -m pip install --upgrade pip setuptools
+          pip install meson
+
+      - name: Setup MSVC
+        if: matrix.config.os == 'windows-latest' && matrix.config.msvc == true
+        uses: ilammy/msvc-dev-cmd@v1
+
+      - name: Install dependencies (Windows)
+        if: matrix.config.os == 'windows-latest'
+        run: |
+          choco install ninja innosetup
+
+          $moonscripturl = "https://github.com/leafo/moonscript/releases/download/win32-v0.5.0/moonscript-187bac54ee5a7450013e9c38e005a0e671b76f45.zip"
+          mkdir moonscript
+          Invoke-WebRequest -Uri $moonscripturl -OutFile ".\moonscript\moonscript.zip"
+          pushd moonscript
+          7z e moonscript.zip
+          Get-Location | Out-File -FilePath $env:GITHUB_PATH -Encoding utf8 -Append
+          popd
+
+          $gettexturl = "https://github.com/mlocati/gettext-iconv-windows/releases/download/v0.21-v1.16/gettext0.21-iconv1.16-static-64.zip"
+          Invoke-WebRequest -Uri $gettexturl -OutFile ".\gettext.zip"
+          Expand-Archive ".\gettext.zip" -DestinationPath gettext
+          pushd gettext/bin
+          Get-Location | Out-File -FilePath $env:GITHUB_PATH -Encoding utf8 -Append
+          popd
+
+      - name: Install dependencies (MacOS)
+        if: matrix.config.os == 'macos-12'
+        run: |
+          export HOMEBREW_NO_INSTALL_CLEANUP=1
+          export HOMEBREW_NO_INSTALLED_DEPENDENTS_CHECK=1
+          # Skip brew update for now, see https://github.com/actions/setup-python/issues/577
+          # brew update
+          brew install luarocks ninja
+          luarocks install luafilesystem 1.8.0
+          luarocks install moonscript --dev
+          brew install libass zlib ffms2 fftw hunspell
+          brew install pulseaudio  # NO OpenAL in github CI
+
+      - name: Install dependencies (Linux)
+        if: startsWith(matrix.config.os, 'ubuntu-')
+        run: |
+          sudo apt-get update
+          sudo apt-get install ninja-build build-essential libx11-dev libwxgtk3.0-gtk3-dev libfreetype6-dev pkg-config libfontconfig1-dev libass-dev libasound2-dev libffms2-dev intltool libboost-all-dev libhunspell-dev libuchardet-dev libpulse-dev libopenal-dev libjansson-dev nasm
+
+      - name: Configure
+        run: meson setup build ${{ matrix.config.args }} -Dbuildtype=${{ matrix.config.buildtype }}
+
+      - name: Build
+        run: meson compile -C build
+      
+      - name: Run test
+        run: meson test -C build --verbose "gtest main"
+
+      # Windows artifacts
+      - name: Generate Windows installer
+        if: matrix.config.os == 'windows-latest'
+        env:
+          GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
+        run:
+          meson compile win-installer -C build
+
+      - name: Generate Windows portable installer
+        if: matrix.config.os == 'windows-latest'
+        run: cd build && ninja win-portable
+
+      - name: Upload artifacts - win_installer
+        uses: actions/upload-artifact@v3
+        if: matrix.config.os == 'windows-latest'
+        with:
+          name: ${{ matrix.config.name }} - installer
+          path: build/Aegisub-*.exe
+          if-no-files-found: error
+      
+      - name: Upload artifacts - portable.zip
+        uses: actions/upload-artifact@v3
+        if: matrix.config.os == 'windows-latest'
+        with:
+          name: ${{ matrix.config.name }} - portable
+          path: build/aegisub-portable-64.zip
+      
+      # macOS artifacts
+      - name: Generate macOS installer
+        if: matrix.config.os == 'macos-12'
+        run: |
+          meson compile osx-bundle -C build
+          meson compile osx-build-dmg -C build
+
+      - name: Upload artifacts - macOS dmg
+        uses: actions/upload-artifact@v3
+        if: matrix.config.os == 'macos-12'
+        with:
+          name: ${{ matrix.config.name }} - installer
+          path: build/Aegisub-*.dmg
+          if-no-files-found: error
+
+      # Linux artifacts (AppImage)
+      - name: Generate AppImage
+        if: matrix.config.appimage
+        run: |
+          mkdir -p appimage/appdir
+          meson install -C build --destdir=../appimage/appdir
+
+          cd appimage
+          sudo apt-get install libfuse2
+          curl -L "https://github.com/linuxdeploy/linuxdeploy/releases/download/1-alpha-20220822-1/linuxdeploy-x86_64.AppImage" -o linuxdeploy
+          curl -L "https://github.com/AppImage/AppImageKit/releases/download/13/appimagetool-x86_64.AppImage" -o appimagetool
+          chmod +x linuxdeploy appimagetool
+
+          ./linuxdeploy --appdir appdir --desktop-file=appdir/aegisub.desktop
+          ./appimagetool appdir
+
+      - name: Upload artifacts - Linux AppImage
+        uses: actions/upload-artifact@v3
+        if: matrix.config.appimage
+        with:
+          name: ${{ matrix.config.name }}
+          path: appimage/*.AppImage
+          if-no-files-found: error

.gitignore

@@ -0,0 +1,49 @@
+/tests/data
+
+automation/vapoursynth/__pycache__
+packages/desktop/aegisub.desktop
+packages/desktop/aegisub.desktop.template
+src/libresrc/bitmap.cpp
+src/libresrc/bitmap.h
+src/libresrc/default_config.cpp
+src/libresrc/default_config.h
+src/libresrc/default_config_platform.json
+tests/*.json
+tests/run
+tools/osx-bundle-restart-helper
+tools/repack-thes-dict
+tools/repack-thes-dict.dSYM
+
+# Platform-specific
+.DS_Store
+
+# Meson
+build*/
+subprojects/avisynth
+subprojects/bestsource/
+subprojects/boost*/
+subprojects/cairo*
+subprojects/dav1d
+subprojects/ffmpeg
+subprojects/ffms2
+subprojects/fontconfig*
+subprojects/freetype2
+subprojects/fribidi
+subprojects/glib*
+subprojects/googletest-*
+subprojects/harfbuzz
+subprojects/icu
+subprojects/jansson
+subprojects/libass
+subprojects/libffi*
+subprojects/libpng-*
+subprojects/luajit
+subprojects/nasm-*
+subprojects/packagecache
+subprojects/proxy-libintl*
+subprojects/wxWidgets
+subprojects/zlib-*
+subprojects/dirent-*
+subprojects/hunspell-*
+subprojects/uchardet-*
+subprojects/vapoursynth

FexTrackerSource/FexGenericFilter.cpp

@@ -1,86 +0,0 @@
-// This file is part of FexGenericFilter and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-#include <math.h>
-#include "FexGenericFilter_Include.h"
-
-FexFilter::FexFilter()
-{
-	Width = 3;
-}
-FexFilter::~FexFilter()
-{
-}
-double FexFilter::Filter( double t )
-{
-	return t/Width;
-}
-
-
-/*
-f(x) = e^(-x^2 / (2 s^2) )
-f(x) = e^(-x^2 / t)
-
-width:
-SOLVE(0.1 = f(x), x, Real)
-x = - sqrt(t LN(10) ? x = sqrt(t LN(10)
-x = - 1.517427129·sqrt t ? x = 1.517427129·sqrt t
-x = - sqrt(2*s*s* LN(10)) ? x = sqrt(2*s*s* LN(10))
-x = - 2.145966026·s ? x = 2.145966026·s
-
-sum:
- 			          
-Integral from -sqrt(t LN(10) to sqrt(t LN(10) of f(x) dx
-1.715955662·sqrt(t)
-2.426727768·s
-*/
-
-FexFilter_Gauss::FexFilter_Gauss( double sigma )
-{
-	Sigma = sigma;
-	TwoSigmaSq = 2*sigma*sigma;
-	Width = 2.145966026 * sigma;
-	Normalize = 1.0 / (2.426727768 * sigma);
-	Normalize *= 1.0 + 0.1 / Width;  //its the 0.1 we left out
-}
-FexFilter_Gauss::~FexFilter_Gauss()
-{
-}
-
-double FexFilter_Gauss::Filter( double t )
-{
-	return exp( -t*t / TwoSigmaSq ) * Normalize;
-}
-
-
-
-
-/*
-f(x) = -x * e^(-x^2 / (2 s^2) )
-f(x) = -x * e^(-x^2 / t)
-
-width:
-use the width of gauss since i'm clueless here
-
-sum:
- 			          
-Integral from -sqrt(t LN(10) to sqrt(t LN(10) of -x*f(x) dx
-0.7062351183·t^1.5
-*/
-
-FexFilter_GaussDerivation::FexFilter_GaussDerivation( double sigma )
-{
-	Sigma = sigma;
-	TwoSigmaSq = 2*sigma*sigma;
-	Width = 2.145966026 * sigma;
-	Normalize = 1.0 / (0.7062351183 * pow( TwoSigmaSq, 1.5 ));
-}
-
-FexFilter_GaussDerivation::~FexFilter_GaussDerivation()
-{
-}
-
-double FexFilter_GaussDerivation::Filter( double t )
-{
-	return -t * exp( -t*t / TwoSigmaSq ) * Normalize;	
-}

FexTrackerSource/FexGenericFilter_BaseFloatImage.cpp

@@ -1,94 +0,0 @@
-// This file is part of FexGenericFilter and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-#include "stdio.h"
-#include "math.h"
-#include "memory.h"
-#include "FexGenericFilter_Include.h"
-
-
-void BaseFloatImage_Filter( float* in, int inSx, int inSy, FexFilter* filter, float* out, int outSx, int outSy )
-{
-#define FilterWidth (filter->Width)
-#define FilterWeight(t) (filter->Filter(t))
-
-	float* tmp = new float[outSx*inSy];
-#include "FexGenericFilter_BaseFloatImageApply.h"
-	delete []tmp;
-
-#undef FilterWidth
-#undef FilterWeight
-}
-
-void BaseFloatImage_FilterSeperate( float* in, int inSx, int inSy, FexFilter* filterX, FexFilter* filterY, float* out, int outSx, int outSy )
-{
-	float* tmp = new float[outSx*inSy];
-
-#define FilterWidth (filterX->Width)
-#define FilterWeight(t) (filterX->Filter(t))
-#define FILTER_NO_Y
-
-#include "FexGenericFilter_BaseFloatImageApply.h"
-
-#undef FilterWidth
-#undef FilterWeight
-#undef FILTER_NO_Y
-
-#define FilterWidth (filterY->Width)
-#define FilterWeight(t) (filterY->Filter(t))
-#define FILTER_NO_X
-
-#include "FexGenericFilter_BaseFloatImageApply.h"
-
-#undef FilterWidth
-#undef FilterWeight
-#undef FILTER_NO_X
-
-	delete []tmp;
-}
-
-
-void BaseFloatImage_GaussEdgeDetect( float* Img, int sizx, int sizy, float sigma, float* GradX, float* GradY )
-{
-	FexFilter_Gauss 			gauss (sigma);
-	FexFilter_GaussDerivation 	gaussDeriv (sigma);
-
-	BaseFloatImage_FilterSeperate( Img, sizx, sizy, &gaussDeriv, &gauss, GradX, sizx, sizy );
-	BaseFloatImage_FilterSeperate( Img, sizx, sizy, &gauss, &gaussDeriv, GradY, sizx, sizy );
-}
-
-void BaseFloatImage_GaussSmooth( float* Img, int sizx, int sizy, float sigma, float* Out )
-{
-	FexFilter_Gauss 			gauss (sigma);
-	BaseFloatImage_Filter( Img, sizx,sizy, &gauss, Out, sizx, sizy );
-}
-
-#include <math.h>
-inline double sinc( double x )
-{
-	x *= 3.1415;
-	if( x != 0 )
-		return( sin(x) / x );
-	return( 1.0 );
-}
-inline double RescaleFilter( double t )
-{
-	if( t < 0 )
-		t = -t;
-	if( t < 3.0 )
-		return( sinc(t) * sinc(t/3.0) );
-	return( 0.0 );
-}
-
-void BaseFloatImage_LanczosRescale( float* in, int inSx, int inSy, float* out, int outSx, int outSy )
-{
-#define FilterWidth (3)
-#define FilterWeight(t) (RescaleFilter(t))
-
-	float* tmp = new float[outSx*inSy];
-#include "FexGenericFilter_BaseFloatImageApply.h"
-	delete []tmp;
-
-#undef FilterWidth
-#undef FilterWeight
-}

FexTrackerSource/FexGenericFilter_BaseFloatImageApply.h

@@ -1,49 +0,0 @@
-// This file is part of FexGenericFilter and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-{
-#define PixelType float
-#define	PixelMin 0
-#define	PixelMax 255
-#define ImagePlanes 	1
-
-	//do filtering + scaling in x-dir
-#define	ImageInSX		(inSx)
-#define	ImageInSY		(inSy)
-#define ImageIn(x,y,p) 	(in[ (y*inSx+x) ])
-#define	ImageOutSX		(outSx)
-#define ImageOut(x,y,p) (tmp[ (y*outSx+x) ])
-
-#ifndef FILTER_NO_X
-#include "FexGenericFilter_FilteringCore.h"
-#endif
-
-#undef ImageInSX
-#undef ImageInSY
-#undef ImageIn
-#undef ImageOutSX
-#undef ImageOut
-
-	//do filtering + scaling in y-dir by using transposed image
-
-#define	ImageInSX		(inSy)
-#define	ImageInSY		(outSx)
-#define ImageIn(y,x,p) 	(tmp[ (y*outSx+x) ])
-#define	ImageOutSX		(outSy)
-#define ImageOut(y,x,p) (out[ (y*outSx+x) ])
-
-#ifndef FILTER_NO_Y
-#include "FexGenericFilter_FilteringCore.h"
-#endif
-
-#undef ImageInSX
-#undef ImageInSY
-#undef ImageIn
-#undef ImageOutSX
-#undef ImageOut
-
-#undef PixelType
-#undef PixelMin
-#undef PixelMax
-#undef ImagePlanes
-}

FexTrackerSource/FexGenericFilter_Contribution.h

@@ -1,41 +0,0 @@
-// This file is part of FexGenericFilter and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-{
-	double width = FilterWidth;
-#ifdef CONTRIB_XSCALE
-    width /= XScale;
-    double fscale = 1.0 / XScale;
-#endif
-
-    for(int i=0;i<ImageOutSX;++i)
-    {
-        double center = (double) i / XScale;
-        FexFilterContribution* cc = &Contrib[i];
-        int left = (int) ceil(center - width);
-        int right = (int) (floor(center + width) + 0.1);
-
-        cc->xMin = left;
-        cc->xMax = right;
-        if( cc->xMin < 0 ) cc->xMin = 0;
-        if( cc->xMax > ImageInSX-1 ) cc->xMax = ImageInSX - 1;
-
-        int len = cc->xMax-cc->xMin+1;
-        cc->Weight = new double[ len ];
-        memset( cc->Weight, 0x00, sizeof(double)*len );
-        
-        for(int j=left;j<=right;++j) {
-            double weight = center - (double) j;
-#ifdef CONTRIB_XSCALE
-            weight = FilterWeight(weight / fscale) / fscale;
-#else
-            weight = FilterWeight(weight);
-#endif
-			int n;
-            if(j < 0) n=0;
-            else if(j >= ImageInSX) n = ImageInSX - 1;
-            else n = j;
-            cc->Weight[n-cc->xMin] += weight;
-        }
-    }
-}   

FexTrackerSource/FexGenericFilter_FilteringCore.h

@@ -1,56 +0,0 @@
-// This file is part of FexGenericFilter and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-{
-	FexFilterContribution* Contrib = new FexFilterContribution[ ImageOutSX ];
-	double XScale = (double)ImageOutSX / (double) ImageInSX;
-
-//calculate contributions
-
-	if( XScale < 1.0 )
-	{
-		#define CONTRIB_XSCALE
-		#include "FexGenericFilter_Contribution.h"
-		#undef CONTRIB_XSCALE	
-	}
-	else
-	{
-		#include "FexGenericFilter_Contribution.h"
-	}
-	
-
-	#include "FexGenericFilter_StaticFor.h"
-//apply filter
-
-	for( int y=0;y<ImageInSY;++y)
-	{
-		for( int x=0;x<ImageOutSX;++x )
-		{
-			FexFilterContribution* cc = &Contrib[x];
-			
-			double Sum[ImagePlanes];
-			#define DOFOR(i)  Sum[i] = 0.0;
-			STATIC_FOR
-			#undef DOFOR	
-			
-			for( int lx=cc->xMin;lx<=cc->xMax;++lx )
-			{
-				#define DOFOR(i)  Sum[i] += ((double)ImageIn(lx,y,i))*cc->Weight[lx-cc->xMin];
-				STATIC_FOR
-				#undef DOFOR					
-			}
-			
-			#define DOFOR(i)  {if(Sum[i]<PixelMin)Sum[i]=PixelMin;if(Sum[i]>PixelMax)Sum[i]=PixelMax;}
-			STATIC_FOR
-			#undef DOFOR	
-			
-			#define DOFOR(i)  ImageOut(x,y,i) = (PixelType) Sum[i];
-			STATIC_FOR
-			#undef DOFOR	
-		}
-	}
-
-	for( int x=0;x<ImageOutSX;++x )
-		delete []Contrib[x].Weight;
-	delete []Contrib;
-}

FexTrackerSource/FexGenericFilter_Include.h

@@ -1,41 +0,0 @@
-// This file is part of FexGenericFilter and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-class FexFilter {
-public:
-	FexFilter();
-	~FexFilter();
-
-	virtual double Filter( double t );
-
-	double Width;
-};
-
-class FexFilter_Gauss : public FexFilter {
-public:
-	FexFilter_Gauss( double sigma );
-	~FexFilter_Gauss();
-
-	double Filter( double t );
-
-	double Sigma;
-	double TwoSigmaSq;
-	double Normalize;
-};
-
-class FexFilter_GaussDerivation : public FexFilter {
-public:
-	FexFilter_GaussDerivation( double sigma );
-	~FexFilter_GaussDerivation();
-
-	double Filter( double t );
-
-	double Sigma;
-	double TwoSigmaSq;
-	double Normalize;
-};
-
-struct FexFilterContribution {
-	int xMin, xMax;
-	double* Weight;
-};

FexTrackerSource/FexGenericFilter_StaticFor.h

@@ -1,13 +0,0 @@
-// This file is part of FexGenericFilter and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-#if ImagePlanes==1	
-#define STATIC_FOR	{DOFOR(0)}
-#elif ImagePlanes==3
-#define STATIC_FOR	{DOFOR(0) DOFOR(1) DOFOR(2)}
-#elif ImagePlanes==4
-#define STATIC_FOR	{DOFOR(0) DOFOR(1) DOFOR(2) DOFOR(3)}
-#else
-#define STATIC_FOR	{for( int dofori=0;dofori<ImagePlanes;++doforti ){DOFOR(i)}}
-#endif
-

FexTrackerSource/FexImgPyramid.cpp

@@ -1,111 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// FexImgPyramid.cpp: implementation of the FexImgPyramid class.
-//
-//////////////////////////////////////////////////////////////////////
-
-#include "StdAfx.h"
-#include "FexImgPyramid.h"
-#include "FexGenericFilter_Include.h"
-
-void BaseFloatImage_GaussEdgeDetect( float* Img, int sizx, int sizy, float sigma, float* GradX, float* GradY );
-void BaseFloatImage_GaussSmooth( float* Img, int sizx, int sizy, float sigma, float* Out );
-void BaseFloatImage_LanczosRescale( float* in, int inSx, int inSy, float* out, int outSx, int outSy );
-
-//////////////////////////////////////////////////////////////////////
-// Construction/Destruction
-//////////////////////////////////////////////////////////////////////
-
-
-//turn off image debugging
-#ifndef imdebug
-#define imdebug // 
-#endif
-
-
-FexImgPyramidLevel::FexImgPyramidLevel( int isx, int isy )
-{
-	sx = isx;
-	sy = isy;
-	Img = new float[ sx*sy ];
-	GradX = new float[ sx*sy ];
-	GradY = new float[ sx*sy ];
-}
-
-FexImgPyramidLevel::~FexImgPyramidLevel()
-{
-	delete [] Img;
-	delete [] GradX;
-	delete [] GradY;
-}
-
-void FexImgPyramidLevel::Fill( float* iImg, float DetectSmoothSigma )
-{
-	imdebug("lum b=32f w=%d h=%d %p /255", sx, sy, iImg);
-	BaseFloatImage_GaussSmooth( iImg, sx, sy, DetectSmoothSigma, Img );
-	imdebug("lum b=32f w=%d h=%d %p /255", sx, sy, Img);
-}
-
-void FexImgPyramidLevel::Scale( FexImgPyramidLevel* old )
-{
-	imdebug("lum b=32f w=%d h=%d %p /255", old->sx, old->sy, old->Img);
-	BaseFloatImage_LanczosRescale( old->Img, old->sx, old->sy, Img, sx, sy );
-	imdebug("lum b=32f w=%d h=%d %p /255", sx, sy, Img);
-}
-
-void FexImgPyramidLevel::Calc( float EdgeDetectSigma )
-{
-	imdebug("lum b=32f w=%d h=%d %p /255", sx, sy, Img);
-	BaseFloatImage_GaussEdgeDetect( Img, sx, sy, EdgeDetectSigma, GradX, GradY );
-	imdebug("lum b=32f w=%d h=%d %p /2", sx, sy, GradX);
-	imdebug("lum b=32f w=%d h=%d %p /2", sx, sy, GradY);
-}
-
-
-
-FexImgPyramid::FexImgPyramid( float* Img, int SizX, int SizY, float EdgeDetectSigma, float DetectSmoothSigma, int iSubsampling, int Levels )
-{
-	int i;
-	
-	Subsampling = iSubsampling;
-
-	if( Levels == -1 ) Levels = 999;
-	int mLvl = 0;
-	int tsm = min(SizX,SizY);
-	while( tsm>1 && tsm%2==0 )
-	{
-		tsm/=Subsampling;
-		++mLvl;
-	}
-	if( Levels > mLvl ) Levels = mLvl;
-	if( Levels < 1 ) Levels = 1;
-
-	nLevels = Levels;
-	lLevels = new FexImgPyramidLevel*[ nLevels ];
-
-	lLevels[0] = new FexImgPyramidLevel( SizX, SizY );
-	lLevels[0]->Fill( Img, DetectSmoothSigma );
-	for( i=1;i<nLevels;i++ )
-	{
-		SizX /= Subsampling;
-		SizY /= Subsampling;
-		lLevels[i] = new FexImgPyramidLevel( SizX, SizY );
-		lLevels[i]->Scale( lLevels[i-1] );
-	}
-
-	float cmul = 1.f;
-	for( i=0;i<nLevels;i++ )
-	{
-		lLevels[i]->CoordMul = cmul;
-		lLevels[i]->Calc( EdgeDetectSigma );
-		cmul /= Subsampling;
-	}
-}
-
-FexImgPyramid::~FexImgPyramid()
-{
-	for( int i=0;i<nLevels;i++ )
-		delete lLevels[i];
-	delete [] lLevels;
-}

FexTrackerSource/FexImgPyramid.h

@@ -1,45 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// FexImgPyramid.h: interface for the FexImgPyramid class.
-//
-//////////////////////////////////////////////////////////////////////
-
-#if !defined(AFX_FEXIMGPYRAMID_H__B289955E_6660_483D_AF51_CE78F2D03944__INCLUDED_)
-#define AFX_FEXIMGPYRAMID_H__B289955E_6660_483D_AF51_CE78F2D03944__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-class FexImgPyramidLevel
-{
-public:
-	FexImgPyramidLevel( int sx, int sy );
-	~FexImgPyramidLevel();
-
-	int sx, sy;
-	float CoordMul;
-
-	float*	Img;
-	float*	GradX;
-	float*	GradY;
-
-	void Fill( float* Img, float DetectSmoothSigma );
-	void Scale( FexImgPyramidLevel* old );
-	void Calc( float EdgeDetectSigma );
-};
-
-class FexImgPyramid  
-{
-public:
-	FexImgPyramid( float* Img, int SizX, int SizY, float EdgeDetectSigma, float DetectSmoothSigma, int Subsampling, int Levels );
-	~FexImgPyramid();
-
-	int Subsampling;
-
-	FexImgPyramidLevel**	lLevels;
-	int						nLevels;
-};
-
-#endif // !defined(AFX_FEXIMGPYRAMID_H__B289955E_6660_483D_AF51_CE78F2D03944__INCLUDED_)

FexTrackerSource/FexMovement.cpp

@@ -1,79 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// FexMovement.cpp: implementation of the FexMovement class.
-//
-//////////////////////////////////////////////////////////////////////
-
-#include "StdAfx.h"
-#include "stdio.h"
-#include <conio.h>
-#include <ctype.h>
-#include <string.h>
-#include <time.h>
-//#include <mmsystem.h>
-
-//////////////////////////////////////////////////////////////////////
-// Construction/Destruction
-//////////////////////////////////////////////////////////////////////
-
-FexMovement::FexMovement()
-{
-	FileName = 0;
-}
-
-FexMovement::~FexMovement()
-{
-	if( FileName ) delete []FileName;
-}
-
-FEXTRACKER_API FexMovement* CreateMovement()
-{
-	return new FexMovement();
-}
-
-FEXTRACKER_API void LoadMovement( FexMovement* me, const wchar_t* Filename )
-{
-	me->Frames.nVal = 0;
-
-	me->FileName = new WCHAR[ wcslen(Filename)+1 ];
-	wcscpy( me->FileName, Filename );
-
-	FILE *fi = _wfopen( Filename, L"rt" );
-	if( !fi ) return;
-	int CurFeat = -1;
-	char Line[512];
-	while( !feof(fi) )
-	{
-		Line[0]=0;
-		fgets( Line, 510, fi );
-		if( !Line[0] ) break;
-		FexMovementFrame f;
-		int r = sscanf( Line, "(%f %f)(%f %f %f)(%f %f)", 
-			&f.Pos.x, &f.Pos.y, 
-			&f.Rot.x, &f.Rot.y, &f.Rot.z, 
-			&f.Scale.x, &f.Scale.y );
-		if( r != 7 ) continue;
-		me->Frames.Add( f );
-	}
-	fclose( fi );
-}
-FEXTRACKER_API void SaveMovement( FexMovement* me, const wchar_t* Filename )
-{
-	FILE *fi = _wfopen( Filename, L"wt" );
-	if( !fi ) return;
-	for( int i=0;i<me->Frames.size();i++ )
-	{
-		const FexMovementFrame f = me->Frames[i];
-		fprintf( fi, "(%f %f)(%f %f %f)(%f %f)\n", 
-			f.Pos.x, f.Pos.y, 
-			f.Rot.x, f.Rot.y, f.Rot.z, 
-			f.Scale.x, f.Scale.y );
-	}
-	fclose( fi );
-}
-
-FEXTRACKER_API void DeleteMovement( FexMovement* delme )
-{
-	delete delme;
-}

FexTrackerSource/FexMovement.h

@@ -1,39 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// FexMovement.h: interface for the FexMovement class.
-//
-//////////////////////////////////////////////////////////////////////
-
-#if !defined(AFX_FEXMOVEMENT_H__63D8ADD8_4EA1_4C56_8D6F_7B587A1A61A4__INCLUDED_)
-#define AFX_FEXMOVEMENT_H__63D8ADD8_4EA1_4C56_8D6F_7B587A1A61A4__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-typedef struct
-{
-	vec2 Pos;
-	vec3 Rot;
-	vec2 Scale;
-}FexMovementFrame;
-
-#include "tenlist.h"
-
-class FexMovement  
-{
-public:
-	FexMovement();
-	~FexMovement();
-	WCHAR* FileName;
-
-	tenlist<FexMovementFrame>	Frames;
-};
-
-FEXTRACKER_API FexMovement* CreateMovement();
-FEXTRACKER_API void LoadMovement( FexMovement* me, const wchar_t* Filename );
-FEXTRACKER_API void SaveMovement( FexMovement* me, const wchar_t* Filename );
-FEXTRACKER_API void DeleteMovement( FexMovement* delme );
-
-#endif // !defined(AFX_FEXMOVEMENT_H__63D8ADD8_4EA1_4C56_8D6F_7B587A1A61A4__INCLUDED_)

FexTrackerSource/FexTracker.cpp

@@ -1,476 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// FexTracker.cpp : Defines the entry point for the DLL application.
-//
-
-#include "StdAfx.h"
-#include "stdio.h"
-
-FexTracker::FexTracker( int sx, int sy, int inFeatures )
-{
-	printf( "[ using FexTracker (c)2006 Hajo Krabbenhoft ]\n" );
-
-	nFeatures = inFeatures;
-	minFeatures = 0;
-	mFeatures = 8;
-	lFeatures = (FexTrackingFeature*) new FexTrackingFeature[mFeatures];
-	SizX = sx;
-	SizY = sy;
-	CurImg = 0;
-	CurFrame = 0;
-
-	bDebug = 0;
-
-	float subsampling = float(Cfg.SearchRange) / min(Cfg.WindowX,Cfg.WindowY);
-
-	if (subsampling < 1.0)  {		/* 1.0 = 0+1 */
-		PyramidMaxLevels = 1;
-	} else if (subsampling <= 3.0)  {	/* 3.0 = 2+1 */
-		PyramidMaxLevels = 2;
-		PyramidSubsampling = 2;
-	} else if (subsampling <= 5.0)  {	/* 5.0 = 4+1 */
-		PyramidMaxLevels = 2;
-		PyramidSubsampling = 4;
-	} else if (subsampling <= 9.0)  {	/* 9.0 = 8+1 */
-		PyramidMaxLevels = 2;
-		PyramidSubsampling = 8;
-	} else {
-		/* The following lines are derived from the formula:
-		search_range = 
-		window_halfwidth * \sum_{i=0}^{nPyramidLevels-1} 8^i,
-		which is the same as:
-		search_range = 
-		window_halfwidth * (8^nPyramidLevels - 1)/(8 - 1).
-		Then, the value is rounded up to the nearest integer. */
-		float val = (float) (log(7.0*subsampling+1.0)/log(8.0));
-		PyramidMaxLevels = (int) (val + 0.99);
-		PyramidSubsampling = 8;
-	}
-}
-FexTracker::~FexTracker()
-{
-	delete [] lFeatures;
-	if( CurImg ) delete CurImg;
-}
-
-void FexTracker::ProcessImage( float *Img, bool bFirst )
-{
-	if( bFirst || !CurImg ) 
-	{
-		CurFrame = 0;
-		CurImg = new FexImgPyramid( Img, SizX, SizY, Cfg.EdgeDetectSigma, Cfg.DetectSmoothSigma, PyramidSubsampling, PyramidMaxLevels );
-		nActiveFeatures = 0;
-		int tmp = nFeatures;
-		nFeatures = 0;
-		FindFeatures( tmp );
-	}
-	else
-	{
-		CountActiveFeatures();
-		if( nActiveFeatures<minFeatures ) 
-			FindFeatures( minFeatures );
- 		NextImg = new FexImgPyramid( Img, SizX, SizY, Cfg.EdgeDetectSigma, Cfg.DetectSmoothSigma, PyramidSubsampling, PyramidMaxLevels );
-		TrackFeatures();
-		delete CurImg;
-		CurImg = NextImg;
-		NextImg = 0;
-	}
-	CurFrame++; 
-}
-
-void FexTracker::ProcessingDone()
-{
-	if( CurImg ) delete CurImg;
-	CurImg = 0;
-}
-
-void FexTracker::CountActiveFeatures()
-{
-	nActiveFeatures = 0;
-	for( int i=0;i<nFeatures;i++ )
-	{
-		if( lFeatures[i].StartTime + lFeatures[i].Pos.size() >= CurFrame )
-			nActiveFeatures++;
-	}
-}
-
-FexTrackingFeature* FexTracker::operator [] ( int i )
-{ 
-	if( i<0 || i>=nFeatures ) return 0; 
-	return & lFeatures[i]; 
-}
-
-int FexTracker::GetEigenvalueForPoint( int px, int py )
-{
-	int sx = px - Cfg.WindowX;
-	int ex = px + Cfg.WindowX;
-	int sy = py - Cfg.WindowY;
-	int ey = py + Cfg.WindowY;
-	if( sx<0 )sx=0;
-	if( sy<0 )sy=0;
-	if( ex>SizX-1 )ex=SizX-1;
-	if( ey>SizY-1 )ey=SizY-1;
-
-	int imgSX = CurImg->lLevels[0]->sx;
-	float* gradx = CurImg->lLevels[0]->GradX;
-	float* grady = CurImg->lLevels[0]->GradY;
-
-	register float gxx = 0, gyy = 0, gxy = 0;
-	for( int y=sy;y<ey;y++ )
-	{
-		for( int x=sx;x<ex;x++ )
-		{
-			float gx = gradx[ imgSX*y + x ];
-			float gy = grady[ imgSX*y + x ];
-			gxx += gx*gx;
-			gyy += gy*gy;
-			gxy += gx*gy;
-		}
-	}
-
-	float val = gxx + gyy - sqrtf((gxx - gyy)*(gxx - gyy) + 4*gxy*gxy);
-	if( val>(1<<30) ) val=(1<<30);
-	return (int) val;
-}
-
-
-typedef struct{
-	int val, x, y;
-}littleFeature;
-
-
-
-#define SWAP3(list, i, j)               \
-{register int *pi, *pj, tmp;            \
-     pi=list+3*(i); pj=list+3*(j);      \
-                                        \
-     tmp=*pi;    \
-     *pi++=*pj;  \
-     *pj++=tmp;  \
-                 \
-     tmp=*pi;    \
-     *pi++=*pj;  \
-     *pj++=tmp;  \
-                 \
-     tmp=*pi;    \
-     *pi=*pj;    \
-     *pj=tmp;    \
-}
-
-void _quicksort(int *pointlist, int n)
-{
-  unsigned int i, j, ln, rn;
-
-  while (n > 1)
-  {
-    SWAP3(pointlist, 0, n/2);
-    for (i = 0, j = n; ; )
-    {
-      do
-        --j;
-      while (pointlist[3*j] < pointlist[0]);
-      do
-        ++i;
-      while (i < j && pointlist[3*i] > pointlist[0]);
-      if (i >= j)
-        break;
-      SWAP3(pointlist, i, j);
-    }
-    SWAP3(pointlist, j, 0);
-    ln = j;
-    rn = n - ++j;
-    if (ln < rn)
-    {
-      _quicksort(pointlist, ln);
-      pointlist += 3*j;
-      n = rn;
-    }
-    else
-    {
-      _quicksort(pointlist + 3*j, rn);
-      n = ln;
-    }
-  }
-}
-#undef SWAP3
-
-
-void FexTracker::FindFeatures( int minFeatures )
-{
-	int nli=0;
-	littleFeature *list = new littleFeature[SizX*SizY];
-	for( int y=0;y<SizY;y++ )
-	{
-		for( int x=0;x<SizX;x++ )
-		{
-			int v = GetEigenvalueForPoint( x, y );
-			if( v>0 )
-			{
-				list[nli].val = v;
-				list[nli].x = x;
-				list[nli].y = y;
-				nli++;
-			}
-		}
-	}
-
-	_quicksort( (int*)list, nli );
-
-	int oldN = nFeatures;
-
-	for( int i=0;i<nli && nActiveFeatures<minFeatures;i++ )
-	{
-		int j;
-		for( j=0;j<nFeatures;j++ )
-		{
-			if( lFeatures[j].StartTime + lFeatures[j].Pos.size() < CurFrame  ) continue; //feature was lost
-
-			float dx = list[i].x - lFeatures[j].Pos[ CurFrame - lFeatures[j].StartTime ].x;
-			float dy = list[i].y - lFeatures[j].Pos[ CurFrame - lFeatures[j].StartTime ].y;
-			float sqr = dx*dx+dy*dy;
-			if( sqr < Cfg.MinDistanceSquare ) break;
-		}
-		if( j!=nFeatures ) continue;
-
-		if( nFeatures >= mFeatures )
-		{
-			mFeatures = nFeatures+9;
-			mFeatures -= mFeatures%8;
-			FexTrackingFeature * nlFeatures = (FexTrackingFeature*) new FexTrackingFeature[mFeatures];
-			for( int cpy=0;cpy<nFeatures;cpy++ )
-			{
-				nlFeatures[ cpy ].Eigenvalue = lFeatures[ cpy ].Eigenvalue;
-				nlFeatures[ cpy ].StartTime = lFeatures[ cpy ].StartTime;
-				nlFeatures[ cpy ].Influence = lFeatures[ cpy ].Influence;
-				for( int cpy2=0;cpy2<lFeatures[ cpy ].Pos.size();cpy2++ )
-					nlFeatures[ cpy ].Pos.Add( lFeatures[ cpy ].Pos[cpy2] );
-			}
-			delete [] lFeatures;
-			lFeatures = nlFeatures;
-		}
-
-		lFeatures[nFeatures].Eigenvalue = list[i].val;
-		vec2 pt;
-		pt.x = (float)list[i].x;
-		pt.y = (float)list[i].y;
-		lFeatures[nFeatures].Pos.Add( pt );
-		lFeatures[nFeatures].StartTime = CurFrame;
-		lFeatures[nFeatures].Influence = 0;
-		nFeatures++;
-		nActiveFeatures++;
-	}
-
-	for( int j=oldN;j<nFeatures;j++ )
-		lFeatures[j].StartTime = max(0,lFeatures[j].StartTime-1);
-
-
-	delete []list;
-}
-
-void FexTracker::TrackFeatures()
-{
-	for( int i=0;i<nFeatures;i++ )
-	{
-		if( lFeatures[i].StartTime + lFeatures[i].Pos.size() < CurFrame  ) continue; //feature was lost
-
-		int FeatureFrame = CurFrame - lFeatures[i].StartTime;
-
-		float orig_px = lFeatures[i].Pos[FeatureFrame-1].x;
-		float orig_py = lFeatures[i].Pos[FeatureFrame-1].y;
-
-		vec2 op;
-		op.x = orig_px * CurImg->lLevels[ CurImg->nLevels-1 ]->CoordMul / CurImg->Subsampling;
-		op.y = orig_py * CurImg->lLevels[ CurImg->nLevels-1 ]->CoordMul / CurImg->Subsampling;
-		vec2 np;
-		np = op;
-
-		int l;
-		for( l=CurImg->nLevels-1;l>=0;l-- )
-		{
-			op.x *= CurImg->Subsampling;
-			op.y *= CurImg->Subsampling;
-			np.x *= CurImg->Subsampling;
-			np.y *= CurImg->Subsampling;
-			if( !TrackOneFeature( l, op, np ) ) break;
-		}
-		if( l!=-1 ) continue; //we aborted
-
-		if( np.x<0 || np.y<0 || np.x>SizX || np.y>SizY ) continue;
-
-		lFeatures[i].Pos.Add( np );
-	}
-}
-
-bool FexTracker::TrackOneFeature( int lvl, vec2 op, vec2& np )
-{
-	static float bordereps = 1.1f;
-	if( op.x - Cfg.WindowX < bordereps || op.x + Cfg.WindowX > CurImg->lLevels[lvl]->sx - bordereps ) return 0;
-	if( op.y - Cfg.WindowY < bordereps || op.y + Cfg.WindowY > CurImg->lLevels[lvl]->sy - bordereps ) return 0;
-	if( np.x - Cfg.WindowX < bordereps || np.x + Cfg.WindowX > CurImg->lLevels[lvl]->sx - bordereps ) return 0;
-	if( np.y - Cfg.WindowY < bordereps || np.y + Cfg.WindowY > CurImg->lLevels[lvl]->sy - bordereps ) return 0;
-
-	int isx = (Cfg.WindowX*2+1);
-	int imsiz = isx*(Cfg.WindowY*2+1);
-	float *diff = new float[imsiz];
-	float *gradx = new float[imsiz];
-	float *grady = new float[imsiz];
-
-	bool bOk = 1;
-	for( int iteration=0;iteration<Cfg.MaxIterations;iteration++ )
-	{
-		GetDiffForPointset( lvl, op, np, diff );
-		GetGradForPointset( lvl, op, np, gradx, grady );
-/*
-		imdebug("lum b=32f w=%d h=%d %p /255", isx, imsiz/isx, diff);
-		imdebug("lum b=32f w=%d h=%d %p /255", isx, imsiz/isx, gradx);
-		imdebug("lum b=32f w=%d h=%d %p /255", isx, imsiz/isx, grady);
-*/
-		register float gx, gy, di;
-
-		float gxx = 0, gyy = 0, gxy = 0, ex = 0, ey = 0;
-		for( int i=0;i<imsiz;i++ )
-		{
-			di = diff[i];
-			gx = gradx[i];
-			gy = grady[i];
-
-			gxx += gx*gx;
-			gyy += gy*gy;
-			gxy += gx*gy;
-			ex += di*gx;
-			ey += di*gy;
-		}
-
-		float det = gxx*gyy - gxy*gxy;
-		if( det < Cfg.MinDeterminant )
-		{
-			bOk = 0;
-			break;
-		}
-
-		float dx = (gyy*ex - gxy*ey)/det;
-		float dy = (gxx*ey - gxy*ex)/det;
-		np.x += dx;
-		np.y += dy;
-
-		if( ( np.x - Cfg.WindowX < bordereps || np.x + Cfg.WindowX > CurImg->lLevels[lvl]->sx - bordereps )
-		||  ( np.y - Cfg.WindowY < bordereps || np.y + Cfg.WindowY > CurImg->lLevels[lvl]->sy - bordereps ) )
-		{
-			bOk = 0;
-			break;
-		}
-
-		if( fabs(dx) < Cfg.MinDisplacement && fabs(dy) < Cfg.MinDisplacement )break;
-	}
-	delete [] gradx;
-	delete [] grady;
-
-	if( bOk )
-	{
-		GetDiffForPointset( lvl, op, np, diff );
-
-		float sum = 0;
-		for( int i=0;i<imsiz;i++ )
-			sum += fabsf( diff[i] );
-
-		if( sum / float(imsiz) > Cfg.MaxResidue ) bOk = 0;
-	}
-
-	delete [] diff;
-	return bOk;
-}
-
-inline float Interpolate( float *img, int ImgSX, float x, float y )
-{
-  int xt = (int) x;  /* coordinates of top-left corner */
-  int yt = (int) y;
-  float ax = x - xt;
-  float ay = y - yt;
-  float *ptr = img + (ImgSX*yt) + xt;
-
-  return ( (1-ax) * (1-ay) * *ptr +
-           ax   * (1-ay) * *(ptr+1) +
-           (1-ax) *   ay   * *(ptr+(ImgSX)) +
-           ax   *   ay   * *(ptr+(ImgSX)+1) );
-}
-
-void FexTracker::GetDiffForPointset( int lvl, vec2 op, vec2 np, float* diff )
-{
-	float* img1 = CurImg->lLevels[lvl]->Img;
-	int isx1 = CurImg->lLevels[lvl]->sx;
-	float* img2 = NextImg->lLevels[lvl]->Img;
-	int isx2 = NextImg->lLevels[lvl]->sx;
-	for( int y = -Cfg.WindowY; y <= Cfg.WindowY; y++ )
-	{
-		for( int x = -Cfg.WindowX; x <= Cfg.WindowX; x++ )
-		{
-			*diff++ = Interpolate(img1,isx1,op.x+x,op.y+y) - Interpolate(img2,isx2,np.x+x,np.y+y);
-		}
-	}
-}
-void FexTracker::GetGradForPointset( int lvl, vec2 op, vec2 np, float* gradx, float* grady )
-{
-	int isx = CurImg->lLevels[lvl]->sx;
-
-	float* gx1 = CurImg->lLevels[lvl]->GradX;
-	float* gx2 = NextImg->lLevels[lvl]->GradX;
-
-	float* gy1 = CurImg->lLevels[lvl]->GradY;
-	float* gy2 = NextImg->lLevels[lvl]->GradY;
-
-	for( int y = -Cfg.WindowY; y <= Cfg.WindowY; y++ )
-	{
-		for( int x = -Cfg.WindowX; x <= Cfg.WindowX; x++ )
-		{
-			*gradx++ = Interpolate(gx1,isx,op.x+x,op.y+y) + Interpolate(gx2,isx,np.x+x,np.y+y);
-			*grady++ = Interpolate(gy1,isx,op.x+x,op.y+y) + Interpolate(gy2,isx,np.x+x,np.y+y);
-		}
-	}
-}
-
-
-/*
-
-  static float _minEigenvalue(float gxx, float gxy, float gyy)
-{
-  return (float) ((gxx + gyy - sqrt((gxx - gyy)*(gxx - gyy) + 4*gxy*gxy))/2.0f);
-}
-
-//gen eigenvalue matrix:
-gxx = 0;  gxy = 0;  gyy = 0;
-for (yy = y-window_hh ; yy <= y+window_hh ; yy++)
-{
-  for (xx = x-window_hw ; xx <= x+window_hw ; xx++)  
-  {
-    gx = *(gradx->data + ncols*yy+xx);
-    gy = *(grady->data + ncols*yy+xx);
-    gxx += gx * gx;
-    gxy += gx * gy;
-    gyy += gy * gy;
-  }
-}
-
-
-//get eigenvalue number
-val = _minEigenvalue(gxx, gxy, gyy);
-
-
-for every frame:
-for every feature:
-through all pyramid levels from lowres to highres:
-
-calculate diff, gradx, grady
-gen eigenvalue matrix 
-error vector = [gradx, grady]*imdiff
-
-float det = gxx*gyy - gxy*gxy;
-if (det < small)  return KLT_SMALL_DET;
-*dx = (gyy*ex - gxy*ey)/det;
-*dy = (gxx*ey - gxy*ex)/det;
-
-add [dx,dy] to search position
-
-
-*/
-

FexTrackerSource/FexTracker.h

@@ -1,138 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-
-// The following ifdef block is the standard way of creating macros which make exporting 
-// from a DLL simpler. All files within this DLL are compiled with the FEXTRACKER_EXPORTS
-// symbol defined on the command line. this symbol should not be defined on any project
-// that uses this DLL. This way any other project whose source files include this file see 
-// FEXTRACKER_API functions as being imported from a DLL, wheras this DLL sees symbols
-// defined with this macro as being exported.
-#ifndef AEGISUB
-#ifdef FEXTRACKER_EXPORTS
-#define FEXTRACKER_API __declspec(dllexport)
-#else
-#define FEXTRACKER_API __declspec(dllimport)
-#endif
-#else
-#define FEXTRACKER_API 
-#endif
-
-
-
-class FEXTRACKER_API FexTrackerConfig
-{
-public:
-	inline FexTrackerConfig() : 
-		FeatureNumber(0),
-		EdgeDetectSigma(1.f),
-		WindowX(3), WindowY(3), 
-		SearchRange(15),
-		MaxIterations(10),
-		MinDeterminant(0.01f),
-		MinDisplacement(0.1f),
-		MaxResidue(10.f),
-		IgnoreLightning(0),
-		DetectSmoothSigma(0.9f),
-		MinDistanceSquare(100.f)
-	{};
-
-	int		FeatureNumber;
-
-	int		WindowX, WindowY;				//static const int window_size = 7;
-	int		SearchRange;
-
-	float	DetectSmoothSigma;			//static const float pyramid_sigma_fact = 0.9f;
-	float	EdgeDetectSigma;				//static const float grad_sigma = 1.0f;
-
-	int		MaxIterations;				//static const int max_iterations = 10;
-	float	MinDeterminant;			//static const float min_determinant = 0.01f;
-	float	MinDisplacement;				//static const float min_displacement = 0.1f;
-	float	MaxResidue;				//static const float max_residue = 10.0f;
-
-	bool	IgnoreLightning;				//static const KLT_BOOL lighting_insensitive = FALSE;
-
-	float	MinDistanceSquare;				//static const int mindist = 10;
-
-				//static const int min_eigenvalue = 1;
-				//static const float smooth_sigma_fact = 0.1f;
-				//static const KLT_BOOL sequentialMode = FALSE;
-				///* for affine mapping*/
-				//static const int affineConsistencyCheck = -1;
-				//static const int affine_window_size = 15;
-				//static const int affine_max_iterations = 10;
-				//static const float affine_max_residue = 10.0;
-				//static const float affine_min_displacement = 0.02f;
-				//static const float affine_max_displacement_differ = 1.5f;
-};
-
-typedef struct{
-	float x, y;
-}vec2;
-
-typedef struct{
-	float x, y, z;
-}vec3;
-
-class FexImgPyramid;
-class FexTrackingFeature;
-class FexMovement;
-
-class FEXTRACKER_API FexTracker 
-{
-public:
-	FexTracker( int sx, int sy, int nFeatures );
-	~FexTracker();
-//config
-	FexTrackerConfig  Cfg;
-//work
-	void ProcessImage( float *Img, bool bFirst=0 ); //we assume grayscale image here
-	void ProcessingDone();	// call after last call to ProcessImage to clear temporary storage
-
-//point -> movement
-	void InfluenceFeatures( int Frame, float x, float y, float off );
-	FexMovement* GetMovement();
-
-//feature access
-	FexTrackingFeature* operator [] ( int i );
-	inline int GetCount(){ return nFeatures; };
-	inline int GetFrame(){ return CurFrame; };
-	inline int GetSizeX(){ return SizX; };
-	inline int GetSizeY(){ return SizY; };
-
-	bool bDebug;
-	int minFeatures;
-private:
-	int SizX, SizY;
-	int PyramidSubsampling;
-	int PyramidMaxLevels;
-	FexImgPyramid*	CurImg;
-	FexImgPyramid*	NextImg;
-
-	void FindFeatures( int minFeatures );
-	void TrackFeatures();
-
-	bool TrackOneFeature( int lvl, vec2 op, vec2& np );
-	int GetEigenvalueForPoint( int px, int py );
-	void GetDiffForPointset( int lvl, vec2 op, vec2 np, float* diff );
-	void GetGradForPointset( int lvl, vec2 op, vec2 np, float* gradx, float* grady );
-
-	void CountActiveFeatures();
-
-//result
-	FexTrackingFeature*		lFeatures;
-	int						nFeatures;
-	int						nActiveFeatures;
-	int						mFeatures;
-
-	int CurFrame;
-};
-
-
-
-FEXTRACKER_API void FexBaseResize( float* out, int newx, int newy, float* in, int sizx, int sizy );
-FEXTRACKER_API void GaussKernelWidths( float sigma, int *gauss_width, int *gaussderiv_width );
-FEXTRACKER_API void GaussEdgeDetect( float* Img, int sizx, int sizy, float sigma, float* GradX, float* GradY );
-FEXTRACKER_API void GaussSmooth( float* Img, int sizx, int sizy, float sigma, float* Out );
-
-

FexTrackerSource/FexTrackerMovement.cpp

@@ -1,160 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// FexTrackerMovement.cpp
-//
-
-#include "StdAfx.h"
-#include "stdio.h"
-
-
-
-void FexTracker::InfluenceFeatures( int Frame, float x, float y, float off )
-{
-	for( int i=0;i<nFeatures;i++ )
-	{
-		if( Frame < lFeatures[i].StartTime ) continue;
-
-		int FeatureFrame = Frame - lFeatures[i].StartTime;
-		
-		if( lFeatures[i].Pos.size() < FeatureFrame  ) continue; //feature was lost
-
-		vec2 p = lFeatures[i].Pos[ FeatureFrame ];
-
-		float dist = sqrtf( (p.x-x)*(p.x-x)+(p.y-y)*(p.y-y) );
-		float infl = 1/(dist+1);
-		if( infl < 0.1 ) continue;
-		lFeatures[i].Influence += infl * off;
-		if( lFeatures[i].Influence<0 ) lFeatures[i].Influence = 0;
-		if( lFeatures[i].Influence>1 ) lFeatures[i].Influence = 1;
-	}
-}
-
-
-
-#define VEC2LEN(a) sqrtf( (a).x*(a).x+(a).y*(a).y )
-
-FexMovement* FexTracker::GetMovement()
-{
-	FILE *log = fopen( "movementlog.txt", "wt" );
-
-	int i;
-	for( i=0;i<nFeatures;i++ )
-	{
-		if( lFeatures[i].Influence>0.01 )
-			fprintf( log, "Feature(%.2f): %d - %d\n", lFeatures[i].Influence, lFeatures[i].StartTime, lFeatures[i].StartTime+lFeatures[i].Pos.size() );
-	}
-
-	FexMovement *m = new FexMovement();
-	FexMovementFrame f;
-
-	float FirstInfluenceSum = 0;
-	vec2 FirstPos;
-	FirstPos.x = FirstPos.y = 0;
-
-	for( i=0;i<nFeatures;i++ )
-	{
-		if( 0 < lFeatures[i].StartTime ) continue;
-		if( lFeatures[i].Pos.size() <= 0  ) continue;
-
-		vec2 p = lFeatures[i].Pos[ 0 ];
-
-		FirstPos.x += p.x * lFeatures[i].Influence;
-		FirstPos.y += p.y * lFeatures[i].Influence;
-		FirstInfluenceSum += lFeatures[i].Influence; 
-	}
-	FirstPos.x /= FirstInfluenceSum;
-	FirstPos.y /= FirstInfluenceSum;
-
-	float FirstLen = 1;
-
-
-	vec2* MidOffset = (vec2*) new vec2[nFeatures];
-	float* MidOffsetLen = (float*) new float[nFeatures];
-	for( int Frame = 0; Frame < CurFrame; Frame ++ )
-	{
-		//set feature offset
-		for( i=0;i<nFeatures;i++ )
-		{
-			if( Frame == lFeatures[i].StartTime ) 
-			{
-				MidOffset[i].x = FirstPos.x - lFeatures[i].Pos[0].x;
-				MidOffset[i].y = FirstPos.y - lFeatures[i].Pos[0].y;
-				//realOffLen / MidOffLen = FirstLen
-				// => MidOffLen /= FirstLen;
-				MidOffset[i].x /= FirstLen;
-				MidOffset[i].y /= FirstLen;
-				MidOffsetLen[i] = VEC2LEN( MidOffset[i] );
-			}
-		}
-
-		//accumulate position
-		float NextLen = 0;
-		float NextInfluenceSum = 0;
-		vec2 NextPos;
-		NextPos.x = NextPos.y = 0;
-
-		for( i=0;i<nFeatures;i++ )
-		{
-			if( Frame < lFeatures[i].StartTime ) continue;
-			int FeatureFrame = Frame - lFeatures[i].StartTime;
-			if( lFeatures[i].Pos.size() <= FeatureFrame  ) continue; //feature was lost
-
-			vec2 p = lFeatures[i].Pos[ FeatureFrame ];
-
-			NextPos.x += (p.x+MidOffset[i].x*FirstLen) * lFeatures[i].Influence;
-			NextPos.y += (p.y+MidOffset[i].y*FirstLen) * lFeatures[i].Influence;
-			NextInfluenceSum += lFeatures[i].Influence;
-		}
-
-		if( NextInfluenceSum > 0.01 )
-		{
-			NextPos.x /= NextInfluenceSum;
-			NextPos.y /= NextInfluenceSum;
-		}
-		else 
-			NextPos = FirstPos;  //take over last one
-
-		for( i=0;i<nFeatures;i++ )
-		{
-			if( Frame < lFeatures[i].StartTime ) continue;
-			int FeatureFrame = Frame - lFeatures[i].StartTime;
-			if( lFeatures[i].Pos.size() <= FeatureFrame  ) continue; //feature was lost
-
-			vec2 p = lFeatures[i].Pos[ FeatureFrame ];
-
-			vec2 realMidOff;
-			realMidOff.x = NextPos.x-p.x;
-			realMidOff.y = NextPos.y-p.y;
-			float realMidOffLen = VEC2LEN( realMidOff );
-
-			NextLen += realMidOffLen/MidOffsetLen[i] *lFeatures[i].Influence;
-		}
-
-		if( NextInfluenceSum > 0.01 )
-		{
-			NextLen /= NextInfluenceSum;
-		}
-		else 
-			NextLen = FirstLen;  //take over last one
-
-		f.Pos = NextPos;
-		f.Rot.x = 0;
-		f.Rot.y = 0;
-		f.Rot.z = 0;
-		f.Scale.x = NextLen;
-		f.Scale.y = NextLen;
-		m->Frames.Add( f );
-
-		FirstPos = NextPos;
-		FirstLen = NextLen;
-	}
-
-	delete []MidOffset;
-	delete []MidOffsetLen;
-
-	fclose( log );
-
-	return m;
-}
-

FexTrackerSource/FexTrackingFeature.cpp

@@ -1,22 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// FexTrackingFeature.cpp: implementation of the FexTrackingFeature class.
-//
-//////////////////////////////////////////////////////////////////////
-
-#include "StdAfx.h"
-
-//////////////////////////////////////////////////////////////////////
-// Construction/Destruction
-//////////////////////////////////////////////////////////////////////
-
-FexTrackingFeature::FexTrackingFeature()
-{
-}
-
-FexTrackingFeature::~FexTrackingFeature()
-{
-
-}
- 

FexTrackerSource/FexTrackingFeature.h

@@ -1,30 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// FexTrackingFeature.h: interface for the FexTrackingFeature class.
-//
-//////////////////////////////////////////////////////////////////////
-
-#if !defined(AFX_FEXTRACKINGFEATURE_H__23B42013_9F11_467C_A0F6_F9E647D45CEB__INCLUDED_)
-#define AFX_FEXTRACKINGFEATURE_H__23B42013_9F11_467C_A0F6_F9E647D45CEB__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-#include "tenlist.h"
-class FexTrackingFeature  
-{
-public:
-	FexTrackingFeature();
-	~FexTrackingFeature();
-
-	int				Eigenvalue;
-	tenlist<vec2>	Pos;
- 
-	int				StartTime;
-
-	float			Influence;
-};
-
-#endif // !defined(AFX_FEXTRACKINGFEATURE_H__23B42013_9F11_467C_A0F6_F9E647D45CEB__INCLUDED_)

FexTrackerSource/StdAfx.cpp

@@ -1,11 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// stdafx.cpp : source file that includes just the standard includes
-//	FexTracker.pch will be the pre-compiled header
-//	stdafx.obj will contain the pre-compiled type information
-
-#include "StdAfx.h"
-
-// TODO: reference any additional headers you need in STDAFX.H
-// and not in this file

FexTrackerSource/StdAfx.h

@@ -1,41 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-// stdafx.h : include file for standard system include files,
-//  or project specific include files that are used frequently, but
-//      are changed infrequently
-//
-
-#if !defined(AFX_STDAFX_H__7E36ECD6_3192_4C7E_88C9_742CCCFA5057__INCLUDED_)
-#define AFX_STDAFX_H__7E36ECD6_3192_4C7E_88C9_742CCCFA5057__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-
-// Insert your headers here
-#define WIN32_LEAN_AND_MEAN		// Exclude rarely-used stuff from Windows headers
-
-#include <windows.h>
-#include <stdlib.h>
-#include <math.h>
-#include <assert.h>
-
-#include "FexTracker.h"
-#include "FexImgPyramid.h"
-#include "FexTrackingFeature.h"
-#include "FexMovement.h"
-
-#ifdef IMAGE_DEBUGGER
-#include "ext/imdebug.h"
-#else
-#define imdebug // 
-#endif
-
-// TODO: reference additional headers your program requires here
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#endif // !defined(AFX_STDAFX_H__7E36ECD6_3192_4C7E_88C9_742CCCFA5057__INCLUDED_)

FexTrackerSource/tenlist.h

@@ -1,68 +0,0 @@
-// This file is part of FexTracker and (C) 2006 by Hajo Krabbenhöft  (tentacle)
-// All rights reserved but the aegisub project is allowed to use it.
-
-#pragma once
-
-template< class type >
-	class tenlist {
-public:
-	int		nVal;
-	int		mVal;
-	type*	lVal;
-
-	inline tenlist()	
-	{
-		mVal = 0;
-		nVal = 0;
-		lVal = 0; 
-		//zero everything since we well over-zero it anyway
-	}
-	inline ~tenlist()	
-	{
-		free( lVal );
-	}
-
-	inline int size()	
-	{
-		return nVal;
-	}
-
-	inline void Add( type t )
-	{
-		if( nVal+1 >= mVal )
-		{
-			mVal += 8;
-			lVal = (type*)realloc( lVal, sizeof(type)*mVal );
-			memset( lVal+nVal, 0x00, sizeof(type)*(mVal-nVal) );  //lVal+nVal, since it'll be multiplied by sizeof(type) due to lVal being a type*
-		}
-		lVal[nVal++] = t;
-	}
-
-	inline void AddStr( type t )
-	{
-		if( nVal+1 >= mVal )
-		{
-			mVal += 8;
-			lVal = (type*)realloc( lVal, sizeof(type)*mVal );
-			memset( lVal+nVal, 0x00, sizeof(type)*(mVal-nVal) );  //lVal+nVal, since it'll be multiplied by sizeof(type) due to lVal being a type*
-		}
-		strcpy( lVal[nVal++], t );
-	}
-
-	inline void Rem( int n )
-	{
-		if( n>=nVal )
-		{
-			nVal = 0;
-			return;
-		}
-
-		for( int i=0;i<nVal;i++ )
-		{
-			lVal[i] = lVal[i+n];
-		}
-	}
-
-	type& operator[]( int i ) const
-	{ return lVal[i]; }
-};

LICENCE

@@ -0,0 +1,44 @@
+Copyright (c) 2004-2012, Aegisub Project
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+  * Redistributions of source code must retain the above copyright notice,
+    this list of conditions and the following disclaimer.
+  * Redistributions in binary form must reproduce the above copyright notice,
+    this list of conditions and the following disclaimer in the documentation
+    and/or other materials provided with the distribution.
+  * Neither the name of the Aegisub Group nor the names of its contributors
+    may be used to endorse or promote products derived from this software
+    without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+--- END AEGISUB LICENSE --
+
+Any file that does not have a license in the header is covered by the above
+license with exception to any directories that contain a license file, or are
+covered by another license in the file itself.
+
+The following directories and file are covered by their respective licenses as
+follows:
+
+src/gl/
+ - MIT license. See src/gl/glext.h
+
+src/MatroskaParser.(c|h)
+ - Licensed to BSDL with permission from the author.
+
+universalchardet/
+ - MPL 1.1
+

Makefile.am

@@ -1,3 +0,0 @@
-AUTOMAKE_OPTIONS = foreign
-SUBDIRS = ac core locale
-

README.md

@@ -0,0 +1,186 @@
+## arch1t3cht's Aegisub "fork"
+Download release builds [here](https://github.com/arch1t3cht/Aegisub/releases), or the latest CI builds [here](https://github.com/arch1t3cht/Aegisub/actions).
+
+The release page also has detailed list of all changes and new features. If you're interested in the technical details or want to compile yourself, read on.
+
+### Don't we have enough Aegisub forks already??
+We absolutely do, and I'm aware that adding another one [doesn't sound like](https://xkcd.com/927/) a [good idea on paper](https://cdn.discordapp.com/attachments/425357202963038208/1007103606421459004/unknown.png). However,
+
+- None of the existing forks are completely satisfying at the moment:
+  - [wangqr's fork](https://github.com/wangqr/Aegisub) is actively maintained, but focussing more on stability. It's missing most of the modern features.
+  - [AegisubDC](https://github.com/Ristellise/AegisubDC) has the most modern features (in particular video-panning), but is Windows-only and not actively maintained anymore.
+  - [The TypesettingTools fork](https://github.com/TypesettingTools/Aegisub) is the one that will one day become the upstream version and builds relatively effortlessly on all operating systems, but at the moment it's not moving much. It's the base for this fork, and I hope to one day merge most of these additions into it.
+- Only PR'ing the changes in here to various forks would cause even more chaos
+- ~~I try to convince myself that this isn't really a "fork" in the traditional sense - one which aims to provide extended support and stability fixes. It's a collection of new feature additions which I built myself, together with some of the most important new features floating around other forks.~~ At this point it's probably too late to still be saying this. Still, the general mission hasn't changed. This fork collects new features and critical bugfixes, but won't be putting extra time into maintenance aspects like cleanup and refactors. Partly, this is also because any big refactors would make it harder to pull these changes into upstream repositories or future forks.
+
+    While this is usually also the version of Aegisub I'm currently using, I make no promises on stability. **Don't** use this version if you're just looking for any version of Aegisub - this is mostly intended for typesetting and other advanced usage.
+
+### Organization
+Being a collection of different feature additions, this repository consists of a set of branches for different features, so that they can easily be merged into other repositories. The [`feature`](https://github.com/arch1t3cht/Aegisub/tree/feature) branch merges together all the features I deem as currently usable. Due to the structure of the repository, I will be force-pushing to this branch and some of the individual branches very frequently, so they're not ideal for basing further branches on.
+
+The `cibuilds` branch makes some CI builds of snapshots of `feature` at relevant points in time.
+
+### Branch/Feature list
+This list is for navigating the repository. Go to the [release page](https://github.com/arch1t3cht/Aegisub/releases) for a more structured changelog.
+- [`folding`](https://github.com/arch1t3cht/Aegisub/tree/folding): Add the ability to visually group and collapse lines in the subtitle grid
+- [`lua_api`](https://github.com/arch1t3cht/Aegisub/tree/lua_api): Add new functions to the Lua automation API, like controlling the selection or cursor in the text edit box
+- [`vector_clip_actions`](https://github.com/arch1t3cht/Aegisub/tree/vector_clip_actions): Make the different modes of the vector clip tool (lines, bezier curves, adding points, etc) bindable to hotkeys
+- [`color_picker_fix2`](https://github.com/arch1t3cht/Aegisub/tree/color_picker_fix2): Add an option (under "Interface") to restrict the color picker to the window, which fixes the color picker on Linux in a lot of cases.
+- [`avisynth`](https://github.com/arch1t3cht/Aegisub/tree/avisynth): Reenable Avisynth support on Windows and enable Avisynth on Linux
+- [`bestsource`](https://github.com/arch1t3cht/Aegisub/tree/bestsource): Add BestSource audio and video source. This source is slower than others by multiple orders of magnitude, but in exchange it can guarantee exact seeking.
+- [`vapoursynth`](https://github.com/arch1t3cht/Aegisub/tree/vapoursynth): Add Vapoursynth audio and video source
+- [`bugfixes`](https://github.com/arch1t3cht/Aegisub/tree/bugfixes): Various fixes necessary for compilation. Most branches are based on this.
+- [`workarounds`](https://github.com/arch1t3cht/Aegisub/tree/workarounds): Same as `bugfixes`, but these are hacky fixes that probably shouldn't be pulled without more work.
+- [`fixes`](https://github.com/arch1t3cht/Aegisub/tree/fixes): Miscellaneous bugfixes
+- [`misc`](https://github.com/arch1t3cht/Aegisub/tree/misc): Other miscellaneous additions
+- [`wangqr_gui`](https://github.com/arch1t3cht/Aegisub/tree/wangqr_gui): Merge wangqr's changes regarding the GUI. In particular, add high-DPI compatibility.
+- [`misc_dc`](https://github.com/arch1t3cht/Aegisub/tree/misc_dc): Miscellaneous changes taken from AegisubDC
+- [`xa2-ds`](https://github.com/arch1t3cht/Aegisub/tree/xa2-ds): Add XAudio2 backend and allow stereo playback for some other backends, by wangqr and Shinon.
+- [`stereo`](https://github.com/arch1t3cht/Aegisub/tree/stereo): Add multi-channel support for the other audio backends where possible.
+- [`video_panning_option`](https://github.com/arch1t3cht/Aegisub/tree/video_panning_option): Merge [moex3's video zoom and panning](https://github.com/TypesettingTools/Aegisub/pull/150), with several bugfixes and more options to control zoom behavior
+- [`spectrum-frequency-mapping`](https://github.com/arch1t3cht/Aegisub/tree/spectrum-frequency-mapping): Merge EleonoreMizo's [spectrum display improvements](https://github.com/TypesettingTools/Aegisub/pull/94), and also make Shift+Scroll vertically zoom the audio display
+- [`wangqr_time_video`](https://github.com/arch1t3cht/Aegisub/tree/wangqr_time_video): Merge wangqr's feature adding a tool for timing subtitles to changes in the video
+
+### Troubleshooting
+I'll gladly take any bug reports, but if you encounter an issue, please check first if it occurs only on my fork, or also on [earlier TSTools builds](https://github.com/TypesettingTools/Aegisub/actions).
+If it wasn't introduced by my fork, I can still take a look, but I can't promise anything.
+
+You can find me for support on various servers, including the cave and the TSTools server linked below.
+
+#### Aegisub on Linux doesn't recognize my GTK theme
+This is probably because you're building with wxgtk2. Building with wxgtk3 fixes this, but causes some problems of its own (notably the broken color picker, occasional crashes when opening file dialogs from automation scripts, and general layouting issues).
+
+The exact way of switching depends on your Linux distribution, but essentially you need to ensure that `wx-config` or the next best variant of it points to wxgtk3. If it points to wxgtk2 by default and deinstalling wxgtk2 isn't an option, you can also temporarily move it out of the path or use a `native-file` in your meson project. Then, fully reconfigure meson using `meson configure --clearcache` and `meson setup --reconfigure`.
+
+#### The video is desynced / Frames don't appear at the right time
+This is probably due to the ffms2 seeking bug ([#394](https://github.com/FFMS/ffms2/issues/394)). On Windows, this specific regression shouldn't happen anymore. On Linux, you need to install the latest git version of ffms2 - for example the [`ffms2-git`](https://aur.archlinux.org/packages/ffms2-git) AUR package on Arch linux, or just compile it yourself.
+
+If it's not because of this particular bug, you can also try an alternative video source like LSMASHSource via Avisynth or Vapoursynth, or BestSource.
+
+#### On Windows: Aegisub crashes whenever I open a video
+If you're compiling yourself, try adding `--force-fallback-for=zlib` to the meson options.
+
+
+### Compilation
+If you're just looking to install Aegisub, you might want to check out the [releases page](https://github.com/arch1t3cht/Aegisub/releases) or the [CI builds](https://github.com/arch1t3cht/Aegisub/actions) first.
+
+For compilation on Windows, see the TSTools documentation below. Also check the [GitHub workflow](https://github.com/arch1t3cht/Aegisub/blob/cibuilds/.github/workflows/ci.yml) for the project arguments.
+
+On Arch Linux, there is an AUR package called [aegisub-arch1t3cht-git](https://aur.archlinux.org/packages/aegisub-arch1t3cht-git). It's not maintained by me but seems to work.
+
+On other Linux distributions or for manual compilation you can use this package or the [TSTools PKGBUILD](https://aur.archlinux.org/packages/aegisub-ttools-meson-git) as a reference, in particular for installing the necessary dependencies if you don't want to compile them yourself.
+If all dependencies are installed:
+- Install Meson
+- Clone the repository
+- In the repository, run `meson setup build --buildtype=release` for the default configuration. See below for further options.
+- `cd` to the `build` directory and run `ninja`
+- You'll get an `aegisub` binary in the `build` folder. To install it to a system-wide location, run `ninja install`. To install to `/usr` instead of `/usr/local`, pass `--prefix=/usr` when configuring or reconfiguring meson.
+- When recompiling after pulling new commits, skip the `meson setup` setup and just immediately run `ninja` from the build directory - even when the build configuration changed.
+
+#### Compilation flags
+Some features are not enabled by default. To enable them, pass `-D<feature>=enabled` with the `meson setup` command:
+
+- `-Davisynth=enabled`: Avisynth support
+- `-Dbestsource=enabled`: BestSource
+- `-Dvapoursynth=enabled`: Vapoursynth support
+
+You can also disable options that are active by default in the same way. Check the file `meson_options.txt` for all options.
+
+To change the options of an existing build directory, run `meson setup --reconfigure <new arguments>` from inside the `build` directory.
+
+### Dependencies
+Apart from the dependencies for the TSTools version, there are some additional dependencies. These are cloned and compiled from scratch if not found, but you might want to install binaries instead:
+- `jansson`: For BestSource
+- `ffmpeg`: Becomes a direct dependency when compiling with BestSource
+- `avisynth` (or `avisynthplus`): Optional run-time dependency for the Avisynth source
+- `vapoursynth`: Optional run-time dependency for the VapourSynth source
+
+   The following VapourSynth plugins are used by the default scripts set in the default configuration:
+   - [`lsmas`](https://github.com/AkarinVS/L-SMASH-Works): For LWLibavSource
+   - [`bas`](https://github.com/vapoursynth/bestaudiosource): For BestAudioSource
+   - [`wwxd`](https://github.com/dubhater/vapoursynth-wwxd) and [`scxvid`](https://github.com/dubhater/vapoursynth-scxvid) (depending on settings): For keyframe generation
+
+
+# Aegisub
+
+For binaries and general information [see the homepage](http://www.aegisub.org).
+
+The bug tracker can be found at https://github.com/Aegisub/Aegisub/issues.
+
+Support is available on [Discord](https://discord.com/invite/AZaVyPr) or [IRC](irc://irc.rizon.net/aegisub).
+
+## Building Aegisub
+
+### Windows
+
+Prerequisites:
+
+1. Visual Studio (Community edition of any recent version is fine)
+2. The June 2010 DirectX SDK (the final release before DirectSound was dropped)
+3. Python 3
+4. Meson
+5. CMake
+6. Powershell execution policy set to Unrestricted
+
+There are a few optional dependencies that must be installed and on your PATH:
+
+1. msgfmt, to build the translations
+2. InnoSetup, to build the regular installer
+3. 7zip, to build the regular installer
+4. Moonscript, to build the regular installer
+
+All other dependencies are either stored in the repository or are included as submodules.
+
+Building:
+
+1. Clone Aegisub's repository: `git clone https://github.com/arch1t3cht/Aegisub.git`
+2. From the Visual Studio "x64 Native Tools Command Prompt", generate the build directory: `meson build -Ddefault_library=static` (if building for release, add `--buildtype=release`)
+3. Build with `cd build` and `ninja`
+
+You should now have a binary: `aegisub.exe`.
+
+Installer:
+
+You can generate the installer with `ninja win-installer` after a successful build. This assumes a working internet connection and installation of the optional dependencies.
+
+You can generate the portable zip with `ninja win-portable` after a successful build.
+
+### OS X
+
+A vaguely recent version of Xcode and the corresponding command-line tools are required.
+
+For personal usage, you can use pip and homebrew to install almost all of Aegisub's dependencies:
+
+    pip3 install meson
+    brew install cmake ninja pkg-config  libass boost zlib ffms2 fftw hunspell
+    export LDFLAGS="-L/usr/local/opt/icu4c/lib"
+    export CPPFLAGS="-I/usr/local/opt/icu4c/include"
+    export PKG_CONFIG_PATH="/usr/local/opt/icu4c/lib/pkgconfig"
+
+Once the dependencies are installed, build Aegisub with `meson build && meson compile -C build`.
+
+#### Build dmg
+
+```bash
+meson build_static -Ddefault_library=static -Dbuildtype=debugoptimized -Dbuild_osx_bundle=true -Dlocal_boost=true
+meson compile -C build_static
+meson test -C build_static --verbose
+meson compile osx-bundle -C build_static
+meson compile osx-build-dmg -C build_static
+```
+
+## Updating Moonscript
+
+From within the Moonscript repository, run `bin/moon bin/splat.moon -l moonscript moonscript/ > bin/moonscript.lua`.
+Open the newly created `bin/moonscript.lua`, and within it make the following changes:
+
+1. Prepend the final line of the file, `package.preload["moonscript"]()`, with a `return`, producing `return package.preload["moonscript"]()`.
+2. Within the function at `package.preload['moonscript.base']`, remove references to `moon_loader`, `insert_loader`, and `remove_loader`. This means removing their declarations, definitions, and entries in the returned table.
+3. Within the function at `package.preload['moonscript']`, remove the line `_with_0.insert_loader()`.
+
+The file is now ready for use, to be placed in `automation/include` within the Aegisub repo.
+
+## License
+
+All files in this repository are licensed under various GPL-compatible BSD-style licenses; see LICENCE and the individual source files for more information.
+The official Windows and OS X builds are GPLv2 due to including fftw3.

ac/Makefile.am

@@ -1 +0,0 @@
-extra_DIST=compile config.guess config.sub depcomp install-sh missing mkinstalldirs

autogen.sh

@@ -1,4 +0,0 @@
-#!/bin/sh
-
-aclocal && autoheader && automake -a && autoconf && echo "'configure' script created successfully."
-

automation/.gitignore

@@ -0,0 +1 @@
+aegisub.so.*

automation/autoload/clean-k-tags.lua

@@ -0,0 +1,46 @@
+local tr = aegisub.gettext
+
+script_name = tr"Clean k tags"
+script_description = tr"Remove double k tags"
+script_author = "amoethyst"
+script_version = "1.0"
+
+local double_k = "^(.-{\\k[^}]-)(\\k.+)$"
+-- if the first tag is K/kf this would break the timing for the previous timing
+local expr = "^(.-){\\(ko?)([0-9.]+)[^}]-}([^{]-){\\[kK][fo]?([0-9.]+)[^}]-}( -{(\\[kK][fo]?)[0-9.]+[^}]-}.*)$"
+
+
+function _special_k(subs, i)
+    line = subs[i]
+
+    before, after = line.text:match(double_k)
+    while after ~= nil do
+        line.text = before .. "}{" .. after
+        before, after = line.text:match(double_k)
+    end
+
+    before, tag, k1, between, k2, after = line.text:match(expr)
+    while after ~= nil do
+        line.text = before .. "{\\" .. tag .. tonumber(k1) + tonumber(k2) .. "}" .. between .. after
+        before, tag, k1, between, k2, after = line.text:match(expr)
+    end
+
+    return line
+end
+
+
+function special_k(subs, sel)
+
+    for _, i in ipairs(sel) do
+        ok, res = pcall(_special_k, subs, i)
+        if ok then
+            subs[i] = res
+        else
+            aegisub.log("error on line " .. i .. ": " .. line.text .. "\n")
+            aegisub.log(res .. "\n")
+        end
+    end
+
+end
+
+aegisub.register_macro(script_name, script_description, special_k)

automation/autoload/cleantags-autoload.lua

@@ -0,0 +1,64 @@
+--[[ 
+"Clean Tags" -- An Auto4 LUA script for cleaning up ASS subtitle lines of badly-formed override 
+blocks and redundant/duplicate tags
+* Designed to work for Aegisub 2.0 and above (only pre-release version was available at the time of 
+writing) @ http://www.malakith.net/aegiwiki
+* Requires cleantags.lua to be available in automation's include folder
+* The changes performed on your subtitles are guaranteed to be undo-able provided that Aegisub's undo 
+mechanism works. Even so, I am not resposible if it damages your subtitles permanently, so please 
+back up your subtitle file before applying the cleaning up
+
+Copyright (c) 2007-2009 Muhammad Lukman Nasaruddin (aka ai-chan, Aegisub's forum member)
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
+associated documentation files (the "Software"), to deal in the Software without restriction, 
+including without limitation the rights to use, copy, modify, merge, publish, distribute, 
+sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is 
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial 
+portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT 
+NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES 
+OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN 
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+]]
+
+local tr = aegisub.gettext
+
+script_name = tr"Clean Tags"
+script_description = tr"Clean subtitle lines by re-arranging ASS tags and override blocks within the lines"
+script_author = "Muhammad Lukman Nasaruddin (ai-chan)"
+script_version = "1.20"
+script_modified = "25 February 2009"
+
+include("cleantags.lua")
+
+function cleantags_subs(subtitles)
+	local linescleaned = 0
+	for i = 1, #subtitles do
+		aegisub.progress.set(i * 100 / #subtitles)
+		if subtitles[i].class == "dialogue" and not subtitles[i].comment and subtitles[i].text ~= "" then
+			ntext = cleantags(subtitles[i].text)
+			local nline = subtitles[i]
+			nline.text = ntext
+			subtitles[i] = nline
+			linescleaned = linescleaned + 1
+			aegisub.progress.task(linescleaned .. " lines cleaned")
+		end
+	end
+end
+
+function cleantags_macro(subtitles, selected_lines, active_line)
+	cleantags_subs(subtitles)
+	aegisub.set_undo_point(script_name)
+end
+
+function cleantags_filter(subtitles, config)
+	cleantags_subs(subtitles)
+end
+
+aegisub.register_macro(script_name, script_description, cleantags_macro)
+aegisub.register_filter(script_name, script_description, 0, cleantags_filter)

automation/autoload/driftfix.lua

@@ -0,0 +1,26 @@
+local tr = aegisub.gettext
+
+script_name = tr"driftfix"
+script_description = tr"shift drifting lines"
+script_author = "amoethyst"
+script_version = "1.0"
+
+
+function split_line(subs, sel)
+    local step = -200 -- drift step in milliseconds
+    local drift = step
+
+    for _, i in ipairs(sel) do
+        line = subs[i]
+
+        line.start_time = line.start_time + drift
+        line.end_time = line.end_time + drift
+        drift = drift + step
+
+        subs[i] = line
+    end
+
+    aegisub.set_undo_point(script_name)
+end
+
+aegisub.register_macro(script_name, script_description, split_line)

automation/autoload/duetto-meika.lua

@@ -0,0 +1,175 @@
+local tr = aegisub.gettext
+
+script_name = tr"Duetto Meika"
+script_description = tr"The ultimate tool for karaoke duets"
+script_author = "amoethyst"
+
+include("utils.lua")
+
+
+function replace_style(line, style_name, style_string)
+    before_style, after_style = line.text:match("^(.-{[^}]-)\\?s:".. style_name .."(.*)$")
+    return before_style .. style_string .. after_style
+end
+
+
+function duetto(subs, sel)
+    styles = {}
+
+    -- create the style map
+    for _, line in ipairs(subs) do
+        if line.class == "style" then
+            styles[line.name] = line
+        end
+    end
+
+    -- duetto~
+    for _, i in ipairs(sel) do
+        line = subs[i]
+
+        current_style = styles[line.style]
+        -- match every `s:` marker
+        for style_name in line.text:gmatch("{[^}]*s:([^}\\]*)[^}]*}") do
+            if style_name ~= current_style.name then
+
+                style = styles[style_name]
+                -- build the tags to use the new style
+                style_string = ""
+                if current_style.color1 ~= style.color1 then
+                    style_string = style_string .. "\\c" .. style.color1
+                end
+                if current_style.color2 ~= style.color2 then
+                    style_string = style_string .. "\\2c" .. style.color2
+                end
+                if current_style.color3 ~= style.color3 then
+                    style_string = style_string .. "\\3c" .. style.color3
+                end
+                if current_style.color4 ~= style.color4 then
+                    style_string = style_string .. "\\4c" .. style.color4
+                end
+
+                -- set style
+                line.text = replace_style(line, style_name, style_string)
+                current_style = style
+            else
+                -- remove marker to not break everything
+                line.text = replace_style(line, style_name, "")
+            end
+        end
+        subs[i] = line
+    end
+
+    aegisub.set_undo_point(script_name)
+end
+
+
+function test_colors(c1, c2)
+    return color_from_style(c1) == color_from_style(c2)
+end
+
+
+function get_script_style(style, styles)
+    for key, script_style in pairs(styles) do
+        if (test_colors(style.color1, script_style.color1)
+                and test_colors(style.color2, script_style.color2)
+                and test_colors(style.color3, script_style.color3)
+                and test_colors(style.color4, script_style.color4)
+                and tonumber(style.fontsize) == tonumber(script_style.fontsize)
+                and style.fontname == script_style.fontname) then
+            return script_style
+        end
+    end
+    return nil
+end
+
+
+function deduetto_meika(subs, sel)
+    local styles = {}
+    local last_style = -1
+
+    -- create the style map
+    for i, line in ipairs(subs) do
+        if line.class == "style" then
+            styles[line.name] = line
+            last_style = i
+        end
+    end
+
+    local new_styles = {}
+
+    for _, i in ipairs(sel) do
+        local line = subs[i]
+        local current_style = table.copy(styles[line.style])
+
+        local search_index = 1
+        while search_index < #line.text do
+            local match_start, match_end = line.text:find("{[^}]*}", search_index)
+            if match_start == nil then
+                break
+            end
+
+            local bracketed = line.text:sub(match_start, match_end)
+            local new_style = false
+
+            -- change style's colors
+            for tag, value in bracketed:gmatch("\\([1-4]?c)([^}\\]*)") do
+                new_style = true
+                if tag == "c" or tag == "1c" then
+                    current_style.color1 = value
+                elseif tag == "2c" then
+                    current_style.color2 = value
+                elseif tag == "3c" then
+                    current_style.color3 = value
+                elseif tag == "4c" then
+                    current_style.color4 = value
+                end
+            end
+
+            -- change style's font
+            for tag, value in bracketed:gmatch("\\(f[sn])([^}\\]*)") do
+                new_style = true
+                if tag == "fs" then
+                    current_style.fontsize = value
+                elseif tag == "fn" then
+                    current_style.fontname = value
+                end
+            end
+
+            if new_style then
+                local script_style = get_script_style(current_style, styles)
+                if script_style == nil then
+                    if get_script_style(current_style, new_styles) == nil then
+                        new_styles[#new_styles+1] = table.copy(current_style)
+                    end
+                else
+                    -- remove inline colors
+                    bracketed = bracketed:gsub("\\[1-4]?c[^\\}]*", "")
+                    bracketed = bracketed:gsub("\\[1-4]?a[^\\}]*", "")
+                    -- remove inline fonts
+                    bracketed = bracketed:gsub("\\f[sn][^\\}]*", "")
+
+                    -- add style marker
+                    bracketed = "{s:" .. script_style.name .. bracketed:sub(2, #bracketed)
+                    line.text = line.text:sub(1, match_start-1) .. bracketed ..  line.text:sub(match_end + 1, #line.text)
+                end
+            end
+
+            search_index = match_start + 1
+        end
+
+        subs[i] = line
+    end
+
+    if #new_styles > 0 then
+        for i, new_style in ipairs(new_styles) do
+            new_style.name = "Deduetto style " .. i
+            subs.insert(last_style, new_style)
+            last_style = last_style + 1
+            aegisub.log("Created new style: " .. new_style.name .. "\n")
+        end
+    end
+
+end
+
+aegisub.register_macro(script_name, script_description, duetto)
+aegisub.register_macro(tr"Deduetto Meika", tr"Create styles from inline color tags", deduetto_meika)

automation/autoload/kara-templater.lua

@@ -0,0 +1,861 @@
+--[[
+ Copyright (c) 2007, Niels Martin Hansen, Rodrigo Braz Monteiro
+ All rights reserved.
+
+ Redistribution and use in source and binary forms, with or without
+ modification, are permitted provided that the following conditions are met:
+
+   * Redistributions of source code must retain the above copyright notice,
+     this list of conditions and the following disclaimer.
+   * Redistributions in binary form must reproduce the above copyright notice,
+     this list of conditions and the following disclaimer in the documentation
+     and/or other materials provided with the distribution.
+   * Neither the name of the Aegisub Group nor the names of its contributors
+     may be used to endorse or promote products derived from this software
+     without specific prior written permission.
+
+ THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ POSSIBILITY OF SUCH DAMAGE.
+]]
+
+-- Aegisub Automation 4 Lua karaoke templater tool
+-- Parse and apply a karaoke effect written in ASS karaoke template language
+-- See help file and wiki for more information on this
+
+local tr = aegisub.gettext
+
+script_name = tr"Karaoke Templater"
+script_description = tr"Macro and export filter to apply karaoke effects using the template language"
+script_author = "Niels Martin Hansen"
+script_version = "2.1.7"
+
+
+include("karaskel.lua")
+
+
+-- Find and parse/prepare all karaoke template lines
+function parse_templates(meta, styles, subs)
+	local templates = { once = {}, line = {}, syl = {}, char = {}, furi = {}, styles = {} }
+	local i = 1
+	while i <= #subs do
+		aegisub.progress.set((i-1) / #subs * 100)
+		local l = subs[i]
+		i = i + 1
+		if l.class == "dialogue" and l.comment then
+			local fx, mods = string.headtail(l.effect)
+			fx = fx:lower()
+			if fx == "code" then
+				parse_code(meta, styles, l, templates, mods)
+			elseif fx == "template" then
+				parse_template(meta, styles, l, templates, mods)
+			end
+			templates.styles[l.style] = true
+		elseif l.class == "dialogue" and l.effect == "fx" then
+			-- this is a previously generated effect line, remove it
+			i = i - 1
+			subs.delete(i)
+		end
+	end
+	aegisub.progress.set(100)
+	return templates
+end
+
+function parse_code(meta, styles, line, templates, mods)
+	local template = {
+		code = line.text,
+		loops = 1,
+		style = line.style
+	}
+	local inserted = false
+
+	local rest = mods
+	while rest ~= "" do
+		local m, t = string.headtail(rest)
+		rest = t
+		m = m:lower()
+		if m == "once" then
+			aegisub.debug.out(5, "Found run-once code line: %s\n", line.text)
+			table.insert(templates.once, template)
+			inserted = true
+		elseif m == "line" then
+			aegisub.debug.out(5, "Found per-line code line: %s\n", line.text)
+			table.insert(templates.line, template)
+			inserted = true
+		elseif m == "syl" then
+			aegisub.debug.out(5, "Found per-syl code line: %s\n", line.text)
+			table.insert(templates.syl, template)
+			inserted = true
+		elseif m == "furi" then
+			aegisub.debug.out(5, "Found per-syl code line: %s\n", line.text)
+			table.insert(templates.furi, template)
+			inserted = true
+		elseif m == "all" then
+			template.style = nil
+		elseif m == "noblank" then
+			template.noblank = true
+		elseif m == "repeat" or m == "loop" then
+			local times, t = string.headtail(rest)
+			template.loops = tonumber(times)
+			if not template.loops then
+				aegisub.debug.out(3, "Failed reading this repeat-count to a number: %s\nIn template code line: %s\nEffect field: %s\n\n", times, line.text, line.effect)
+				template.loops = 1
+			else
+				rest = t
+			end
+		else
+			aegisub.debug.out(3, "Unknown modifier in code template: %s\nIn template code line: %s\nEffect field: %s\n\n", m, line.text, line.effect)
+		end
+	end
+
+	if not inserted then
+		aegisub.debug.out(5, "Found implicit run-once code line: %s\n", line.text)
+		table.insert(templates.once, template)
+	end
+end
+
+-- List of reserved words that can't be used as "line" template identifiers
+template_modifiers = {
+	"pre-line", "line", "syl", "furi", "char", "all", "repeat", "loop",
+	"notext", "keeptags", "noblank", "multi", "fx", "fxgroup"
+}
+
+function parse_template(meta, styles, line, templates, mods)
+	local template = {
+		t = "",
+		pre = "",
+		style = line.style,
+		loops = 1,
+		layer = line.layer,
+		addtext = true,
+		keeptags = false,
+		fxgroup = nil,
+		fx = nil,
+		multi = false,
+		isline = false,
+		perchar = false,
+		noblank = false
+	}
+	local inserted = false
+
+	local rest = mods
+	while rest ~= "" do
+		local m, t = string.headtail(rest)
+		rest = t
+		m = m:lower()
+		if (m == "pre-line" or m == "line") and not inserted then
+			aegisub.debug.out(5, "Found line template '%s'\n", line.text)
+			-- should really fail if already inserted
+			local id, t = string.headtail(rest)
+			id = id:lower()
+			-- check that it really is an identifier and not a keyword
+			for _, kw in pairs(template_modifiers) do
+				if id == kw then
+					id = nil
+					break
+				end
+			end
+			if id == "" then
+				id = nil
+			end
+			if id then
+				rest = t
+			end
+			-- get old template if there is one
+			if id and templates.line[id] then
+				template = templates.line[id]
+			elseif id then
+				template.id = id
+				templates.line[id] = template
+			else
+				table.insert(templates.line, template)
+			end
+			inserted = true
+			template.isline = true
+			-- apply text to correct string
+			if m == "line" then
+				template.t = template.t .. line.text
+			else -- must be pre-line
+				template.pre = template.pre .. line.text
+			end
+		elseif m == "syl" and not template.isline then
+			table.insert(templates.syl, template)
+			inserted = true
+		elseif m == "furi" and not template.isline then
+			table.insert(templates.furi, template)
+			inserted = true
+		elseif (m == "pre-line" or m == "line") and inserted then
+			aegisub.debug.out(2, "Unable to combine %s class templates with other template classes\n\n", m)
+		elseif (m == "syl" or m == "furi") and template.isline then
+			aegisub.debug.out(2, "Unable to combine %s class template lines with line or pre-line classes\n\n", m)
+		elseif m == "all" then
+			template.style = nil
+		elseif m == "repeat" or m == "loop" then
+			local times, t = string.headtail(rest)
+			template.loops = tonumber(times)
+			if not template.loops then
+				aegisub.debug.out(3, "Failed reading this repeat-count to a number: %s\nIn template line: %s\nEffect field: %s\n\n", times, line.text, line.effect)
+				template.loops = 1
+			else
+				rest = t
+			end
+		elseif m == "notext" then
+			template.addtext = false
+		elseif m == "keeptags" then
+			template.keeptags = true
+		elseif m == "multi" then
+			template.multi = true
+		elseif m == "char" then
+			template.perchar = true
+		elseif m == "noblank" then
+			template.noblank = true
+		elseif m == "fx" then
+			local fx, t = string.headtail(rest)
+			if fx ~= "" then
+				template.fx = fx
+				rest = t
+			else
+				aegisub.debug.out(3, "No fx name following fx modifier\nIn template line: %s\nEffect field: %s\n\n", line.text, line.effect)
+				template.fx = nil
+			end
+		elseif m == "fxgroup" then
+			local fx, t = string.headtail(rest)
+			if fx ~= "" then
+				template.fxgroup = fx
+				rest = t
+			else
+				aegisub.debug.out(3, "No fxgroup name following fxgroup modifier\nIn template linee: %s\nEffect field: %s\n\n", line.text, line.effect)
+				template.fxgroup = nil
+			end
+		else
+			aegisub.debug.out(3, "Unknown modifier in template: %s\nIn template line: %s\nEffect field: %s\n\n", m, line.text, line.effect)
+		end
+	end
+
+	if not inserted then
+		table.insert(templates.syl, template)
+	end
+	if not template.isline then
+		template.t = line.text
+	end
+end
+
+-- Iterator function, return all templates that apply to the given line
+function matching_templates(templates, line, tenv)
+	local lastkey = nil
+	local function test_next()
+		local k, t = next(templates, lastkey)
+		lastkey = k
+		if not t then
+			return nil
+		elseif (t.style == line.style or not t.style) and
+				(not t.fxgroup or
+				(t.fxgroup and tenv.fxgroup[t.fxgroup] ~= false)) then
+			return t
+		else
+			return test_next()
+		end
+	end
+	return test_next
+end
+
+-- Iterator function, run a loop using tenv.j and tenv.maxj as loop controllers
+function template_loop(tenv, initmaxj)
+	local oldmaxj = initmaxj
+	tenv.maxj = initmaxj
+	tenv.j = 0
+	local function itor()
+		if tenv.j >= tenv.maxj or aegisub.progress.is_cancelled() then
+			return nil
+		else
+			tenv.j = tenv.j + 1
+			if oldmaxj ~= tenv.maxj then
+				aegisub.debug.out(5, "Number of loop iterations changed from %d to %d\n", oldmaxj, tenv.maxj)
+				oldmaxj = tenv.maxj
+			end
+			return tenv.j, tenv.maxj
+		end
+	end
+	return itor
+end
+
+
+-- Apply the templates
+function apply_templates(meta, styles, subs, templates)
+	-- the environment the templates will run in
+	local tenv = {
+		meta = meta,
+		-- put in some standard libs
+		string = string,
+		math = math,
+		_G = _G
+	}
+	tenv.tenv = tenv
+
+	-- Define helper functions in tenv
+
+	tenv.retime = function(mode, addstart, addend)
+		local line, syl = tenv.line, tenv.syl
+		local newstart, newend = line.start_time, line.end_time
+		addstart = addstart or 0
+		addend = addend or 0
+		if mode == "syl" then
+			newstart = line.start_time + syl.start_time + addstart
+			newend = line.start_time + syl.end_time + addend
+		elseif mode == "presyl" then
+			newstart = line.start_time + syl.start_time + addstart
+			newend = line.start_time + syl.start_time + addend
+		elseif mode == "postsyl" then
+			newstart = line.start_time + syl.end_time + addstart
+			newend = line.start_time + syl.end_time + addend
+		elseif mode == "line" then
+			newstart = line.start_time + addstart
+			newend = line.end_time + addend
+		elseif mode == "preline" then
+			newstart = line.start_time + addstart
+			newend = line.start_time + addend
+		elseif mode == "postline" then
+			newstart = line.end_time + addstart
+			newend = line.end_time + addend
+		elseif mode == "start2syl" then
+			newstart = line.start_time + addstart
+			newend = line.start_time + syl.start_time + addend
+		elseif mode == "syl2end" then
+			newstart = line.start_time + syl.end_time + addstart
+			newend = line.end_time + addend
+		elseif mode == "set" or mode == "abs" then
+			newstart = addstart
+			newend = addend
+		elseif mode == "sylpct" then
+			newstart = line.start_time + syl.start_time + addstart*syl.duration/100
+			newend = line.start_time + syl.start_time + addend*syl.duration/100
+		-- wishlist: something for fade-over effects,
+		-- "time between previous line and this" and
+		-- "time between this line and next"
+		end
+		line.start_time = newstart
+		line.end_time = newend
+		line.duration = newend - newstart
+		return ""
+	end
+
+	tenv.fxgroup = {}
+
+	tenv.relayer = function(layer)
+		tenv.line.layer = layer
+		return ""
+	end
+
+	tenv.restyle = function(style)
+		tenv.line.style = style
+		tenv.line.styleref = styles[style]
+		return ""
+	end
+
+	tenv.maxloop = function(newmaxj)
+		tenv.maxj = newmaxj
+		return ""
+	end
+	tenv.maxloops = tenv.maxloop
+	tenv.loopctl = function(newj, newmaxj)
+		tenv.j = newj
+		tenv.maxj = newmaxj
+		return ""
+	end
+
+	tenv.recall = {}
+	setmetatable(tenv.recall, {
+		decorators = {},
+		__call = function(tab, name, default)
+			local decorator = getmetatable(tab).decorators[name]
+			if decorator then
+				name = decorator(tostring(name))
+			end
+			aegisub.debug.out(5, "Recalling '%s'\n", name)
+			return tab[name] or default
+		end,
+		decorator_line = function(name)
+			return string.format("_%s_%s", tostring(tenv.orgline), name)
+		end,
+		decorator_syl = function(name)
+			return string.format("_%s_%s", tostring(tenv.syl), name)
+		end,
+		decorator_basesyl = function(name)
+			return string.format("_%s_%s", tostring(tenv.basesyl), name)
+		end
+	})
+	tenv.remember = function(name, value, decorator)
+		getmetatable(tenv.recall).decorators[name] = decorator
+		if decorator then
+			name = decorator(tostring(name))
+		end
+		aegisub.debug.out(5, "Remembering '%s' as '%s'\n", name, tostring(value))
+		tenv.recall[name] = value
+		return value
+	end
+	tenv.remember_line = function(name, value)
+		return tenv.remember(name, value, getmetatable(tenv.recall).decorator_line)
+	end
+	tenv.remember_syl = function(name, value)
+		return tenv.remember(name, value, getmetatable(tenv.recall).decorator_syl)
+	end
+	tenv.remember_basesyl = function(name, value)
+		return tenv.remember(name, value, getmetatable(tenv.recall).decorator_basesyl)
+	end
+	tenv.remember_if = function(name, value, condition, decorator)
+		if condition then
+			return tenv.remember(name, value, decorator)
+		end
+		return value
+	end
+
+	-- run all run-once code snippets
+	for k, t in pairs(templates.once) do
+		assert(t.code, "WTF, a 'once' template without code?")
+		run_code_template(t, tenv)
+	end
+
+	-- start processing lines
+	local i, n = 0, #subs
+	while i < n do
+		aegisub.progress.set(i/n*100)
+		i = i + 1
+		local l = subs[i]
+		if l.class == "dialogue" and ((l.effect == "" and not l.comment) or l.effect:match("[Kk]araoke")) then
+			l.i = i
+			l.comment = false
+			karaskel.preproc_line(subs, meta, styles, l)
+			if apply_line(meta, styles, subs, l, templates, tenv) then
+				-- Some templates were applied to this line, make a karaoke timing line of it
+				l.comment = true
+				l.effect = "karaoke"
+				subs[i] = l
+			end
+		end
+	end
+end
+
+function set_ctx_syl(varctx, line, syl)
+	varctx.sstart = syl.start_time
+	varctx.send = syl.end_time
+	varctx.sdur = syl.duration
+	varctx.skdur = syl.duration / 10
+	varctx.smid = syl.start_time + syl.duration / 2
+	varctx["start"] = varctx.sstart
+	varctx["end"] = varctx.send
+	varctx.dur = varctx.sdur
+	varctx.kdur = varctx.skdur
+	varctx.mid = varctx.smid
+	varctx.si = syl.i
+	varctx.i = varctx.si
+	varctx.sleft = math.floor(line.left + syl.left+0.5)
+	varctx.scenter = math.floor(line.left + syl.center+0.5)
+	varctx.sright = math.floor(line.left + syl.right+0.5)
+	varctx.swidth = math.floor(syl.width + 0.5)
+	if syl.isfuri then
+		varctx.sbottom = varctx.ltop
+		varctx.stop = math.floor(varctx.ltop - syl.height + 0.5)
+		varctx.smiddle = math.floor(varctx.ltop - syl.height/2 + 0.5)
+	else
+		varctx.stop = varctx.ltop
+		varctx.smiddle = varctx.lmiddle
+		varctx.sbottom = varctx.lbottom
+	end
+	varctx.sheight = syl.height
+	if line.halign == "left" then
+		varctx.sx = math.floor(line.left + syl.left + 0.5)
+	elseif line.halign == "center" then
+		varctx.sx = math.floor(line.left + syl.center + 0.5)
+	elseif line.halign == "right" then
+		varctx.sx = math.floor(line.left + syl.right + 0.5)
+	end
+	if line.valign == "top" then
+		varctx.sy = varctx.stop
+	elseif line.valign == "middle" then
+		varctx.sy = varctx.smiddle
+	elseif line.valign == "bottom" then
+		varctx.sy = varctx.sbottom
+	end
+	varctx.left = varctx.sleft
+	varctx.center = varctx.scenter
+	varctx.right = varctx.sright
+	varctx.width = varctx.swidth
+	varctx.top = varctx.stop
+	varctx.middle = varctx.smiddle
+	varctx.bottom = varctx.sbottom
+	varctx.height = varctx.sheight
+	varctx.x = varctx.sx
+	varctx.y = varctx.sy
+end
+
+function apply_line(meta, styles, subs, line, templates, tenv)
+	-- Tell whether any templates were applied to this line, needed to know whether the original line should be removed from input
+	local applied_templates = false
+
+	-- General variable replacement context
+	local varctx = {
+		layer = line.layer,
+		lstart = line.start_time,
+		lend = line.end_time,
+		ldur = line.duration,
+		lmid = line.start_time + line.duration/2,
+		style = line.style,
+		actor = line.actor,
+		margin_l = ((line.margin_l > 0) and line.margin_l) or line.styleref.margin_l,
+		margin_r = ((line.margin_r > 0) and line.margin_r) or line.styleref.margin_r,
+		margin_t = ((line.margin_t > 0) and line.margin_t) or line.styleref.margin_t,
+		margin_b = ((line.margin_b > 0) and line.margin_b) or line.styleref.margin_b,
+		margin_v = ((line.margin_t > 0) and line.margin_t) or line.styleref.margin_t,
+		syln = line.kara.n,
+		li = line.i,
+		lleft = math.floor(line.left+0.5),
+		lcenter = math.floor(line.left + line.width/2 + 0.5),
+		lright = math.floor(line.left + line.width + 0.5),
+		lwidth = math.floor(line.width + 0.5),
+		ltop = math.floor(line.top + 0.5),
+		lmiddle = math.floor(line.middle + 0.5),
+		lbottom = math.floor(line.bottom + 0.5),
+		lheight = math.floor(line.height + 0.5),
+		lx = math.floor(line.x+0.5),
+		ly = math.floor(line.y+0.5)
+	}
+
+	tenv.orgline = line
+	tenv.line = nil
+	tenv.syl = nil
+	tenv.basesyl = nil
+
+	-- Apply all line templates
+	aegisub.debug.out(5, "Running line templates\n")
+	for t in matching_templates(templates.line, line, tenv) do
+		if aegisub.progress.is_cancelled() then break end
+
+		-- Set varctx for per-line variables
+		varctx["start"] = varctx.lstart
+		varctx["end"] = varctx.lend
+		varctx.dur = varctx.ldur
+		varctx.kdur = math.floor(varctx.dur / 10)
+		varctx.mid = varctx.lmid
+		varctx.i = varctx.li
+		varctx.left = varctx.lleft
+		varctx.center = varctx.lcenter
+		varctx.right = varctx.lright
+		varctx.width = varctx.lwidth
+		varctx.top = varctx.ltop
+		varctx.middle = varctx.lmiddle
+		varctx.bottom = varctx.lbottom
+		varctx.height = varctx.lheight
+		varctx.x = varctx.lx
+		varctx.y = varctx.ly
+
+		for j, maxj in template_loop(tenv, t.loops) do
+			if t.code then
+				aegisub.debug.out(5, "Code template, %s\n", t.code)
+				tenv.line = line
+				-- Although run_code_template also performs template looping this works
+				-- by "luck", since by the time the first loop of this outer loop completes
+				-- the one run by run_code_template has already performed all iterations
+				-- and has tenv.j and tenv.maxj in a loop-ending state, causing the outer
+				-- loop to only ever run once.
+				run_code_template(t, tenv)
+			else
+				aegisub.debug.out(5, "Line template, pre = '%s', t = '%s'\n", t.pre, t.t)
+				applied_templates = true
+				local newline = table.copy(line)
+				tenv.line = newline
+				newline.layer = t.layer
+				newline.text = ""
+				if t.pre ~= "" then
+					newline.text = newline.text .. run_text_template(t.pre, tenv, varctx)
+				end
+				if t.t ~= "" then
+					for i = 1, line.kara.n do
+						local syl = line.kara[i]
+						tenv.syl = syl
+						tenv.basesyl = syl
+						set_ctx_syl(varctx, line, syl)
+						newline.text = newline.text .. run_text_template(t.t, tenv, varctx)
+						if t.addtext then
+							if t.keeptags then
+								newline.text = newline.text .. syl.text
+							else
+								newline.text = newline.text .. syl.text_stripped
+							end
+						end
+					end
+				else
+					-- hmm, no main template for the line... put original text in
+					if t.keeptags then
+						newline.text = newline.text .. line.text
+					else
+						newline.text = newline.text .. line.text_stripped
+					end
+				end
+				newline.effect = "fx"
+				subs.append(newline)
+			end
+		end
+	end
+	aegisub.debug.out(5, "Done running line templates\n\n")
+
+	-- Loop over syllables
+	for i = 0, line.kara.n do
+		if aegisub.progress.is_cancelled() then break end
+		local syl = line.kara[i]
+
+		aegisub.debug.out(5, "Applying templates to syllable: %s\n", syl.text)
+		if apply_syllable_templates(syl, line, templates.syl, tenv, varctx, subs) then
+			applied_templates = true
+		end
+	end
+
+	-- Loop over furigana
+	for i = 1, line.furi.n do
+		if aegisub.progress.is_cancelled() then break end
+		local furi = line.furi[i]
+
+		aegisub.debug.out(5, "Applying templates to furigana: %s\n", furi.text)
+		if apply_syllable_templates(furi, line, templates.furi, tenv, varctx, subs) then
+			applied_templates = true
+		end
+	end
+
+	return applied_templates
+end
+
+function run_code_template(template, tenv)
+	local f, err = loadstring(template.code, "template code")
+	if not f then
+		aegisub.debug.out(2, "Failed to parse Lua code: %s\nCode that failed to parse: %s\n\n", err, template.code)
+		aegisub.cancel()
+	else
+		local pcall = pcall
+		setfenv(f, tenv)
+		for j, maxj in template_loop(tenv, template.loops) do
+			local res, err = pcall(f)
+			if not res then
+				aegisub.debug.out(2, "Runtime error in template code: %s\nCode producing error: %s\n\n", err, template.code)
+				aegisub.cancel()
+			end
+		end
+	end
+end
+
+function run_text_template(template, tenv, varctx)
+	local res = template
+	aegisub.debug.out(5, "Running text template '%s'\n", res)
+
+	-- Replace the variables in the string (this is probably faster than using a custom function, but doesn't provide error reporting)
+	if varctx then
+		aegisub.debug.out(5, "Has varctx, replacing variables\n")
+		local function var_replacer(varname)
+			varname = string.lower(varname)
+			aegisub.debug.out(5, "Found variable named '%s', ", varname)
+			if varctx[varname] ~= nil then
+				aegisub.debug.out(5, "it exists, value is '%s'\n", varctx[varname])
+				return varctx[varname]
+			else
+				aegisub.debug.out(5, "doesn't exist\n")
+				aegisub.debug.out(2, "Unknown variable name: %s\nIn karaoke template: %s\n\n", varname, template)
+				return "$" .. varname
+			end
+		end
+		res = string.gsub(res, "$([%a_]+)", var_replacer)
+		aegisub.debug.out(5, "Done replacing variables, new template string is '%s'\n", res)
+	end
+
+	-- Function for evaluating expressions
+	local function expression_evaluator(expression)
+		f, err = loadstring(string.format("return (%s)", expression))
+		if (err) ~= nil then
+			aegisub.debug.out(2, "Error parsing expression: %s\nExpression producing error: %s\nTemplate with expression: %s\n\n", err, expression, template)
+			aegisub.cancel()
+		else
+			setfenv(f, tenv)
+			local res, val = pcall(f)
+			if res then
+				return val
+			else
+				aegisub.debug.out(2, "Runtime error in template expression: %s\nExpression producing error: %s\nTemplate with expression: %s\n\n", val, expression, template)
+				aegisub.cancel()
+			end
+		end
+	end
+	-- Find and evaluate expressions
+	aegisub.debug.out(5, "Now evaluating expressions\n")
+	res = string.gsub(res , "!(.-)!", expression_evaluator)
+	aegisub.debug.out(5, "After evaluation: %s\nDone handling template\n\n", res)
+
+	return res
+end
+
+function apply_syllable_templates(syl, line, templates, tenv, varctx, subs)
+	local applied = 0
+
+	-- Loop over all templates matching the line style
+	for t in matching_templates(templates, line, tenv) do
+		if aegisub.progress.is_cancelled() then break end
+
+		tenv.syl = syl
+		tenv.basesyl = syl
+		set_ctx_syl(varctx, line, syl)
+
+		applied = applied + apply_one_syllable_template(syl, line, t, tenv, varctx, subs, false, false)
+	end
+
+	return applied > 0
+end
+
+function is_syl_blank(syl)
+	if syl.duration <= 0 then
+		return true
+	end
+
+	-- try to remove common spacing characters
+	local t = syl.text_stripped
+	if t:len() <= 0 then return true end
+	t = t:gsub("[ \t\n\r]", "") -- regular ASCII space characters
+	t = t:gsub("　", "") -- fullwidth space
+	return t:len() <= 0
+end
+
+function apply_one_syllable_template(syl, line, template, tenv, varctx, subs, skip_perchar, skip_multi)
+	if aegisub.progress.is_cancelled() then return 0 end
+	local t = template
+	local applied = 0
+
+	aegisub.debug.out(5, "Applying template to one syllable with text: %s\n", syl.text)
+
+	-- Check for right inline_fx
+	if t.fx and t.fx ~= syl.inline_fx then
+		aegisub.debug.out(5, "Syllable has wrong inline-fx (wanted '%s', got '%s'), skipping.\n", t.fx, syl.inline_fx)
+		return 0
+	end
+
+	if t.noblank and is_syl_blank(syl) then
+		aegisub.debug.out(5, "Syllable is blank, skipping.\n")
+		return 0
+	end
+
+	-- Recurse to per-char if required
+	if not skip_perchar and t.perchar then
+		aegisub.debug.out(5, "Doing per-character effects...\n")
+		local charsyl = table.copy(syl)
+		tenv.syl = charsyl
+
+		local left, width = syl.left, 0
+		for c in unicode.chars(syl.text_stripped) do
+			charsyl.text = c
+			charsyl.text_stripped = c
+			charsyl.text_spacestripped = c
+			charsyl.prespace, charsyl.postspace = "", "" -- for whatever anyone might use these for
+			width = aegisub.text_extents(syl.style, c)
+			charsyl.left = left
+			charsyl.center = left + width/2
+			charsyl.right = left + width
+			charsyl.prespacewidth, charsyl.postspacewidth = 0, 0 -- whatever...
+			left = left + width
+			set_ctx_syl(varctx, line, charsyl)
+
+			applied = applied + apply_one_syllable_template(charsyl, line, t, tenv, varctx, subs, true, false)
+		end
+
+		return applied
+	end
+
+	-- Recurse to multi-hl if required
+	if not skip_multi and t.multi then
+		aegisub.debug.out(5, "Doing multi-highlight effects...\n")
+		local hlsyl = table.copy(syl)
+		tenv.syl = hlsyl
+
+		for hl = 1, syl.highlights.n do
+			local hldata = syl.highlights[hl]
+			hlsyl.start_time = hldata.start_time
+			hlsyl.end_time = hldata.end_time
+			hlsyl.duration = hldata.duration
+			set_ctx_syl(varctx, line, hlsyl)
+
+			applied = applied + apply_one_syllable_template(hlsyl, line, t, tenv, varctx, subs, true, true)
+		end
+
+		return applied
+	end
+
+	-- Regular processing
+	if t.code then
+		aegisub.debug.out(5, "Running code line\n")
+		tenv.line = line
+		run_code_template(t, tenv)
+	else
+		aegisub.debug.out(5, "Running %d effect loops\n", t.loops)
+		for j, maxj in template_loop(tenv, t.loops) do
+			local newline = table.copy(line)
+			newline.styleref = syl.style
+			newline.style = syl.style.name
+			newline.layer = t.layer
+			tenv.line = newline
+			newline.text = run_text_template(t.t, tenv, varctx)
+			if t.keeptags then
+				newline.text = newline.text .. syl.text
+			elseif t.addtext then
+				newline.text = newline.text .. syl.text_stripped
+			end
+			newline.effect = "fx"
+			aegisub.debug.out(5, "Generated line with text: %s\n", newline.text)
+			subs.append(newline)
+			applied = applied + 1
+		end
+	end
+
+	return applied
+end
+
+
+-- Main function to do the templating
+function filter_apply_templates(subs, config)
+	aegisub.progress.task("Collecting header data...")
+	local meta, styles = karaskel.collect_head(subs, true)
+
+	aegisub.progress.task("Parsing templates...")
+	local templates = parse_templates(meta, styles, subs)
+
+	aegisub.progress.task("Applying templates...")
+	apply_templates(meta, styles, subs, templates)
+end
+
+function macro_apply_templates(subs, sel)
+	filter_apply_templates(subs, {ismacro=true, sel=sel})
+	aegisub.set_undo_point("apply karaoke template")
+end
+
+function macro_can_template(subs)
+	-- check if this file has templates in it, don't allow running the macro if it hasn't
+	local num_dia = 0
+	for i = 1, #subs do
+		local l = subs[i]
+		if l.class == "dialogue" then
+			num_dia = num_dia + 1
+			-- test if the line is a template
+			if (string.headtail(l.effect)):lower() == "template" then
+				return true
+			end
+			-- don't try forever, this has to be fast
+			if num_dia > 50 then
+				return false
+			end
+		end
+	end
+	return false
+end
+
+aegisub.register_macro(tr"Apply karaoke template", tr"Applies karaoke effects from templates", macro_apply_templates, macro_can_template)
+aegisub.register_filter(tr"Karaoke template", tr"Apply karaoke effect templates to the subtitles.\n\nSee the help file for information on how to use this.", 2000, filter_apply_templates)

automation/autoload/karaoke-adjust-1sec.lua

@@ -0,0 +1,176 @@
+local tr = aegisub.gettext
+
+script_name = tr"Karaoke 1sec adjust lead-in"
+script_description = tr"Adjust karaoke leadin to 1sec"
+script_author = "Flore"
+script_version = "1.00"
+
+include("cleantags.lua")
+
+leadinmsec = 1000 --lead in time can be changed here
+
+ktag = "\\[kK][fo]?%d+" --pattern used to detect karaoke tags
+
+-- KM template line definition
+km_template_effect = "template pre-line all keeptags"
+km_template_text = '!retime("line",$start < 900 and -$start or -900,200)!{!$start < 900 and "\\\\k" .. ($start/10) or "\\\\k90"!\\fad(!$start < 900 and $start or 300!,200)}'
+
+function hasleadin(line)--check if there is an existing lead in (2 consecutive bracket with karaoke tags at the start of the line)
+        return line.text:find("^{[^{}]-" .. ktag .. "[^{}]-}%s*{[^{}]-" .. ktag .. "[^{}]-}")
+end
+
+
+function removeleadin(line)
+    if not hasleadin(line) then
+        return line
+    end
+
+    leadin = tonumber( line.text:match("^{[^{}]-\\[kK][fo]?(%d+)[^{}]-}%s*{[^{}]-" .. ktag .. "[^{}]-}") ) --read lead-in value
+    line.text = line.text:gsub("^({[^{}]-)\\[kK][fo]?%d+(.-}%s*{[^{}]-" .. ktag .. ".-})","%1%2")  --remove lead in
+
+    line.text = cleantags(line.text) --clean tags
+
+    line.start_time = line.start_time +  leadin*10 --adjust start time
+
+    --aegisub.log(line.text)
+
+    return line
+end
+
+
+function adjust_1sec(subs, sel)
+
+    for _, i in ipairs(sel) do
+        local line = subs[i]
+
+        line.text = cleantags(line.text)
+
+        if( line.text:find(ktag)) then--don't do anything if there is no ktags in this line
+
+            --start by removing existing lead-in
+            while hasleadin(line) do
+                    if aegisub.progress.is_cancelled() then return end
+                    line = removeleadin(line)
+            end
+
+            --then add our lead in
+
+            if line.start_time >= leadinmsec then
+                    line.text = string.format("{\\k%d}%s",leadinmsec/10, line.text)
+                    line.start_time = line.start_time - leadinmsec
+
+            else --if line starts too early to put the needed lead in, make the line start at time 0 and fill with appropriate lead in
+                    line.text = string.format("{\\k%d}%s",line.start_time/10, line.text)
+                    line.start_time = 0
+            end
+
+            subs[i] = line
+        end
+    end
+
+    aegisub.set_undo_point(tr"1sec adjust lead-in")
+end
+
+
+function remove_tag(line, tag)
+    local expr = "^(.-{[^}]*)\\" .. tag .. "[^\\}]*(.*)"
+    while true do
+        before, after = line.text:match(expr)
+        if before == nil then
+            return line
+        else
+            line.text = cleantags(before .. after)
+        end
+    end
+end
+
+
+function is_template_line(line)
+    return (line.class == "dialogue"
+        and line.effect == km_template_effect
+        and line.text == km_template_text)
+end
+
+
+function mugenizer(subs)
+    local first = nil
+    local styles_different = false
+    local styles = 0
+    local i_styles = {}
+    local template_present = false
+
+    for i, line in ipairs(subs) do
+        if line.class == "info" then
+            if line.key == "PlayResX" or line.key == "PlayResY" then
+                line.value = "0"
+            end
+            if line.key == "ScaledBorderAndShadow" then
+                line.value = "yes"
+            end
+        end
+
+        if line.class == "style" then
+            line.fontname = "Arial"
+            line.fontsize = "24"
+            line.outline = "1.5"
+            line.shadow = "0"
+            line.margin_l = "15"
+            line.margin_r = "15"
+            line.margin_t = "20"
+            line.margin_b = "20"
+
+            i_styles[styles] = i
+            if styles > 0 then
+                styles_different = styles_different or line.color1 ~= subs[i_styles[styles-1]].color1 or line.color2 ~= subs[i_styles[styles-1]].color2 or line.color3 ~= subs[i_styles[styles-1]].color3 or line.color4 ~= subs[i_styles[styles-1]].color4
+            end
+            styles = styles + 1
+        end
+
+        if is_template_line(line) then
+            line.comment = true
+            template_present = true
+        end
+
+        if line.class == "dialogue" and not line.comment and line.effect ~= "fx" then
+            if first == nil then
+                first = i
+            end
+
+            line.text = cleantags(line.text)
+
+            while hasleadin(line) do
+                if aegisub.progress.is_cancelled() then return end
+                line = removeleadin(line)
+            end
+
+            line = remove_tag(line, "fad")
+        end
+
+        subs[i] = line
+    end
+
+    if not styles_different then
+        for i = 0, styles-1, 1 do
+            line = subs[i_styles[i]]
+            line.color1 = "&H008AFF"
+            line.color2 = "&HFFFFFF"
+            line.color3 = "&H000000"
+            line.color4 = "&H000000"
+            subs[i_styles[i]] = line
+        end
+    end
+
+    if not template_present then
+        -- add mugen's magic line
+        line = subs[first]
+        line.comment = true
+        line.start_time = 0
+        line.end_time = 0
+        line.effect = km_template_effect
+        line.text = km_template_text
+        subs.insert(first, line)
+    end
+end
+
+aegisub.register_macro(script_name, script_description, adjust_1sec)
+aegisub.register_macro(tr"Mugenizer", tr"Mugenize your subs", mugenizer)

automation/autoload/karaoke-auto-leadin.lua

@@ -0,0 +1,79 @@
+--[[
+ Copyright (c) 2007, Niels Martin Hansen
+ All rights reserved.
+
+ Redistribution and use in source and binary forms, with or without
+ modification, are permitted provided that the following conditions are met:
+
+   * Redistributions of source code must retain the above copyright notice,
+     this list of conditions and the following disclaimer.
+   * Redistributions in binary form must reproduce the above copyright notice,
+     this list of conditions and the following disclaimer in the documentation
+     and/or other materials provided with the distribution.
+   * Neither the name of the Aegisub Group nor the names of its contributors
+     may be used to endorse or promote products derived from this software
+     without specific prior written permission.
+
+ THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ POSSIBILITY OF SUCH DAMAGE.
+]]
+
+local tr = aegisub.gettext
+
+script_name = tr"Automatic karaoke lead-in"
+script_description = tr"Join up the ends of selected lines and add \\k tags to shift karaoke"
+script_author = "Niels Martin Hansen"
+script_version = "1.0"
+
+function add_auto_leadin(subs, sel)
+	-- Smallest inter-line duration
+	local min_interdur = nil
+	
+	for i = 2, #sel do
+		-- Grab two selected lines
+		local A = subs[sel[i-1]]
+		local B = subs[sel[i]]
+		
+		-- Blank duration between lines
+		local interdur = B.start_time - A.end_time
+		
+		if interdur > 0 then
+			-- Update smallest inter-line duration
+			if not min_interdur or interdur < min_interdur then
+				min_interdur = interdur
+			end
+			
+			B.start_time = A.end_time
+			B.text = string.format("{\\k%d}%s", interdur/10, B.text)
+			
+			subs[sel[i]] = B
+		else
+			aegisub.debug.out(2, "Warning: Skipping line-pair with zero or negative inter-duration:\n%s\n%s\n\n", A.text, B.text)
+		end
+		
+	end
+	
+	if min_interdur then
+		aegisub.debug.out(0, "Smallest inter-line duration: %d milliseconds", min_interdur)
+		
+		aegisub.set_undo_point(script_name)
+	else
+		aegisub.debug.out(2, "Warning: No lines modified")
+	end
+	
+end
+
+function check_minsel_2(subs, sel)
+	return #sel >= 2
+end
+
+aegisub.register_macro(script_name, script_description, add_auto_leadin, check_minsel_2)

automation/autoload/karaoke-split.lua

@@ -0,0 +1,48 @@
+local tr = aegisub.gettext
+
+script_name = tr"Split karaoke line"
+script_description = tr"Split line at {split} marker according to ktags"
+script_author = "amoethyst"
+script_version = "1.0"
+
+function split_line(subs, sel)
+
+    function getduration(line)
+        d = 0
+
+        kduration = "{[^}]-\\[kK][fo]?(%d+)[^}]-}"
+        for match in line:gmatch(kduration) do
+            d = d + tonumber(match)
+        end
+
+        return d * 10
+    end
+
+    insertions = 0
+    for _, i in ipairs(sel) do
+        i = i + insertions
+        line1 = subs[i]
+        line2 = subs[i]
+
+        split_expr = "(.-)%s*{split}%s*(.*)"
+        line1.text, line2.text = line1.text:match(split_expr)
+
+        while line1.text ~= nil do
+            line1.end_time = line1.start_time + getduration(line1.text)
+            line2.start_time = line1.end_time
+
+            subs[i] = line1
+            i = i + 1
+            insertions = insertions + 1
+            subs.insert(i, line2)
+            line1 = subs[i]
+
+            line1.text, line2.text = line1.text:match(split_expr)
+        end
+
+    end
+
+    aegisub.set_undo_point(tr"Karaoke split")
+end
+
+aegisub.register_macro(script_name, script_description, split_line)

automation/autoload/kf.lua

@@ -0,0 +1,39 @@
+local tr = aegisub.gettext
+
+script_name = tr"kf"
+script_description = tr"add kf tag for 'long' syllables"
+script_author = "amoethyst"
+script_version = "1.0"
+
+
+function split_line(subs, sel)
+    local expr_k = "(.-{[^}]*\\)[kK][of]?(%d+)([^{]*)"
+    local before, after, dur, text
+
+    for _, i in ipairs(sel) do
+        line = subs[i]
+
+        -- replace k tags
+        text = ""
+        for before, dur, after in line.text:gmatch(expr_k) do
+            if before == nil then
+                break
+            else
+                if tonumber(dur) >= 90 then
+                    text = text .. before .. "kf" .. dur .. after
+                else
+                    text = text .. before .. "k" .. dur .. after
+                end
+            end
+        end
+
+        if text ~= "" then
+            line.text = text
+            subs[i] = line
+        end
+    end
+
+    aegisub.set_undo_point(script_name)
+end
+
+aegisub.register_macro(script_name, script_description, split_line)

automation/autoload/macro-1-edgeblur.lua

@@ -0,0 +1,21 @@
+-- Automation 4 demo script
+-- Macro that adds \be1 tags in front of every selected line
+
+local tr = aegisub.gettext
+
+script_name = tr"Add edgeblur"
+script_description = tr"A demo macro showing how to do simple line modification in Automation 4"
+script_author = "Niels Martin Hansen"
+script_version = "1"
+
+
+function add_edgeblur(subtitles, selected_lines, active_line)
+	for z, i in ipairs(selected_lines) do
+		local l = subtitles[i]
+		l.text = "{\\be1}" .. l.text
+		subtitles[i] = l
+	end
+	aegisub.set_undo_point(script_name)
+end
+
+aegisub.register_macro(script_name, tr"Adds \\be1 tags to all selected lines", add_edgeblur)

automation/autoload/macro-2-mkfullwitdh.lua

@@ -0,0 +1,80 @@
+-- Automation 4 demo script
+-- Converts halfwidth (ASCII) Latin letters to fullwidth JIS Latin letters
+
+local tr = aegisub.gettext
+
+script_name = tr("Make text fullwidth")
+script_description = tr("Shows how to use the unicode include to iterate over characters and a lookup table to convert those characters to something else.")
+script_author = "Niels Martin Hansen"
+script_version = "1"
+
+include("unicode.lua")
+
+
+lookup = {
+	['!'] = '！', ['"'] = '”', ['#'] = '＃', ['$'] = '＄', 
+	['%'] = '％', ['&'] = '＆', ["'"] = '’', ['('] = '（', 
+	[')'] = '）', ['*'] = '＊', ['+'] = '＋', [','] = '，', 
+	['-'] = '－', ['.'] = '．', ['/'] = '／',
+	['1'] = '１', ['2'] = '２', ['3'] = '３', ['4'] = '４', 
+	['5'] = '５', ['6'] = '６', ['7'] = '７', ['8'] = '８', 
+	['9'] = '９', ['0'] = '０',
+	[':'] = '：', [';'] = '；', ['<'] = '＜', ['='] = '＝', 
+	['>'] = '＞', ['?'] = '？', ['@'] = '＠',
+	['A'] = 'Ａ', ['B'] = 'Ｂ', ['C'] = 'Ｃ', ['D'] = 'Ｄ', 
+	['E'] = 'Ｅ', ['F'] = 'Ｆ', ['G'] = 'Ｇ', ['H'] = 'Ｈ', 
+	['I'] = 'Ｉ', ['J'] = 'Ｊ', ['K'] = 'Ｋ', ['L'] = 'Ｌ', 
+	['M'] = 'Ｍ', ['N'] = 'Ｎ', ['O'] = 'Ｏ', ['P'] = 'Ｐ', 
+	['Q'] = 'Ｑ', ['R'] = 'Ｒ', ['S'] = 'Ｓ', ['T'] = 'Ｔ', 
+	['U'] = 'Ｕ', ['V'] = 'Ｖ', ['W'] = 'Ｗ', ['X'] = 'Ｘ', 
+	['Y'] = 'Ｙ', ['Z'] = 'Ｚ',
+	['['] = '［', ['\\'] = '＼', [']'] = '］', ['^'] = '＾', 
+	['a'] = 'ａ', ['b'] = 'ｂ', ['c'] = 'ｃ', ['d'] = 'ｄ', 
+	['e'] = 'ｅ', ['f'] = 'ｆ', ['g'] = 'ｇ', ['h'] = 'ｈ', 
+	['i'] = 'ｉ', ['j'] = 'ｊ', ['k'] = 'ｋ', ['l'] = 'ｌ', 
+	['m'] = 'ｍ', ['n'] = 'ｎ', ['o'] = 'ｏ', ['p'] = 'ｐ', 
+	['q'] = 'ｑ', ['r'] = 'ｒ', ['s'] = 'ｓ', ['t'] = 'ｔ', 
+	['u'] = 'ｕ', ['v'] = 'ｖ', ['w'] = 'ｗ', ['x'] = 'ｘ', 
+	['y'] = 'ｙ', ['z'] = 'ｚ',
+	['_'] = '＿', ['`'] = '‘',
+	['{'] = '｛', ['|'] = '｜', ['}'] = '｝', ['~'] = '～', 
+}
+
+function make_fullwidth(subtitles, selected_lines, active_line)
+	for z, i in ipairs(selected_lines) do
+		local l = subtitles[i]
+		
+		aegisub.debug.out(string.format('Processing line %d: "%s"\n', i, l.text))
+		aegisub.debug.out("Chars: \n")
+		
+		local in_tags = false
+		local newtext = ""
+		for c in unicode.chars(l.text) do
+			aegisub.debug.out(c .. ' -> ')
+			if c == "{" then
+				in_tags = true
+			end
+			if in_tags then
+				aegisub.debug.out(c .. " (ignored, in tags)\n")
+				newtext = newtext .. c
+			else
+				if lookup[c] then
+					aegisub.debug.out(lookup[c] .. " (converted)\n")
+					newtext = newtext .. lookup[c]
+				else
+					aegisub.debug.out(c .. " (not found in lookup)\n")
+					newtext = newtext .. c
+				end
+			end
+			if c == "}" then
+				in_tags = false
+			end
+		end
+		
+		l.text = newtext
+		subtitles[i] = l
+	end
+	aegisub.set_undo_point(tr"Make fullwidth")
+end
+
+aegisub.register_macro(tr"Make fullwidth", tr"Convert Latin letters to SJIS fullwidth letters", make_fullwidth)

automation/autoload/select-overlaps.moon

@@ -0,0 +1,51 @@
+-- Copyright (c) 2013, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+tr = aegisub.gettext
+
+export script_name = tr"Select overlaps"
+export script_description = tr"Select lines which begin while another non-comment line is active"
+export script_author = "Thomas Goyne"
+export script_version = "2"
+
+select_overlaps = (subs, selection) ->
+    is_dialogue = (line) ->
+        line.class == "dialogue" and not line.comment
+
+    -- Attach the original index to each line so that we know what to update in
+    -- the subs object after sorting by time
+    prepare = (i, line) ->
+        line.i = i
+        line
+
+    -- Filter subtitles lines to just dialogue lines and sort them by time
+    dialogue = if #selection <= 1
+        [prepare i, line for i, line in ipairs subs when is_dialogue line]
+    else
+        [prepare i, subs[i] for i in *selection when is_dialogue subs[i]]
+
+    table.sort dialogue, (a,b) ->
+        a.start_time < b.start_time or (a.start_time == b.start_time and a.i < b.i)
+
+    end_time = 0
+    overlaps = {}
+    for line in *dialogue
+        if line.start_time >= end_time
+            end_time = line.end_time
+        else
+            table.insert overlaps, line.i
+
+    overlaps
+
+aegisub.register_macro script_name, script_description, select_overlaps

automation/autoload/strip-tags.lua

@@ -0,0 +1,32 @@
+-- Copyright (c) 2010, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+local tr = aegisub.gettext
+
+script_name = tr"Strip tags"
+script_description = tr"Remove all override tags from selected lines"
+script_author = "Thomas Goyne"
+script_version = "1"
+
+function strip_tags(subs, sel)
+    for _, i in ipairs(sel) do
+        local line = subs[i]
+        line.text = line.text:gsub("{[^}]+}", "")
+        subs[i] = line
+    end
+    aegisub.set_undo_point(tr"strip tags")
+end
+
+aegisub.register_macro(script_name, script_description, strip_tags)
+

automation/autoload/unkf.lua

@@ -0,0 +1,43 @@
+local tr = aegisub.gettext
+
+script_name = tr"unkf"
+script_description = tr"replace kf/ko tags in selected lines by regular k tags"
+script_author = "amoethyst"
+script_version = "1.0"
+
+
+function split_line(subs, sel)
+    local expr_kof = "^(.-{[^}]*\\k)[of](.*)$"
+    local expr_K = "^(.-{[^}]*\\)K(.*)$"
+    local before, after
+
+    for _, i in ipairs(sel) do
+        line = subs[i]
+
+        -- replace ko and kf tags
+        while true do
+            before, after = line.text:match(expr_kof)
+            if before == nil then
+                break
+            else
+                line.text = before .. after
+            end
+        end
+
+        -- replace K tags
+        while true do
+            before, after = line.text:match(expr_K)
+            if before == nil then
+                break
+            else
+                line.text = before .. "k" .. after
+            end
+        end
+
+        subs[i] = line
+    end
+
+    aegisub.set_undo_point(script_name)
+end
+
+aegisub.register_macro(script_name, script_description, split_line)

automation/autoload/wohe.lua

@@ -0,0 +1,55 @@
+local tr = aegisub.gettext
+
+script_name = tr"Nihongo wa muzukashii"
+script_description = tr"Turn your \"o e\"s into \"wo he\"s"
+script_author = "amoethyst"
+script_version = "1.0"
+
+function wohe(subs, sel)
+
+    -- "Unfortunately Lua patterns do not support this, only single characters can be repeated or chosen between, not sub-patterns or strings"
+    -- well, fuck
+    local exprs = {
+        "^(.* {[^}]*})([oe])({[^}]*} .*)$",
+        "^(.* )([oe])({[^}]*} .*)$",
+        "^(.* {[^}]*})([oe])( .*)$",
+        "^(.* )([oe])( .*)$",
+        "^()([oe])( .*)$",
+    }
+
+    for _, i in ipairs(sel) do
+        line = subs[i]
+        line.text = line.text .. " "
+
+        for _, expr in ipairs(exprs) do
+            local before, o_or_e, after = line.text:match(expr)
+            while o_or_e ~= nil do
+                line.text = ""
+
+                if before ~= nil then
+                    line.text = before
+                end
+
+                if o_or_e == "o" then
+                    line.text = line.text .. "wo"
+                else
+                    line.text = line.text .. "he"
+                end
+
+                if after ~= nil then
+                    line.text = line.text .. after
+                end
+
+                before, o_or_e, after = line.text:match(expr)
+            end
+        end
+
+        line.text = line.text:gsub(" $", "")
+
+        subs[i] = line
+
+    end
+
+end
+
+aegisub.register_macro(script_name, script_description, wohe)

automation/automation-lua.txt

@@ -1,548 +0,0 @@
-Aegisub Automation documentation
-Version 3
-Copyright 2005 Niels Martin Hansen.
-
----
-
-This document describes version 3 of the automation system used in Aegisub.
-The automation system uses the Lua language for scripting engine.
-See <http://www.lua.org/> for more information.
-
----
-
-What is Automation?
-
-Aegisub Automation is a scripting system designed to automate many processing
-tasks of ASS subtitles, instead of using tedious, error-prone manual
-processing. The primary purpose is creating karaoke effects for anime fansubs.
-
-The Automation script is given the complete subtitle data from a subtitle
-file, in a format suited for creating special effects.
-The script will return a complete substiture for the original subtitle
-data, allowing full freedom of processing.
-
-A number of helper functions are provided, to aid in finding errors in
-scripts, as well as retrieve further data about the subtitles, needed to
-created advanced effects.
-
----
-
-Scripts, files, functions:
-
-A script is a file containing Lua code. One file can define just one script,
-but several scripts can share code by the help of including other files.
-
-All scripts are run in a separate interpreter, and as such don't have any way
-of interacting with other loaded scripts.
-
-All strings in a script should be in UTF-8 encoding, without byte-order mark.
-All strings input to a script are encoded as UTF-8.
-Script files may start with an UTF-8 BOM (byte-order mark) or not, but this
-is currently not well tested.
-
-A script must define certain global variables:
-
-version
-  Number. Version of the scripting interface used.
-  The version described in this file is 3.
-  To comply with version 3, version must be: 3 <= version < 4
-kind
-  String. Not used, but mandatory. Set it to "basic_ass" for now.
-name
-  String. Displayed name of the script.
-description
-  String. Optional. Long description of the script.
-process_lines
-  Function. The main script function.
-configuration
-  Table. Optional. Configuration options for the script.
-
-The functions are described in detail in the following.
-
-The script may define further global variables, but they do not have any
-special meaning. Be aware, however, that later versions of the scripting
-system might define further global variables with special meanings, so be
-careful choosing names for private use globals.
-It's recommended to prefix private global variables with "p_"; the scripting
-system will never assign special meanings to global variables with that
-prefix.
-
-The scripting system defines a global variable with name "aegisub", which
-contains important values. You should not hide the "aegisub" variable.
-
----
-
-The processing function:
-
-The processing function is the heart of the script.
-
-It takes as input some meta-information about the subtitles, the styles
-used in the subtitles, as well as the actual subtitle data to process.
-
-The output is a set of subtitle data in the same format as the input.
-The output subtitle data will be used as a complete replacement of the
-input data.
-Future versions might allow modifying style data and meta data as well.
-
-
-The processing function is defined as follows:
-
-function process_lines(meta, styles, lines, config)
-
-The arguments are:
-
-@meta
-  Table. Meta information about the script. (Script Info section.)
-@styles
-  Table. Style definitions. (V4+ Styles section.)
-@lines
-  Table. Subtitle events. (Events section.)
-@config
-  Table. Values set for the configuration options provided. If no
-  configuration options were provided, this will be an empty table.
-
-Returns: One value.
-This value must be a table, using the same format as @lines.
-Note that the indexes in the return value may be either zero-based or
-one-based, to allow for greater compatibility. You are encouraged to
-use one-based indexes.
-
-
-Description of @meta:
-
-This is a table with the following keys:
-
-res_x
-  Horizontal resolution of the script.
-res_y
-  Vertical resolution of the script.
-
-
-Description of @styles:
-
-This is a table with the following keys:
-
--1
-  Number. The amount of styles defined, called "n".
-0 -> n-1
-  Table. The actual style definitions.
-<string "name">
-  Table. The style definition with the specified name.
-
-The key -1 is used for count rather than "n", since one might have a style
-definition with the name "n".
-
-A style definition is a table with the following keys:
-
-name
-  String. Name of the style.
-fontname
-  String. Name of the font used.
-fontsize
-  Number. Size of the font used.
-color1
-  String. Primary color.
-  All color fields use raw hexadecimal format, that is, no special characters
-  before or after the hex string.
-color2
-  String. Secondary color.
-color3
-  String. Outline color.
-color4
-  String. Shadow color.
-bold
-  Boolean. Bold text or not.
-italic
-  Boolean. Italic text or not.
-underline
-  Boolean. Underlined text or not.
-strikeout
-  Boolean. Striked-out text or not.
-scale_x
-  Number. Horizontal scale.
-scale_y
-  Number. Vertical scale.
-spacing
-  Number. Spacing between characters.
-angle
-  Number. Rotation angle in degrees.
-borderstyle
-  Number. 1=Outline + drop shadow, 3=Opaque box  (not really used???)
-outline
-  Number. Thickness of outline.
-shadow
-  Number. Distance of shadow from text.
-align
-  Number. Numpad style alignment.
-margin_l
-  Number. Left margin in pixels.
-margin_r
-  Number. Right margin in pixels.
-margin_v
-  Number. Vertical margin in pixels.
-encoding
-  Number. Font encoding used.
-
-
-Description of @lines:
-
-This is a table with the following keys:
-
-n
-  Number. The amount of lines.
-0 -> n-1
-  Table. The actual lines.
-
-A line is a table with the following key:
-
-kind
-  String. Can be "blank", "scomment", "comment" or "dialogue".
-
-The keys otherwise defined depends on the kind of the line.
-
-If the kind if "blank", no further fields are defined.
-
-If the kind is "scomment", the line is a "semicolon comment", and the
-following key is defined:
-
-text
-  String. Text following the semicolon until end of line. EOL not included.
-
-If the kind is "comment" or "dialogue", the line is either a Comment: or
-a Dialogue: line. In both cases, the following keys are defined:
-
-layer
-  Number.
-start_time
-  Number. Start time of line in centiseconds.
-  (Might change to userdata later.)
-end_time
-  Number. End time of line in centiseconds.
-  (Might change to userdata later.)
-style
-  String. Style used for this line.
-name
-  String. Character name speaking this line.
-margin_l
-  Number. Left margin override, in pixels. (0=no override)
-margin_r
-  Number. Right margin override, in pixels. (0=no override)
-margin_v
-  Number. Right margin override, in pixels. (0=no override)
-effect
-  String. Effect to apply to the line. (No error checking done.)
-text
-  String. Text to display.
-text_stripped
-  String. Same as text, but stripped for all tags, and newline/hardspace
-  tags are converted to real newlines/spaces. Non-hard spaces at the start/
-  end of lines are stripped.
-karaoke
-  Table. Line split into karaoke syllables. See below for more information.
-
-Note about output:
-Neither text_stripped nor karaoke are used when the results are parsed, they
-are only passed to simplify processing. You should set text to the final text
-of the line, you want in the output.
-It is encouraged to entirely leave text_stripped and karaoke out of the
-tables in the result.
-
-
-Karaoke tables:
-
-A karaoke table has a number of values indexed by numbers. Each value
-represents a karaoke syllable.
-Key "n" holds the number of syllables. The syllables can be accessed from
-index 0 and up. The syllables are indexed chronologically.
-A karaoke table always has at least one syllable. The first syllable (index
-0) contains all data before the first timed syllable.
-Each syllable is a table containing the following keys:
-
-duration
-  Number. Duration of the syllable in centiseconds. Always 0 for first
-  syllable.
-kind
-  String. "Kind" of the karaoke, the name of the tag. For a \k type syllable,
-  kind is "k", for a \kf syllable kind is "kf". Freeform tags can be used, as
-  long as they start with the letter "k" or "K".
-  Always the empty string ("") for the first syllable.
-text
-  String. Text of the syllable. This includes formatting tags.
-  For the first syllable, this contains everything before the first karaoke
-  timing tag.
-text_stripped
-  String. Same as text, but with all formatting tags stripped.
-
-
-Description of @config:
-
-This is a table. The keys are the names for the options defined in the global
-"configuration" table. The values are the values provided by the user.
-
----
-
-Script configuration:
-
-An automation script can provide a configuration set, allowing the user to
-set certain options before the script is called.
-
-This is performed through the "configuration" value.
-
-Scripts can define configuration options of the following types:
-
-label
-  A static, non-editable text displayed to the user. (Useful for adding
-  additional explanations for some options.)
-text
-  Freeform text entry.
-int
-  Integer numbers. A range of valid values can be specified.
-float
-  Any kind of number. A range of valid values can be specified.
-bool
-  A boolean on/off value.
-colour
-  An RGB colour value.
-style
-  The name of a style defined in the subtitles.
-
-
-The "configuration" table:
-
-The "configuration" table contains a number of values indexed by numbers.
-Each value defines a configuration option.
-The configuration options must be in keys numbered from 1 to n, where n
-is the number of options. No "n" key is required.
-The configuration options will be presented to the user in the order defined.
-Each configuration option is a table containing the following keys:
-
-name
-  String. The internal name used to refer to the configuration option.
-  Must not contain the colon or pipe characters. (ASCII 58 and 124.)
-kind
-  String. One of "label", "text", "int", "float", "bool", "colour" and
-  "style". Defines what kind of option this is.
-label
-  String. Name of the option, presented to the user. Should be very short.
-hint
-  String. Longer description of the option, presented to the user as a
-  tooltip. Ignored for "label" kind options.
-min
-  Number. Optional. Lowest value allowed. Only used for "int" and "float" kinds.
-max
-  Number. Optional. Highest value allowed. Only used for "int" and "float" kinds.
-default.
-  Type depends on "kind". The value given to this configuration option before
-  the user has entered another value. Ignored for "label" kind options.
-
-Data types for the different kinds:
-
-label
-  None. A label doesn't have a value, and won't be present in the @config
-  table in the process_lines function.
-text
-  String. You might want to do some kind of extra validation on text input, as
-  it might be anything.
-int
-  Number. Guaranteed to always be integer.
-float
-  Number. Can be integer or not.
-bool
-  Boolean.
-colour
-  String. An ASS hex colourcode in "&HBBGGRR&" format.
-style
-  String. The name of the style. The style can't be guaranteed to exist, as
-  another export filter in Aegisub might have removed it before your script
-  gets to run.
-
----
-
-Script environment and registration:
-
-A script is assigned to a subtitle file by adding it to the
-"Automation Scripts" extra header in the [Script Info] section. This header
-contains a list of script filenames, separated by pipe characters. Example:
-
-  Automation Scripts: test1.lua|test2.lua
-
-All scripts run in their own separate interpreter. This means there is no
-risk of name collisions, though also that scripts can't easily share code.
-
-If you need to share code between several scripts, you should create a
-subdirectory to the script directory, and place include files there.
-
-
-The settings for the configuration options for a script are stored in the ASS
-file in the following way:
-
-Each script gets one line for configuration, named "Automation Settings" plus
-a space plus the filename of the script. The filename used is stripped of all
-path specifiers. (Use unique filenames for your scripts!)
-
-The value of the line is a pipe-separated list of "name:value" pairs. The name
-is the internal name given by the "name" key. It is not mangled in any way.
-
-The way the value is stored depends on the kind of the option.
-
-label
-  Not stored.
-text
-  The string is stored in an URL-encoding like manner. Some unsafe characters
-  are replaced with escape-sequences of the form #xx, where xx is a two-digit
-  hexadecimal number for the ASCII code of the escaped character. Only ASCII-
-  characters can be escaped this way, Unicode characters aren't supported.
-int
-  Stored in ASCII base 10 without any group separators.
-float
-  Stored in exponential notation, using ASCII base 10. (As the %e sprintf()
-  argument.)
-bool
-  True is stored as "1", false as "0".
-colour
-  Stored as in ASS hex format without any mangling.
-style
-  Stored in the same manner as "text" kind options.
-
----
-
-Helper functions:
-
-There is a gloabl variable names "aegisub". This is a table containing
-various helper functions.
-
-The following helper functions are defined:
-
-
-function aegisub.set_status(text)
-
-Sets the current status-message. (Used for progress-reporting.)
-
-@text
-  String. The status message.
-
-Returns: nothing.
-
-
-function aegisub.output_debug(text)
-
-Output text to a debug console.
-
-@text
-  String. The text to output.
-
-Returns: nothing.
-
-
-function aegisub.colorstring_to_rgb(colorstring)
-
-Convert an ASS color-string to a set of RGB values.
-
-@colorstring
-  String. The color-string to convert.
-
-Returns: Four values, all numbers, being the color components in this
-order: Red, Green, Blue, Alpha-channel
-
-
-function aegisub.report_progress(percent)
-
-Report the progress of the processing.
-
-@percent
-  Number. How much of the data have been processed so far. (Percent)
-
-Returns: nothing.
-
-
-function aegisub.text_extents(style, text)
-
-Calculate the on-screen pixel size of the given text using the given style.
-
-@style
-  Table. A single style definition like those passed to process_lines.
-@text
-  String. The text to calculate the extents for. This should not contain
-  formatting codes, as they will be treated as part of the text.
-
-Returns 4 values:
-1: Number. Width of the text, in pixels.
-2: Number. Height of the text, in pixels.
-3: Number. Descent of the text, in pixels.
-4: Number. External leading for the text, in pixels.
-
-Short description of the values returned:
-Width: The X advance of the text, how much the "cursor" moves forward when
-this text is rendered.
-Height: The total height of the text, including internal leading.
-Descent: How far below the baseline a character can extend. The ascent of
-the text can be calculated as (height - descent).
-External leading: How much vertical spacing will be added between the lines
-of text rendered with this font. The total height of a line is
-(height + external_leading).
-
-
-function aegisub.frame_from_ms(ms)
-
-Return the video frame-number for the given time.
-
-@ms
-  Number. Time in miliseconds to get the frame number for.
-
-Returns: A number, the frame numer. If there is no framerate data, returns
-nil.
-
-
-function aegisub.ms_from_frame(frame)
-
-Returns the start-time for the given video frame-number.
-
-@frame
-  Number. Frame-number to get start-time from.
-
-Returns: A number, the start-time of the frame. If there is no framerate
-data, returns nil.
-
-
-function include(filename)
-
-Include the named script. The script search-path defined in Aegisub will be
-used, searching for the script.
-If the filename is relative, the regular search path will not be used, but
-instead the filename will be taken as relative to the directory the current
-script is located in.
-Note that if you use include() inside an included script, relative paths
-will still be taken relative to the original script, and not relative to the
-current included script. This is a design limitation.
-The included script is loaded as an anonymous function, which is executed in
-the current environment. This has two implications: You can include files
-based on conditional statements, and even in loops, and included files can
-return values using the "return" statement.
-
-@filename
-  String. Name of the file to include.
-  
-Returns: Depends on the script included.
-
-Note that if the file couldn't be found, the script will be terminated
-(or fail to load.)
-
----
-
-Versions of the scripting interface:
-
-Here's a quick history of the scripting interface:
-
-Version 1
-  Using Lua as engine.
-  The scripts used in the Karaoke Effector application, avaible at:
-  <http://www.jiifurusu.dk/files/programming/effector/>
-
-Version 2
-  Using Python as engine.
-  The first draft for an Aegisub automation engine.
-  Never implemented.
-
-Version 3
-  Using Lua as engine.
-  The current version.

automation/demos/1-minimal.lua

@@ -1,33 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
-
--- Comment lines (like this line) start with two hyphens, these are ignored when the script is interpreted.
--- This script does not do anything useful, it merely displays a message. Think of it as a kind of "hello world" script.
-
--- The following lines define some values identifying the script
--- This script is written for Automation version 3
-version = 3
--- And it's a "basic ass" processing script. There are no other kinds of scripts though... but this is still required.
-kind = "basic_ass"
--- This is the name of the script that shows up in Aegisub
-name = "Minimal demonstration"
--- This is a longer description of the script
-description = "A very minimal demonstration of the strucrure of an Automation script."
--- This defines any configuration that can be done of the script. This is demonstrated in demo 5.
--- The empty braces denote an empty table (associative array)
-configuration = {}
-
--- This is the main function of the script.
--- This function is run whenever the script is run
-function process_lines(meta, styles, lines, config)
-	-- The function aegisub-report_progress changes the position of the progress bar shown while the script is running
-	-- The value given is in percent.
-	aegisub.report_progress(50)
-	-- The aegisub,.output_debug function shows some text
-	aegisub.output_debug("Test script 1 running")
-	aegisub.report_progress(100)
-	-- It is very important that the process_lines function returns an array of lines, otherwise an error will occur
-	-- If an empty array is returned, the entire file is cleared!
-	return lines
-end

automation/demos/10-furigana.ass

@@ -1,23 +0,0 @@
-[Script Info]
-; Demonstration script for Aegisub Automation 3 demo script '10-furigana.lua'
-; http://www.aegisub.net
-Title: Furigana demonstration
-ScriptType: v4.00+
-PlayResX: 640
-PlayResY: 480
-Automation Scripts: 10-furigana.lua
-Export Encoding: UTF-8
-Export filters: Automation: Furigana demo
-WrapStyle: 0
-
-[V4+ Styles]
-Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, OutlineColour, BackColour, Bold, Italic, Underline, StrikeOut, ScaleX, ScaleY, Spacing, Angle, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, Encoding
-Style: Default,MS Gothic,36,&H00FFFFFF,&H0000FFFF,&H00000000,&H00000000,0,0,0,0,100,100,0,0,1,2,2,2,10,10,30,0
-
-[Events]
-Format: Layer, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text
-Dialogue: 0,0:00:00.00,0:00:10.00,Default,,0000,0000,0000,,{\k20}意|い{\k5}味|み{\k7}の{\k14}な{\k6}い{\k30}test|テスト{\k2}を{\k14}魂|た{\k12}#|ま{\k4}#|し{\k8}#|い{\k10}に{\k4}頂|ちょ{\k5}#|う{\k18}戴|だ{\k14}#|い
-
-
-
-

automation/demos/10-furigana.lua

@@ -1,64 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
-
--- Furigana is handled by the advanced karaskel
-include("karaskel-adv.lua")
--- But it requires some additional functionality to be enabled as well. Do that here
-karaskel.engage_furigana = true
--- Enabling trace isn't really required, but it's nice for debugging
-karaskel.engage_trace = true
-
-version = 3
-kind = "basic_ass"
-name = "Furigana demo"
-description = "Demonstrates how to use the Furigana feature in karaskel-adv"
-
-function do_syllable(meta, styles, config, line, syl)
-	-- First prepare a table to add the resulting lines of this syllable to
-	local result = {n=0}
-	-- Actually, make a function that does some stuff for us
-	-- Calling result.add will create another copy of the current line, add it to the result table, and return a reference to the new line
-	-- The result from this function can just be modified, and the line in the result table changes along (since it's just a reference)
-	function result.add()
-		local l = copy_line(line)
-		table.insert(result, l)
-		return l
-	end
-	-- Place the main text
-	-- So far no magic, just a regular line placed
-	local l = result.add()
-	l.text = string.format("{\\an8\\pos(%d,%d)\\k%d\\kf%d}%s", line.centerleft+syl.center, line.height*1.5, syl.start_time/10, syl.duration, syl.text_stripped)
-	l.layer = 5
-	-- Now for some "magic" stuff, loop over the highlights array to add possibly multiple highlights to each syllable
-	-- For example, kanji spanning multiple syllables can "flash" multiple times this way
-	for i = 0, syl.highlights.n-1 do
-		local hl = syl.highlights[i]
-		l = result.add()
-		l.start_time = l.start_time + hl.start_time/10
-		l.end_time = l.start_time + 25
-		l.text = string.format("{\\an8\\k10000\\k0\\move(%d,%d,%d,%d)\\t(\\1a&HFF&\\2a&HFF&\\3a&HFF&\\4a&HFF&)}%s", line.centerleft+syl.center, line.height*1.5, line.centerleft+syl.center, line.height*3, syl.text_stripped)
-		-- Put each highlight in a layer for itself, because they might overlap. This creates a possibly slightly nicer effect
-		l.layer = 10+i
-	end
-	-- Now for the real magic, ,loop over the furigana array
-	-- This contains a lot of pre-calculated info about how each furigana syllable should be placed relatively to the beginning of the line
-	-- With this info, it's really not much different from making a "main" effect. You just have to be aware that you're working with much smaller font sizes
-	for i = 0, syl.furigana.n-1 do
-		local furi = syl.furigana[i]
-		l = result.add()
-		-- Be sure to include the \fscx%f\fs%f tags here! Otherwise the text will be incorrectly scaled.
-		-- The \fscx is also important, because long stretches of furigana might be squished together so it all fits over the main text
-		l.text = string.format("{\\an2\\k%d\\k%d\\bord2\\fscx%.1f\\fs%.1f\\t(%d,%d,\\bord0)\\pos(%d,%d)}%s", furi.start_time/10, furi.duration, syl.furigana.scale, syl.furigana.fontsize, furi.start_time, furi.end_time, line.centerleft+furi.center, line.height*1.5, furi.text)
-		l.layer = 3
-	end
-	-- The additional 'add' function in the result is ignored when it's read back by the caller
-	return result
-end
-
--- Trick: The script includes itself on apply, meaning it's automatically reloaded
-function process_lines(meta, styles, lines, config)
-	include("10-furigana.lua")
-	-- Make sure to call the karaskel.process_lines function to do the work
-	return karaskel.process_lines(meta, styles, lines, config)
-end

automation/demos/2-dump.lua

@@ -1,58 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
-
--- For an explanation of these, see the documentation, or demo 1
-version = 3
-kind = "basic_ass"
-name = "Reading data demonstration"
-description = "This is a demonstration of how to access the various data passed to an Automation script. It loops over the data structures provided, and dumps them to the debug console."
-configuration = {}
-
-function process_lines(meta, styles, lines, config)
-	-- This makes an alias for the aegisub.output_debug function. Remember that functions are first-class values in Lua.
-	-- The 'local' keyword makes the 'out' variable local to this function
-	local out = aegisub.output_debug
-	
-	-- Use the string.format function to form a string showing some metadata about the subtitles and output it
-	out(string.format("Metadata: res_x=%d res_s=%d", meta.res_x, meta.res_y))
-	
-	-- The number of styles is stored in index -1, because there might be a style named "n"
-	local numstyles = styles[-1]
-	out("Number of styles: " .. numstyles)
-	-- Loop over the styles with a for loop, printing some info about each style
-	for i = 0, numstyles-1 do
-		out(string.format("Style %d: name='%s' fontname='%s'", i, styles[i].name, styles[i].fontname))
-	end
-	
-	-- Do the same, but for the actual subtitle lines
-	out("Number of subtitle lines: " .. lines.n)
-	for i = 0, lines.n-1 do
-		-- Use the report_progress function to show the progress of the loop
-		aegisub.report_progress(i/lines.n*100)
-		-- Check if the line is a dialogue line, otherwise it won't have much interesting data
-		-- Also, the script will crash if you try to access a field that doesn't exist
-		if lines[i].kind == "dialogue" then
-			-- Again, output some info about the line
-			out(string.format("Line %d: dialogue start=%d end=%d style=%s", i, lines[i].start_time, lines[i].end_time, lines[i].style))
-			out("   Text: " .. lines[i].text)
-			out("   Stripped text: " .. lines[i].text_stripped)
-			out("   Number of karaoke syllables: " .. lines[i].karaoke.n)
-			-- Also loop over the karaoke syllables, if any, in the line.
-			-- Note that there will actually always be at least one syllable, number zero, which is everything before the first \k tag
-			for j = 0, lines[i].karaoke.n-1 do
-				syl = lines[i].karaoke[j]
-				-- Use the aegisub.text_extents function to calculate the rendered size of the syllable text
-				-- Note that the styles[lines[i].style] construct can be dangerous, in case the line refers to a non-existant style
-				extx, exty, extd, extl = aegisub.text_extents(styles[lines[i].style], syl.text_stripped)
-				out(string.format("        Syllable %d: dur=%d kind=%s text='%s' text_stripped='%s' extx=%d exty=%d extd=%d extl=%d", j, syl.duration, syl.kind, syl.text, syl.text_stripped, extx, exty, extd, extl))
-			end
-		else
-			-- For non-dialogue lines, output a lot less info
-			out(string.format("Line %d: %s", i, lines[i].kind))
-		end
-	end
-	
-	-- In the end, no modifications were done, so just return the original subtitle data
-	return lines
-end

automation/demos/3-include.lua

@@ -1,25 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
-
--- This script demonstrated using include scripts in Automation.
--- You include a file simply by calling the include function with a filename.
--- Depending on whether the filename contains a path or not, it is interpreted in slightly different ways,
--- see the documentation for more information.
-include("utils.lua")
-
--- The usual info
-name = "Include demo"
-description = "Simple demonstration of the include function."
--- Here several values are set in one line
-version, kind, configuration = 3, 'basic_ass', {}
-
-function process_lines(meta, styles, lines, config)
-	-- Copy the first line (line 0) and store it as as a new last line
-	-- The last line has index lines.n-1, so lines.n is one past the last line
-	lines[lines.n] = copy_line(lines[0])
-	-- Make sure to increment 'n', so the correct number of lines are read out
-	lines.n = lines.n + 1
-	-- Then return the modified lines table
-	return lines
-end

automation/demos/4-text_extents.lua

@@ -1,54 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
-
-include("utils.lua")
-
-name = "Text placement demo"
-description = "Demonstration of the text_extents function, to do per-syllable placement of text."
-version, kind, configuration = 3, 'basic_ass', {}
-
-function process_lines(meta, styles, lines, config)
-	-- Prepare local variables
-	local output = { n=0 }
-	-- Loop through every line
-	for i = 0, lines.n-1 do
-		aegisub.report_progress(i/lines.n*100)
-		-- Only process dialogue lines
-		if lines[i].kind ~= "dialogue" then
-			table.insert(output, lines[i])
-		else
-			-- This is just for making the code a bit easier to read
-			local line = lines[i]
-			-- Get the rendered size of the entire line. (Won't work if there's line breaks in it.)
-			local totalx, totaly = aegisub.text_extents(styles[line.style], line.text_stripped)
-			-- Calculate where the first syllable should be positioned, if the line is to appear centered on screen
-			local curx, cury = (meta.res_x - totalx) / 2, meta.res_y / 2
-			-- And more preparations for per-syllable placement
-			local startx = curx
-			local tstart, tend = 0, 0
-			-- Now process each stllable
-			for j = 1, line.karaoke.n-1 do
-				-- A shortcut variable, and, most important: a copy of the original line
-				local syl, syllin = line.karaoke[j], copy_line(line)
-				-- Calculate the ending time of this syllable
-				tend = tstart + syl.duration*10
-				-- Get the rendered size of this syllable
-				local extx, exty, extd, extl = aegisub.text_extents(styles[line.style], syl.text_stripped)
-				-- Some debug stuff...
-				aegisub.output_debug(string.format("text_extents returned: %d, %d, %d, %d", extx, exty, extd, extl));
-				-- Replace the text of the copy of the line with this syllable, moving around
-				syllin.text = string.format("{\\an4\\move(%d,%d,%d,%d,%d,%d)\\kf%d\\kf%d}%s", curx, cury, curx, cury-exty, tstart, tend, tstart/10, syl.duration, syl.text)
-				-- Add the line to the output
-				table.insert(output, syllin)
-				-- And prepare for next iteration
-				curx = curx + extx
-				tstart = tend
-			end
-			-- More debug stuff
-			aegisub.output_debug(string.format("after syllable loop: totalx=%d curx-startx=%d", totalx, curx-startx))
-		end
-	end
-	-- And remember to return something :)
-	return output
-end

automation/demos/5-configuration.lua

@@ -1,96 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
-
-name = "Configuration demo"
-description = "This script allows the user to input some data in the Aegisub Export window. Some of these data are used during the processing, to change the subtitles. (The strings is prepended every dialogue line.)"
-version, kind = 3, 'basic_ass'
--- The configuration table defines a number of controls to show in the config window
--- The controls must be numbered from 1 and up with no "holes", the number of controls is automatically detected
-configuration = {
-    [1] = {
-		-- There are some mandatory fields for evry control defined
-		-- 'name' is the internal name of the control, it's used to refer to the value the user entered later on
-        name = "thelabel";
-		-- 'kind' is the class of control, this is a label which only displays text and can't be edited
-        kind = "label";
-		-- 'label' is  a short description of the control, displayed ot the left of it.
-		-- In the case of a label control, it's the entire text displayed
-        label = "This is a label control. Just for shows.";
-		-- 'hint' is a tooltip for the control. It doesn't actually work for label controls though
-        hint = "Tooltip for label?!?";
-        };
-    [2] = {
-        name = "thestring";
-		-- the "text" class is a regular text input field
-        kind = "text";
-        label = "String:";
-        hint = "The string to insert at the beginning of each line";
-		-- The 'default' is required for everything but 'label' controls, it simply specifies the default value
-        default = "foobar "
-        };
-    [3] = {
-        name = "theint";
-		-- 'int' is a text control that only allows inputting whole numbers (integers)
-        kind = "int";
-        label = "Integer:";
-        hint = "An integer number to display in debug output";
-        default = 50;
-		-- If the 'min' and 'max' fields are specified, the control will get a "spin control" attached,
-		-- which can be used to change the value with the mouse
-        min = 0;
-        max = 100;
-        };
-    [4] = {
-        name = "thefloat";
-		-- 'float' is like int, except you can also put decimal numbers in  it
-        kind = "float";
-        label = "Float number:";
-        hint = "Just a random float number";
-        default = 3.1415927;
-		-- There are no working spin controls for floats, unfortunately
-        };
-    [5] = {
-        name = "thebool";
-		-- 'bool' makes a checkbox, which can either be checked or unchecked
-        kind = "bool";
-        label = "I accept";
-        hint = "Check if you accept the terms of the license agreement";
-		-- false means unchecked, true means checked
-        default = false;
-        };
-    [6] = {
-        name = "thecolour";
-		-- 'colour' is currently just a text edit box which allows you to input an ASS format color
-		-- The idea was to have some kind of graphical control, but that probably won't happen in auto3
-        kind = "colour";
-        label = "Favourite color:";
-        hint = "What color do you want your pantsu?";
-        default = "&H8080FF";
-        };
-    [7] = {
-        name = "thestyle";
-		-- 'style' produces a drop down list, where the user can select one of the styles in the file, or no style at all
-        kind = "style";
-        label = "Style:";
-        hint = "Pick a style the effects will apply to, or none to apply to everything";
-		-- An empty string means that nothing is selected
-		-- Be careful about assuming any style names that might be available in the subtitle file
-        default = "";
-        }
-}
-
-function process_lines(meta, styles, lines, config)
-	-- All the values selected by the user are stored in the 'config' variable
-	-- For example, control 2 in this example has name "thestring", so you can access the value input by config.thestring
-    aegisub.output_debug("The string entered is: " .. config.thestring)
-    for i = 0, lines.n-1 do
-		aegisub.report_progress(i/lines.n*100)
-        if lines[i].kind == "dialogue" then
-			-- So loop over all dialogue lines and append thestring to them all
-            lines[i].text = config.thestring .. lines[i].text
-        end
-    end
-    return lines
-end
-

automation/demos/6-simple-effect.lua

@@ -1,87 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
-
--- Define some required constants
--- version and kind are required to have the given values for the script to work.
--- configuration is not needed in this script, so it's just left as an empty table
-version, kind, configuration = 3, "basic_ass", {}
-
--- Define the displayed name of the script
-name = "Simple karaoke effect"
--- A longer description of the script
-description = "A simple karaoke effect, with the source code heavily commented. Provided as a starting point for a useful effect."
-
--- The actual script function
-function process_lines(meta, styles, lines, config)
-	-- Create a local variable to store the output subtitles in
-	local output = { n=0 }
-	
-	-- Start to loop over the lines, one by one
-	-- The lines are numbered 0..n-1
-	for i = 0, lines.n-1 do
-		-- Show the user how far the script has got
-		aegisub.report_progress(i/lines.n*100)
-		-- First check if the line is even a dialogue line. If it's not, no need to process it.
-		if lines[i].kind ~= "dialogue" then
-			table.insert(output, lines[i])
-		else
-			-- This is a dialogue line, so process is
-			-- Make a nicer name for the line we're processing
-			newline = lines[i]
-			-- Also show the line to the user
-			aegisub.set_status(newline.text_stripped)
-			
-			-- The text of the new line will be build little by little
-			-- Each line has 700 ms fadein, 300 ms fadeout,
-			-- is positioned at the center of the screen (\an8)
-			-- and the highlighting should be delayed by 1000 ms (100 cs)
-			newline.text = string.format("{\\fad(700,300)\\pos(%d,30)\\k100}", meta.res_x/2)
-			-- Make the line start 1000 ms (100 cs) earlier than original
-			newline.start_time = newline.start_time - 100
-			
-			-- Now it's time to loop through the syllables one by one, processing them
-			-- The first syllable is usually a "null" syllable, not containing real data, so that one should be skipped.
-			-- This variable is used to keep track of when the last syllable ended
-			-- It's initialised to 1000, since the start of the line was pushed 1000 ms back
-			local cursylpos = 1000
-			for j = 1, lines[i].karaoke.n-1 do
-				local syl = lines[i].karaoke[j]
-				-- Call another function to process the syllable
-				newline.text = newline.text .. doSyllable(syl.text, cursylpos, cursylpos+syl.duration*10, syl.duration, syl.kind)
-				-- Calculate the start time of the next syllable
-				cursylpos = cursylpos + syl.duration*10
-			end
-			
-			-- The entire line has been calculated
-			-- Add it to the output
-			table.insert(output, newline)
-		end
-	end
-	
-	-- All lines processed, and output filled
-	-- Just return it
-	-- (This is important! If you don't return anything, the output file will be empty!)
-	return output
-end
-
--- This effect was originally written in the "Effector" program, which can be considered the first version of Automation.
--- This following function is almost verbatimly copied from that original script.
--- This is done in order to show how you can make sub-functions to make your script more readable.
--- The contents of this function could also just be pasted into the middle of the main loop in process_lines,
--- but that generally makes scripts harder to read.
-function doSyllable(text, t_start, t_end, t_dur, ktype)
-	-- Declare two local variables needed here
-	-- (If they're not declared local, they will be global.)
-	local a, b
-	-- If it's a "long" syllable, let the effect be different
-	if t_dur > 75 then
-		a = t_start + 500
-		b = t_end
-	else
-		a = t_start + 100
-		b = t_start + 500
-	end
-	-- Return the replacement for the syllable, including some ASS tags for format it
-	return string.format("{\\r\\t(%d,%d,\\1c&H808080&\\2c&H808080&)\\kf%d}%s", a, b, t_dur, text)
-end

automation/demos/7-advanced-effect.lua

@@ -1,196 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
--- But still, please don't use the effect generated by this script
--- (unchanged) for your own works.
-
--- Note that many of the techniques used in this script are heavily deprecated, much of the processing done
--- is also done by the karaskel scripts.
--- In fact, this can almost be viewed as an example of how *not* to do things...
-
--- Since this script assumes some rather specific things about the ASS input, it might not be very useful at first.
--- The original ASS file this was written for is available upon request.
-
-include("utils.lua")
-
-name = "Advanced karaoke effect"
-description = "An advanced karaoke effect, making heavy use of both line-copying and per-syllable text placement. Also demonstrates how to treat lines differently, based on their style, and syllables differently based on the timing tag used."
-version, kind, configuration = 3, 'basic_ass', {}
-
-function process_lines(meta, styles, lines, config)
-	local output = { n=0 }
-	math.randomseed(5922) -- just to make sure it's initialised the same every time
-	for curline = 0, lines.n-1 do
-		aegisub.report_progress(curline/lines.n*100)
-		local lin = lines[curline]
-		if lin.kind == "dialogue" and lin.style == "op romaji" then
-			doromaji(lin, output, styles["op romaji"], 30)
-		elseif lin.kind == "dialogue" and lin.style == "op kanji" then
-			-- Just one of these lines should be uncommented.
-			-- This script was written before configuration worked, otherwise it would use configuration
-			-- to select which of the two effects to use for "op kanji" style lines.
-			--doromaji(lin, output, styles["op kanji"], 20)
-			dokanji(lin, output, styles["op kanji"])
-		else
-			-- Unknown lines are copied verbatim
-			table.insert(output, lin)
-		end
-	end
-	return output
-end
-
-function doromaji(lin, output, sty, linetop)
-	aegisub.set_status(lin.text_stripped)
-	
-	--local linetop = 50
-	
-	-- prepare syllable data
-	local linewidth = 0
-	local syltime = 0
-	local syls = {n=0}
-	for i = 1, lin.karaoke.n-1 do
-		local syl = lin.karaoke[i]
-		syl.width, syl.height, syl.descent, syl.extlead = aegisub.text_extents(sty, syl.text_stripped)
-		syl.left = linewidth
-		syl.start_time = syltime
-		syl.end_time = syltime + syl.duration
-		syltime = syltime + syl.duration
-		if syl.kind == "kf" and (syl.text == " " or syl.text == "  ") then
-			-- The font this effect was made to work with has too wide spaces, so make those half width
-			syl.width = math.floor(syl.width / 2)
-			syl.kind = "space"
-		elseif syl.kind == "kf" then
-			syl.kind = "deco"
-		elseif syl.kind == "k" then
-			syl.kind = "reg"
-		elseif syl.kind == "ko" then
-			syl.kind = "dance"
-		else
-			syl.kind = "ignore"
-		end
-		if syl.text == "#" then
-			syls[syls.n-1].duration = syls[syls.n-1].duration + syl.duration
-			syls[syls.n-1].end_time = syls[syls.n-1].end_time + syl.duration
-		else
-			linewidth = linewidth + syl.width
-			syls[syls.n] = syl
-			syls.n = syls.n + 1
-		end
-	end
-	local lineofs = math.floor((640 - linewidth) / 2)
-	
-	for i = 0, syls.n-1 do
-		local syl = syls[i], copy_line(lin)
-		if syl.kind == "space" then
-			-- Spaces are skipped. Since the width of them is already incorporated in the position calculations
-			-- for the following syllables, they can safely be stripped from output, without losing the spaces.
-		elseif syl.kind == "ignore" then
-			-- These are actually syllable kinds we don't know what to do about. They are not included in the output.
-		else
-			local startx, starty, shakex, shakey, enterangle
-			-- angle to enter from
-			enterangle = math.rad((180 / lin.karaoke.n) * i - 90)
-			-- position to enter from (350 pixels from (320, 50))
-			startx = math.sin(enterangle)*350 + 320
-			starty = linetop - math.cos(enterangle)*350
-			if syl.kind == "reg" then
-				shakex = (syl.left+lineofs) + math.random(-5, 5)
-				shakey = linetop + math.random(-5, 5)
-			elseif syl.kind == "deco" then
-				shakex, shakey = syl.left+lineofs, linetop
-			elseif syl.kind == "dance" then
-				shakex = (syl.left+lineofs) + math.random(-5, 5)
-				shakey = linetop + math.random(-5, 5)
-			end
-			-- origin for rotation
-			local orgx = syl.left + lineofs + syl.width/2
-			local orgy = linetop + syl.height/2
-			-- entry effect
-			local enterlin = copy_line(lin)
-			enterlin.start_time = lin.start_time - 40
-			enterlin.end_time = lin.start_time
-			enterlin.text = string.format("{\\move(%d,%d,%d,%d)\\fr%d\\t(\\fr0)\\an7}%s", startx, starty, shakex, shakey, -math.deg(enterangle), syl.text)
-			table.insert(output, enterlin)
-			-- main highlight effect
-			local newlin = copy_line(lin)
-			local hilistart, hilimid, hiliend = syl.start_time*10, (syl.start_time+syl.duration/2)*10, (syl.start_time+syl.duration)*10
-			newlin.text = string.format("\\move(%d,%d,%d,%d,%d,%d)\\an7}%s", shakex, shakey, syl.left+lineofs, linetop, hilistart, hiliend, syl.text)
-			newlin.layer = 1
-			if syl.kind == "dance" then
-				local fx = string.format("\\org(%d,%d)\\t(%d,%d,\\fr30)\\t(%d,%d,\\fr-30)\\t(%d,%d,\\3c&H0000ff&)\\t(%d,%d,\\3c&H000080&)\\t(%d,%d,\\fr0)", orgx, orgy, hilistart, hilistart+20, hilistart+20, hiliend, hilistart, hilimid, hilimid, hiliend, hiliend, hiliend+syl.duration*10)
-				newlin.text = fx .. newlin.text
-			else
-				local fx = string.format("\\t(%d,%d,\\3c&H0000ff&)\\t(%d,%d,\\3c&H000080&)", hilistart, hilimid, hilimid, hiliend)
-				newlin.text = fx .. newlin.text
-			end
-			local bord = copy_line(newlin)
-			bord.layer = 0
-			bord.text = "{" .. bord.text
-			newlin.text = "{\\bord0" .. newlin.text
-			table.insert(output, bord)
-			table.insert(output, newlin)
-			-- leave effect
-			-- cut the line over in two, lower half "drops down", upper just fades away
-			local tophalf = copy_line(lin)
-			tophalf.start_time = lin.end_time
-			tophalf.end_time = lin.end_time + 100
-			tophalf.text = string.format("\\3c&H000080&\\fad(0,700)\\pos(%d,%d)\\an7}%s", syl.left+lineofs, linetop, syl.text_stripped)
-			local bottomhalf = copy_line(tophalf)
-			tophalf.text = string.format("{\\t(0,200,\\1c&H000080&)\\clip(0,0,640,%d)%s", linetop+syl.height/2, tophalf.text)
-			bottomhalf.text = string.format("{\\org(%d,%d)\\clip(0,%d,640,480)\\t(0,200,\\1c&H000080&)\\t(200,1000,1.2,\\frx90\\clip(0,%d,640,480)%s", 320, linetop+syl.height, linetop+syl.height/2, linetop+syl.height, bottomhalf.text)
-			table.insert(output, tophalf)
-			table.insert(output, bottomhalf)
-		end
-	end
-end
-
-function dokanji(lin, output, sty)
-	aegisub.set_status(lin.text_stripped)
-
-	local fontname = "@HGSHigemoji"
-	
-	local lineheight = 0
-	local syltime = 0
-	local syls = {n=0}
-	for i = 1, lin.karaoke.n-1 do
-		local syl = lin.karaoke[i]
-		syl.height, syl.width, syl.descent, syl.extlead = aegisub.text_extents(sty, syl.text_stripped)
-		syl.start_time = syltime
-		syl.end_time = syltime + syl.duration
-		syltime = syltime + syl.duration
-		if syl.text == "#" then
-			syls[syls.n-1].duration = syls[syls.n-1].duration + syl.duration
-			syls[syls.n-1].end_time = syls[syls.n-1].end_time + syl.duration
-		--elseif syl.text == "" then
-			-- skip
-		else
-			lineheight = lineheight + syl.height
-			syls[syls.n] = syl
-			syls.n = syls.n + 1
-		end
-	end
-	
-	for i = 0, syls.n-1 do
-		local syl = syls[i]
-		local top = 170
-		for j = 0, 8 do
-			if i+j >= syls.n then
-				break
-			end
-			local newlin = copy_line(lin)
-			newlin.start_time = lin.start_time + syl.start_time
-			newlin.end_time = newlin.start_time + syl.duration
-			local startalpha, targetalpha
-			if j == 0 then
-				startalpha = 0
-				targetalpha = 255
-			else
-				startalpha = j * 255 / 8
-				targetalpha = (j-1) * 255 / 8
-			end
-			newlin.text = string.format("{\\fn%s\\an7\\fr-90\\move(%d,%d,%d,%d)\\1a&H%2x&\\3a&H%2x&\\t(\\1a&H%2x&\\3a&H%2x&)}%s", fontname, 620, top, 620, top-syl.height, startalpha, startalpha, targetalpha, targetalpha, syls[i+j].text)
-			top = top + syls[i+j].height
-			table.insert(output, newlin)
-		end
-	end
-end

automation/demos/8-skeleton.lua

@@ -1,26 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
-
-name = "Karaoke skeleton demo"
-description = "This script demonstrates the use of the karaskel.lua include file, to avoid writing almost identical code for every karaoke effect script."
-version, kind, configuration = 3, 'basic_ass', {}
-
--- Include the "magic" karaskel.lua file. It also includes utils.lua for you.
--- karaskel.lua defines the process_lines function, so you'll usually not have to write that yourself
-include("karaskel.lua")
-
--- Instead, a do_syllable function is written. This is called by karaskel for every syllable, to get the text replacement for that syllable.
-function do_syllable(meta, styles, config, line, syl)
-	-- First check if it's the first syllable on the line; if it is don't bother doing anything special
-	if syl.i == 0 then
-		-- Remember you have to return the text of the syllable as well as any formatting tags you want
-		return syl.text
-	else
-		-- For other syllables, apply a little effect
-		return string.format("{\\r\\k%d\\t(%d,%d,\\1c&H%s&)}%s", syl.duration, syl.start_time, syl.end_time, line.styleref.color2, syl.text)
-	end
-end
-
--- Exercise for the reader: Rewrite this script in "classic style", ie. the same way as demo 6.
--- See how few lines you can get it down to, while still producing the same effect.

automation/demos/9-advanced-skeleton.lua

@@ -1,49 +0,0 @@
--- Aegisub Automation demonstration script
--- Original written by Niels Martin Hansen
--- Given into the public domain
-
-name = "Advanced skeleton demo"
-description = "This script demonstrates using the karaskel-adv.lua include file to make rceation of per-syllable positioning effects easier."
-
-version, kind, configuration = 3, 'basic_ass', {}
-
-include("karaskel-adv.lua")
-
--- What kind of effect this makes:
--- Each syllable "jumps" up and down once during its duration
--- This is achieved using two \move operations, and as known, gabest's TextSub can only handle one \move per line
--- So we need two lines per syllable, split exactly in the middle of the duration of the syllable
-
-function do_syllable(meta, styles, config, line, syl)
-	-- Make two copies of the original line (having the right timings etc)
-	local half1, half2 = copy_line(line), copy_line(line)
-	-- Make the first half line end halfway into the duration of the syllable
-	half1.end_time = half1.start_time + syl.start_time/10 + syl.duration/2
-	-- And make the second half line start where the first one ends
-	half2.start_time = half1.end_time
-	-- Where to move the syllable to/from
-	local fromx, fromy = line.centerleft+syl.center, line.height*2 + 20
-	local tox, toy = fromx, fromy - 10
-	-- Generate some text for the syllable
-	half1.text = string.format("{\\an8\\move(%d,%d,%d,%d,%d,%d)}%s", fromx, fromy, tox, toy, syl.start_time, syl.start_time+syl.duration*5, syl.text_stripped)
-	half2.text = string.format("{\\an8\\move(%d,%d,%d,%d,%d,%d)}%s", tox, toy, fromx, fromy, 0, syl.duration*5, syl.text_stripped)
-	-- Things will look bad with overlapping borders and stuff unless
-	-- we manually layer borders lower than text,
-	-- and shadows lower than borders, so let's do that
-	local half1b, half1s = copy_line(half1), copy_line(half1)
-	half1b.text = "{\\1a&HFF&\\shad0}" .. half1b.text
-	half1s.text = "{\\1a&HFF&\\bord0}" .. half1s.text
-	half1.text = "{\\bord0\\shad0}" .. half1.text
-	half1.layer = 2
-	half1b.layer = 1
-	half1s.layer = 0
-	local half2b, half2s = copy_line(half2), copy_line(half2)
-	half2b.text = "{\\1a&HFF&\\shad0}" .. half2b.text
-	half2s.text = "{\\1a&HFF&\\bord0\\shad2}" .. half2s.text
-	half2.text = "{\\bord0\\shad0}" .. half2.text
-	half2.layer = 2
-	half2b.layer = 1
-	half2s.layer = 0
-	-- Done, return the two new lines
-	return {n=6, [1]=half1, [2]=half2b, [3]=half1s, [4]=half2, [5]=half2b, [6]=half2s}
-end

automation/demos/future-windy-blur.lua

@@ -0,0 +1,64 @@
+-- This script is given to the public domain.
+-- You can use and modify the effect freely, also without credit, although I would appreciate some.
+
+include("karaskel.lua")
+
+script_name = "Future Windy Blur"
+script_description = "Highlights blown away by the winds of change."
+script_author = "jfs"
+script_version = "1.4"
+
+function new_windy_blur(subs)
+	aegisub.progress.task("Getting header data...")
+	local meta, styles = karaskel.collect_head(subs)
+	
+	aegisub.progress.task("Applying effect...")
+	local i, ai, maxi, maxai = 1, 1, #subs, #subs
+	while i <= maxi do
+		aegisub.progress.task(string.format("Applying effect (%d/%d)...", ai, maxai))
+		aegisub.progress.set((ai-1)/maxai*100)
+		local l = subs[i]
+		if l.class == "dialogue" and
+				not l.comment then
+			karaskel.preproc_line(subs, meta, styles, l)
+			do_fx(subs, meta, l)
+			maxi = maxi - 1
+			subs.delete(i)
+		else
+			i = i + 1
+		end
+		ai = ai + 1
+	end
+	aegisub.progress.task("Finished!")
+	aegisub.progress.set(100)
+end
+
+function do_fx(subs, meta, line)
+	local l = table.copy(line)
+	l.text = string.format("{\\pos(%d,%d)\\an5\\1c%s\\1a&HFF&\\3a&HFF&\\4a&HFF&\\t(0,200,\\1a&H00&\\3a&H00&\\4a&H00&)\\t(%d,%d,\\1a&HFF&\\3a&HFF&\\4a&HFF&)}%s", line.center, line.middle, line.styleref.color2, line.duration+200, line.duration+400, line.text_stripped)
+	l.start_time = l.start_time - 200
+	l.end_time = l.end_time + 200
+	l.layer = 1
+	subs.append(l)
+	
+	for i = 1, line.kara.n do
+		local syl = line.kara[i]
+		if syl.duration > 0 then
+			local l = table.copy(line)
+			l.start_time = line.start_time + syl.start_time
+			if syl.duration < 750 then
+				l.end_time = l.start_time + 1500
+			else
+				l.end_time = l.start_time + syl.duration * 1.5
+			end
+			l.layer = 2
+			local temp = string.format("{\\be1\\move(%d,%d,%%d,%%d)\\an5\\1a&Hd0\\bord0\\shad0\\t(0.6,\\1a&HFF&)}%s", line.left+syl.center, line.middle, syl.text_stripped)
+			for j = -8, 8 do
+				l.text = string.format(temp, line.left+syl.center+math.cos(math.rad(j*4))*30, line.middle+math.sin(math.rad(j*4))*30)
+				subs.append(l)
+			end
+		end
+	end
+end
+
+aegisub.register_filter("Future Windy Blur", "", 2000, new_windy_blur)

automation/demos/raytracer-test1.ass

@@ -0,0 +1,25 @@
+[Script Info]
+; Script generated by Aegisub v2.00 PRE-RELEASE (SVN r965, jfs)
+; http://www.aegisub.net
+Title: Default Aegisub file
+ScriptType: v4.00+
+WrapStyle: 0
+PlayResX: 640
+PlayResY: 480
+Video Aspect Ratio: 0
+Video Zoom: 6
+Video Position: 0
+Automation Scripts: ~raytracer.lua
+
+[V4+ Styles]
+Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, OutlineColour, BackColour, Bold, Italic, Underline, StrikeOut, ScaleX, ScaleY, Spacing, Angle, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, Encoding
+Style: Default,Arial,20,&H00FFFFFF,&H0000FFFF,&H00000000,&H00000000,0,0,0,0,100,100,0,0,1,2,2,2,10,10,10,0
+
+[Events]
+Format: Layer, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text
+Dialogue: 0,0:00:00.00,0:00:05.00,Default,,0000,0000,0000,,light 2 2 2  100 0 0
+Dialogue: 0,0:00:05.00,0:00:10.00,Default,,0000,0000,0000,,light -2 2 2  0 200 0
+Dialogue: 0,0:00:10.00,0:00:15.00,Default,,0000,0000,0000,,light 2 -2 2  0 0 100
+Dialogue: 0,0:00:15.00,0:00:20.00,Default,,0000,0000,0000,,tri -10 -3 10  10 -3 10  -10 -3 -10  1 1 1
+Dialogue: 0,0:00:20.00,0:00:25.00,Default,,0000,0000,0000,,tri 0 0 1  1 0 1  0 1 1  1 1 1
+Dialogue: 0,0:00:25.00,0:00:30.00,Default,,0000,0000,0000,,

automation/demos/raytracer.lua

@@ -0,0 +1,407 @@
+-- This script is given to the public domain
+-- It was originally intended as an april fool's joke in 2007, though it never really caught on.
+-- You're encouraged to experiment with this if you have plenty of time.
+-- Even if it's made as a joke, it does show that "anything is possible with ASS, although some things are insane to try."
+
+script_name = "Raytracer"
+script_description = "Reads subtitles as a scene description and raytraces the scene"
+script_author = "jfs"
+script_version = tostring(math.pi)
+
+include("utils.lua")
+
+max_iter = 3
+
+function raytrace(subs)
+	aegisub.progress.task("Reading scene...")
+	local lights, tris, camera, xres, yres = read_scene(subs)
+	
+	aegisub.progress.task("Raytracing...")
+	local curp, totalp = 0, xres*yres
+	for y = 0, yres-1 do
+		aegisub.progress.task(string.format("Raytracing, line %d/%d...", y+1, yres))
+		for x = 0, xres-1 do
+			aegisub.progress.set(curp/totalp*100)
+			local l = trace_point(x, y, (x+0.5)/xres, (y+0.5)/yres, lights, tris, camera)
+			if l then
+				subs.append(l)
+			end
+			curp = curp + 1
+		end
+	end
+	
+	aegisub.progress.task("Done.")
+	aegisub.progress.set(100)
+end
+
+
+function trace_point(px, py, x, y, lights, tris, camera)
+	-- fixme, assume a camera here ignoring defined one
+	local vec = vector.norm( { 2*x-1, 1-2*y, -1 } )
+	
+	local r, g, b = trace_vec({0,0,-1}, vec, lights, tris, 0)
+	if not r then
+		return nil
+	end
+	
+	r, g, b = clamp(r, 0, 255), clamp(g, 0, 255), clamp(b, 0, 255)
+	
+	-- todo, make line
+	local l = {
+		class = "dialogue",
+		section = "Events",
+		comment = false,
+		layer = 0,
+		start_time = 0,
+		end_time = 3600*1000, -- one hour
+		style = "p",
+		actor = "",
+		margin_l = 0,
+		margin_r = 0,
+		margin_t = 0,
+		margin_b = 0,
+		effect = "",
+		text = string.format("{\\pos(%d,%d)\\1c&H%02x%02x%02x&\\p1}m 0 0 l 1 0 1 1 0 1", px, py, r, g, b)
+	}
+	return l
+end
+
+
+function trace_vec(org, vec, lights, tris, iter)
+	if iter > max_iter then
+		return 0, 0, 0
+	end
+	
+	local hit = find_intersect(org, vec, tris)
+	if not hit then
+		return nil
+	end
+	
+	-- got intersection, calculate lighting
+	local r, g, b = hit.t.c.r*10, hit.t.c.g*10, hit.t.c.b*10
+	local ray_cos_theta = vector.dot(hit.t.n, vec)
+	hit.p = hit.t.p[1]
+	hit.p = vector.add(hit.p, vector.scale(vector.sub(hit.t.p[2], hit.t.p[1]), hit.u))
+	hit.p = vector.add(hit.p, vector.scale(vector.sub(hit.t.p[3], hit.t.p[1]), hit.v))
+	for i, l in pairs(lights) do
+		-- shadow ray
+		local lvec = vector.sub(l.p, hit.p)
+		local shadow = find_intersect(hit.p, lvec, tris)
+		if not shadow or (shadow and (shadow.dist < 0 or shadow.dist > 1)) then
+			-- not in shadow
+			local lvecs = vector.len(lvec)
+			-- diffuse component
+			local light_cos_theta = math.abs(vector.dot(hit.t.n, lvec))
+			-- specular component
+			local cos_alpha = vector.dot(vector.sub(vector.scale(hit.t.n, 2*light_cos_theta), lvec), vec)
+			local cos_n_alpha = cos_alpha^3 -- arbitrary constant for now
+			-- add up
+			r = r + l.c.r*hit.t.c.r * (light_cos_theta*0.6 + cos_n_alpha*0.4) / math.max(lvecs,1)
+			g = g + l.c.g*hit.t.c.g * (light_cos_theta*0.6 + cos_n_alpha*0.4) / math.max(lvecs,1)
+			b = b + l.c.b*hit.t.c.b * (light_cos_theta*0.6 + cos_n_alpha*0.4) / math.max(lvecs,1)
+		end
+	end
+	
+	-- reflection
+	local rvec = vector.sub(vector.scale(hit.t.n, 2*vector.dot(hit.t.n, vec)), vec)
+	local rr, rg, rb = trace_vec(hit.p, rvec, lights, tris, iter+1)
+	if not rr then
+		rr, rg, rb = 0, 0, 0
+	end
+	r = r*0.75 + rr*0.25
+	g = g*0.75 + rg*0.25
+	b = b*0.75 + rb*0.25
+	
+	return r, g, b
+end
+
+
+function find_intersect(org, vec, tris)
+	local intersec = nil
+	-- find closest intersection
+	for i, t in pairs(tris) do
+		local dist, u, v = intersect_triangle(org, vec, t)
+		if dist and dist > 0 then
+			if not intersec or intersec.dist > dist then
+				intersec = {dist=dist, u=u, v=v, t=t}
+			end
+		end
+	end
+	return intersec
+end
+
+
+function intersect_triangle(org, vec, triangle)
+	-- taken from http://www.graphics.cornell.edu/pubs/1997/MT97.html
+	-- find vectors for two edges sharing point 1
+	local edge1, edge2 = vector.sub(triangle.p[2], triangle.p[1]), vector.sub(triangle.p[3], triangle.p[1])
+	
+	-- begin calculating determinant - also used to calculate U parameter
+	local pvec = vector.cross(vec, edge2)
+	-- if determinant is near zero, ray lies in plane of triangle
+	local det = vector.dot(edge1, pvec)
+	if det > -0.00001 and det < 0.00001 then
+		-- parallel to plane
+		return nil
+	end
+	local inv_det = 1 / det
+	
+	-- calculate distance from point 1 to ray origin
+	local tvec = vector.sub(org, triangle.p[1])
+	
+	-- calculate U parameter and test bounds
+	local u = vector.dot(tvec, pvec) * inv_det
+	if u < 0 or u > 1 then
+		-- crosses plane but outside triangle
+		return nil
+	end
+	
+	-- prepare to test V parameter
+	local qvec = vector.cross(tvec, edge1)
+	-- calculate V parameter and test bounds
+	local v = vector.dot(vec, qvec) * inv_det
+	if v < 0 or (u+v) > 1 then
+		-- crosses plane but outside triangle
+		return nil
+	end
+	
+	-- calculate distance, ray intersects triangle
+	local dist = vector.dot(triangle.p[3], qvec)
+	
+	return dist, u, v
+end
+
+
+function read_scene(subs)
+	local lights = {}
+	local tris = {}
+	local camera = { pos = {0,0,-1}, up = {0,1,0}, plane } -- fixme
+	local xres, yres = 384, 288
+
+	local style = {
+			class = "style",
+			section = "V4+ Styles",
+			name = "p",
+			fontname = "Arial",
+			fontsize = "20",
+			color1 = "&H00000000&",
+			color2 = "&H00000000&",
+			color3 = "&H00000000&",
+			color4 = "&H00000000&",
+			bold = false,
+			italic = false,
+			underline = false,
+			strikeout = false,
+			scale_x = 100,
+			scale_y = 100,
+			spacing = 0,
+			angle = 0,
+			borderstyle = 0,
+			outline = 0,
+			shadow = 0,
+			align = 5,
+			margin_l = 0,
+			margin_r = 0,
+			margin_t = 0,
+			margin_b = 0,
+			encoding = 0
+		}
+	
+	local i, maxi = 1, #subs
+	local replaced_style = false
+	while i < maxi do
+		aegisub.progress.set(i / maxi * 100)
+		local l = subs[i]
+		if l.class == "dialogue" then
+			parse_line(l, lights, tris, camera)
+			subs.delete(i)
+			maxi = maxi - 1
+		elseif l.class == "style" then
+			if replaced_style then
+				subs.delete(i)
+				maxi = maxi - 1
+			else
+				style.section = l.section
+				subs[i] = style
+				replaced_style = true
+				i = i + 1
+			end
+		elseif l.class == "info" then
+			local k = l.key:lower()
+			if k == "playresx" then
+				xres = math.floor(l.value)
+			elseif k == "playresy" then
+				yres = math.floor(l.value)
+			end
+			i = i + 1
+		else
+			i = i + 1
+		end
+	end
+	
+	return lights, tris, camera, xres, yres
+end
+
+
+function parse_line(line, lights, tris, camera)
+	local val, rest = string.headtail(line.text)
+	
+	if val == "light" then
+		local pos, color = {}, {}
+		val, rest = string.headtail(rest)
+		pos[1] = tonumber(val)
+		val, rest = string.headtail(rest)
+		pos[2] = tonumber(val)
+		val, rest = string.headtail(rest)
+		pos[3] = tonumber(val)
+		
+		-- these work as intensity values so they should probably be high
+		val, rest = string.headtail(rest)
+		color.r = tonumber(val) or 0
+		val, rest = string.headtail(rest)
+		color.g = tonumber(val) or 0
+		val, rest = string.headtail(rest)
+		color.b = tonumber(val) or 0
+		
+		local light = {
+			p = pos,
+			c = color
+		}
+		table.insert(lights, light)
+		
+	elseif val == "tri" then
+		local coord1, coord2, coord3, color = {}, {}, {}, {}
+
+		val, rest = string.headtail(rest)
+		coord1[1] = tonumber(val)
+		val, rest = string.headtail(rest)
+		coord1[2] = tonumber(val)
+		val, rest = string.headtail(rest)
+		coord1[3] = tonumber(val)
+
+		val, rest = string.headtail(rest)
+		coord2[1] = tonumber(val)
+		val, rest = string.headtail(rest)
+		coord2[2] = tonumber(val)
+		val, rest = string.headtail(rest)
+		coord2[3] = tonumber(val)
+		
+		val, rest = string.headtail(rest)
+		coord3[1] = tonumber(val)
+		val, rest = string.headtail(rest)
+		coord3[2] = tonumber(val)
+		val, rest = string.headtail(rest)
+		coord3[3] = tonumber(val)
+		
+		-- these work as reflectivity values so they should be in range 0..1
+		val, rest = string.headtail(rest)
+		color.r = tonumber(val) or 0
+		val, rest = string.headtail(rest)
+		color.g = tonumber(val) or 0
+		val, rest = string.headtail(rest)
+		color.b = tonumber(val) or 0
+		
+		local t = {
+			p = {coord1, coord2, coord3},
+			n = vector.norm(vector.normal(coord1, coord2, coord3)),
+			c = color
+			}
+		
+		table.insert(tris, t)
+		
+	elseif val == "camera" then
+		-- fixme, redefine
+		val, rest = string.headtail(rest)
+		camera.pos[1] = tonumber(val)
+		val, rest = string.headtail(rest)
+		camera.pos[2] = tonumber(val)
+		val, rest = string.headtail(rest)
+		camera.pos[3] = tonumber(val)
+
+		val, rest = string.headtail(rest)
+		camera.plane[1][1] = tonumber(val)
+		val, rest = string.headtail(rest)
+		camera.plane[1][2] = tonumber(val)
+		val, rest = string.headtail(rest)
+		camera.plane[1][3] = tonumber(val)
+		
+		val, rest = string.headtail(rest)
+		camera.plane[2][1] = tonumber(val)
+		val, rest = string.headtail(rest)
+		camera.plane[2][2] = tonumber(val)
+		val, rest = string.headtail(rest)
+		camera.plane[2][3] = tonumber(val)
+		
+		camera.start_time = line.start_time
+		camera.end_time = line.end_time
+		
+	else
+		-- unknown, ignore
+	end
+end
+
+
+vector = {}
+
+vector.null = {0,0,0}
+
+function vector.add(v1, v2)
+	local r = {}
+	r[1] = v1[1] + v2[1]
+	r[2] = v1[2] + v2[2]
+	r[3] = v1[3] + v2[3]
+	return r
+end
+
+function vector.sub(v1, v2) -- v1 minus v2
+	local r = {}
+	r[1] = v1[1] - v2[1]
+	r[2] = v1[2] - v2[2]
+	r[3] = v1[3] - v2[3]
+	return r
+end
+
+function vector.scale(v, s)
+	local r = {}
+	r[1] = v[1] * s
+	r[2] = v[2] * s
+	r[3] = v[3] * s
+	return r
+end
+
+function vector.len(v)
+	return math.sqrt(v[1]*v[1] + v[2]*v[2] + v[3]*v[3])
+end
+
+function vector.norm(v)
+	local r, il = {}, 1/vector.len(v)
+	r[1] = v[1]*il
+	r[2] = v[2]*il
+	r[3] = v[3]*il
+	return r
+end
+
+function vector.dot(v1, v2)
+	return v1[1]*v2[1] + v1[2]*v2[2] + v1[3]*v2[3]
+end
+
+function vector.cross(v1, v2)
+	local r = {}
+	r[1] = v1[2]*v2[3] - v1[3]*v2[2]
+	r[2] = v1[1]*v2[3] - v1[3]*v2[1]
+	r[3] = v1[1]*v2[2] - v1[2]*v2[1]
+	return r
+end
+
+function vector.normal(p1, p2, p3)
+	return vector.cross(vector.sub(p2, p1), vector.sub(p3, p1))
+end
+
+
+function raytrace_macro(subs)
+	raytrace(subs)
+	aegisub.set_undo_point("raytracing")
+end
+
+aegisub.register_macro("Raytrace!", "Raytrace the scene", raytrace_macro)
+aegisub.register_filter("Raytrace", "Raytrace the scene", 2000, raytrace)

automation/demos/readme.txt

@@ -1,22 +0,0 @@
-This directory contains various Aegisub Automation scripts provided for demonstration
-purposes. Most of these were originally written for testing the various functions
-in Automation durings its development, but they hopefully can also serve as good
-places to learn how to do things.
-All of these scripts are written by Niels Martin Hansen.
-
-They are given into the public domain, but if you use a substantial part of any of
-the more advanced ones, I'd really like a bit of credit where it's due.
-
-And remember, it's cheap to use someone else's advanced karaoke effect, especially
-without any changes at all. It also gives bad karma. Like, *really* bad :)
-
-Apart from just the .lua files, there's also a few .ass files, used for eg. showing
-how some special feature is implemented in the ASS itself. It should be obvious
-what .lua and .ass files are related.
-
-
-WARNING!
-DO NOT ADD YOUR OWN FILES TO THIS DIRECTORY,
-they will be deleted when you uninstall/upgrade Aegisub.
-This also means it's unwise to modify these files, if you want to keep your
-changes to them.

automation/factorybrew/line-per-syllable.lua

@@ -1,158 +0,0 @@
---[[
- Copyright (c) 2005, Niels Martin Hansen
- All rights reserved.
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are met:
-
-   * Redistributions of source code must retain the above copyright notice,
-     this list of conditions and the following disclaimer.
-   * Redistributions in binary form must reproduce the above copyright notice,
-     this list of conditions and the following disclaimer in the documentation
-     and/or other materials provided with the distribution.
-   * Neither the name of the Aegisub Group nor the names of its contributors
-     may be used to endorse or promote products derived from this software
-     without specific prior written permission.
-
- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
- POSSIBILITY OF SUCH DAMAGE.
- ]]
-
--- Aegisub Automation factory-brewed script
--- "Line-per-syllable effects"
-
--- Use karaskel.lua for skeleton code
-include("karaskel-adv.lua")
-
--- Define the name of the script
-name = "Line-per-syllable effects"
--- Define a description of the script
-description = "Makes line-per-syllable effects, that is, each syllable in the script gets its own line. This allows for more advanced effects, such as syllables moving about separately, or overlapping each other."
--- Define the script variables that can be configured graphically
--- This is the primary point of the script, being able to configure it graphically
-configuration  = {
-	-- First a label to descript what special variables can be used
-	[1] = {
-		name = "label1";
-		kind = "label";
-		label = [[Variable-names are prefixed with $,
-expressions are enclosed in % pairs.
-Variables:
-  $START = Start-time of syllable (ms)
-  $END = End-time of syllable (ms)
-  $MID = Time midways through the syllable (ms)
-  $DUR = Duration of syllable (cs)
-  $X = X-position of syllable (center)
-  $WIDTH = width of syllable
-  $HEIGHT = height of syllable
-  (There is no $Y)
-Calculation example:
-  \t($start,%$start+10,\fscx110\fscy110)
-  \move($x,40,%$x-$width+10%,40)
-Remember you should always have a \pos or \move in your effect.]];
-		hint = ""
-		-- No "default", since a label doesn't have a value
-	},
-	-- Then a text field to input the string to replace \k's with
-	-- Make the default a "NOP" string
-	[2] = {
-		name = "k_repstr";
-		kind = "text";
-		label = "Effect";
-		hint = "The string to place at the start of every syllable line.";
-		default = "{\\an5\\pos($X,40)\\t($START,$END,\\fry360)}"
-	},
-	-- Allow the user to specify whether to strip tags or not
-	[3] = {
-		name = "striptags";
-		kind = "bool";
-		label = "Strip all tags";
-		hint = "Strip all formatting tags apart from the processed karaoke tags?";
-		default = false
-	},
-	[4] = {
-		name = "workstyle";
-		kind = "style";
-		label = "Line style";
-		hint = "Only apply the effect to lines with this style. Empty means apply to all lines.";
-		default = ""
-	}
-}
--- Mandatory values
-version, kind= 3, 'basic_ass'
-
-function do_syllable(meta, styles, config, line, syl)
-	-- text is the replacement text for the syllable
-	-- ktext is the karaoke effect string
-	local text, ktext
-	
-	-- Prepare the stripped or unstripped main text
-	if config.striptags then
-		text = syl.text_stripped
-	else
-		text = syl.text
-	end
-	
-	-- Don't bother with empty syllables
-	if syl.text == "" or syl.n == 0 then
-		return { n=0 }
-	end
-	
-	-- Add the variable names to the syllable data
-	syl["dur"] = syl.duration
-	syl["start"] = syl.start_time
-	syl["end"] = syl.end_time
-	syl["mid"] = syl.start_time + syl.duration*5
-	syl["x"] = syl.center + line.centerleft
-	
-	-- Prepare the karaoke effect string
-	ktext = config.k_repstr
-	
-	-- Function for replacing the variables
-	local function var_replacer(varname)
-		varname = string.lower(varname)
-		if syl[varname] ~= nil then
-			return syl[varname]
-		else
-			aegisub.output_debug(string.format("Unknown variable name: %s", varname))
-			return "$" .. varname
-		end
-	end
-	-- Replace the variables in the ktext
-	ktext = string.gsub(ktext, "$(%a+)", var_replacer)
-	
-	-- Function for evaluating expressions
-	local function expression_evaluator(expression)
-		chunk, err = loadstring(string.format("return (%s)", expression))
-		if (err) ~= nil then
-			aegisub.output_debug(string.format("Error parsing expression:\n%s", expression, err))
-			return "%" .. expression .. "%"
-		else
-			return chunk()
-		end
-	end
-	-- Find and evaluate expressions
-	ktext = string.gsub(ktext, "%%([^%%]*)%%", expression_evaluator)
-	
-	local newline = copy_line(line)
-	newline.text = ktext .. text
-	
-	return { n=1, [1]=newline }
-end
-
-function do_line(meta, styles, config, line)
-	if config.workstyle == "" or config.workstyle == line.style then
-		return karaskel.do_line(meta, styles, config, line)
-	else
-		return { n=1, [1]=line }
-	end
-end

automation/factorybrew/multi-template.lua

@@ -1,171 +0,0 @@
---[[
- Copyright (c) 2005, Niels Martin Hansen
- All rights reserved.
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are met:
-
-   * Redistributions of source code must retain the above copyright notice,
-     this list of conditions and the following disclaimer.
-   * Redistributions in binary form must reproduce the above copyright notice,
-     this list of conditions and the following disclaimer in the documentation
-     and/or other materials provided with the distribution.
-   * Neither the name of the Aegisub Group nor the names of its contributors
-     may be used to endorse or promote products derived from this software
-     without specific prior written permission.
-
- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
- POSSIBILITY OF SUCH DAMAGE.
- ]]
-
--- Aegisub Automation factory-brewed script
--- "Template-based multiple-lines-per-syllable karaoke effects"
-
--- Use karaskel.lua for skeleton code
-include("karaskel-adv.lua")
-
--- Define the name of the script
-name = "Template-based effects"
--- Define a description of the script
-description = "Makes advanced effects using templates embedded into the subtitle script. Please see the help for information on how to use this script."
--- Only one config option here.
--- Everything else is defined in the subtitle script
-configuration  = {
-	-- Allow the user to specify whether to strip tags or not
-	[1] = {
-		name = "striptags";
-		kind = "bool";
-		label = "Strip all tags";
-		hint = "Strip all formatting tags apart from the processed karaoke tags?";
-		default = false
-	},
-	[2] = {
-		name = "skipunknown";
-		kind = "bool";
-		label = "Remove unknown lines";
-		hint = "Removes all lines without a defined template";
-		default = false
-	}
-}
--- Mandatory values
-version, kind= 3, 'basic_ass'
-
-function do_syllable(meta, styles, config, line, syl)
-	-- text is the replacement text for the syllable
-	-- ktext is the karaoke effect string
-	local text, ktext
-	
-	-- Prepare the stripped or unstripped main text
-	if config.striptags then
-		text = syl.text_stripped
-	else
-		text = syl.text
-	end
-	
-	local result = { n=0 }
-	
-	-- Don't bother with empty syllables
-	if syl.text == "" or syl.n == 0 then
-		return result
-	end
-	
-	-- Add the variable names to the syllable data
-	syl["dur"] = syl.duration
-	syl["start"] = syl.start_time
-	syl["end"] = syl.end_time
-	syl["mid"] = syl.start_time + syl.duration*5
-	syl["x"] = syl.center + line.centerleft
-	
-	-- Prepare the karaoke effect string
-	for templateid, template in template_data[line.style] do
-		local ktext = template.text
-		
-		-- do_repeat is global on purpose
-		_G.do_repeat = false
-	
-		repeat
-			-- Function for replacing the variables
-			local function var_replacer(varname)
-				varname = string.lower(varname)
-				if syl[varname] ~= nil then
-					return syl[varname]
-				else
-					aegisub.output_debug(string.format("Unknown variable name: %s", varname))
-					return "$" .. varname
-				end
-			end
-			-- Replace the variables in the ktext
-			ktext = string.gsub(ktext, "$(%a+)", var_replacer)
-	
-			local skipline = false
-			local newline = copy_line(line)
-			newline.layer = template.layer
-			A = { meta = meta, styles = styles, line = line, syl = syl, newline = newline }
-
-			-- Function for evaluating expressions
-			local function expression_evaluator(expression)
-				if string.find(expression, "return") then
-					chunk, err = loadstring(expression)
-				else
-					chunk, err = loadstring(string.format("return (%s)", expression))
-				end
-				if (err) ~= nil then
-					aegisub.output_debug(string.format("Error parsing expression:\n%s", expression, err))
-					return "%" .. expression .. "%"
-				else
-					local result = chunk(meta, styles, line, syl, newline)
-					if result then
-						return result
-					else
-						skipline = true
-						return ""
-					end
-				end
-			end
-			-- Find and evaluate expressions
-			ktext = string.gsub(ktext, "%%([^%%]*)%%", expression_evaluator)
-	
-			newline.text = ktext .. text
-			if not (kline == "" or skipline) then
-				table.insert(result, newline)
-			end
-		until not do_repeat
-	end
-	
-	return result
-end
-
-function do_line(meta, styles, config, line)
-	if line.kind == "comment" and line.name == "template" then
-		if not template_data[line.style] then
-			template_data[line.style] = {}
-		end
-		table.insert(template_data[line.style], line)
-		return { n=0 }
-	elseif line.kind == "dialogue" and template_data[line.style] then
-		return karaskel.do_line(meta, styles, config, line)
-	elseif not config.skipunknown then
-		return { n=1, [1]=line }
-	else
-		return { n=0 }
-	end
-	if config.workstyle == "" or config.workstyle == line.style then
-		return adv_do_line(meta, styles, config, line)
-	else
-		return { n=1, [1]=line }
-	end
-end
-
-function process_lines(meta, styles, lines, config)
-	template_data = {}
-	return karaskel.process_lines(meta, styles, lines, config)
-end

automation/factorybrew/readme.txt

@@ -1,12 +0,0 @@
-This directory contains flexible, configurable Automation scripts to do common jobs,
-without having to do (much) programming.
-
-You can load these scripts into an ASS file in Aegisub, and apply an effect without
-doing more than writing ASS override tags.
-
-
-WARNING!
-DO NOT ADD YOUR OWN FILES TO THIS DIRECTORY,
-they will be deleted when you uninstall/upgrade Aegisub.
-This also means it's unwise to modify these files, if you want to keep your
-changes to them.

automation/factorybrew/simple-k-replacer.lua

@@ -1,147 +0,0 @@
---[[
- Copyright (c) 2005, Niels Martin Hansen
- All rights reserved.
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are met:
-
-   * Redistributions of source code must retain the above copyright notice,
-     this list of conditions and the following disclaimer.
-   * Redistributions in binary form must reproduce the above copyright notice,
-     this list of conditions and the following disclaimer in the documentation
-     and/or other materials provided with the distribution.
-   * Neither the name of the Aegisub Group nor the names of its contributors
-     may be used to endorse or promote products derived from this software
-     without specific prior written permission.
-
- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
- POSSIBILITY OF SUCH DAMAGE.
- ]]
-
--- Aegisub Automation factory-brewed script
--- "Basic \k replacer"
-
--- Use karaskel.lua for skeleton code
-include("karaskel.lua")
-
--- Define the name of the script
-name = "Basic \\k replacer"
--- Define a description of the script
-description = "Makes basic karaoke effects. Replace all \\k tags (and variations) with a custom string, where some variables can be substituted in."
--- Define the script variables that can be configured graphically
--- This is the primary point of the script, being able to configure it graphically
-configuration  = {
-	-- First a label to descript what special variables can be used
-	[1] = {
-		name = "label1";
-		kind = "label";
-		label = [[Variable-names are prefixed with $,
-expressions are enclosed in % pairs.
-Variables:
-  $START = Start-time of syllable (ms)
-  $END = End-time of syllable (ms)
-  $MID = Time midways through the syllable (ms)
-  $DUR = Duration of syllable (cs)
-Calculation example:
-  \t($start,%$start+$dur*2%,\fscx110)
-  \t(%$start+$dur*2%,$end,\fscx90)]];
-		hint = ""
-		-- No "default", since a label doesn't have a value
-	},
-	-- Then a text field to input the string to replace \k's with
-	-- Make the default a "NOP" string
-	[2] = {
-		name = "k_repstr";
-		kind = "text";
-		label = "\\k replacement";
-		hint = "The string to replace \\k tags with. Should start and end with { } characters.";
-		default = "{\\k$DUR}"
-	},
-	-- Allow the user to specify whether to strip tags or not
-	[3] = {
-		name = "striptags";
-		kind = "bool";
-		label = "Strip all tags";
-		hint = "Strip all formatting tags apart from the processed karaoke tags?";
-		default = false
-	},
-	[4] = {
-		name = "workstyle";
-		kind = "style";
-		label = "Line style";
-		hint = "Only apply the effect to lines with this style. Empty means apply to all lines.";
-		default = ""
-	}
-}
--- Mandatory values
-version, kind= 3, 'basic_ass'
-
-function do_syllable(meta, styles, config, line, syl)
-	-- text is the replacement text for the syllable
-	-- ktext is the karaoke effect string
-	local text, ktext
-	
-	-- Prepare the stripped or unstripped main text
-	if config.striptags then
-		text = syl.text_stripped
-	else
-		text = syl.text
-	end
-	
-	if syl.n == 0 then
-		return text
-	end
-	
-	-- Add the variable names to the syllable data
-	syl["dur"] = syl.duration
-	syl["start"] = syl.start_time
-	syl["end"] = syl.end_time
-	syl["mid"] = syl.start_time + syl.duration*5
-	
-	ktext = config.k_repstr
-	
-	-- Function for replacing the variables
-	local function var_replacer(varname)
-		varname = string.lower(varname)
-		if syl[varname] ~= nil then
-			return syl[varname]
-		else
-			aegisub.output_debug(string.format("Unknown variable name: %s", varname))
-			return "$" .. varname
-		end
-	end
-	-- Replace the variables in the ktext
-	ktext = string.gsub(ktext, "$(%a+)", var_replacer)
-	
-	-- Function for evaluating expressions
-	local function expression_evaluator(expression)
-		chunk, err = loadstring(string.format("return (%s)", expression))
-		if (err) ~= nil then
-			aegisub.output_debug(string.format("Error parsing expression:\n%s", expression, err))
-			return "%" .. expression .. "%"
-		else
-			return chunk()
-		end
-	end
-	-- Find and evaluate expressions
-	ktext = string.gsub(ktext, "%%([^%%]*)%%", expression_evaluator)
-	
-	return ktext .. text
-end
-
-function do_line(meta, styles, config, line)
-	if config.workstyle == "" or config.workstyle == line.style then
-		return karaskel.do_line(meta, styles, config, line)
-	else
-		return { n=1, [1]=line }
-	end
-end

automation/include/aegisub/argcheck.moon

@@ -0,0 +1,78 @@
+-- Copyright (c) 2014, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+--
+-- Aegisub Project http://www.aegisub.org/
+
+assert   = assert
+error    = error
+select   = select
+tostring = tostring
+type     = type
+
+is_type = (v, ty, expected) ->
+  ty == expected or (ty == 'table' and v.__class and v.__class.__name == expected)
+
+(argfmt) ->
+  assert type(argfmt) == 'string'
+  min_args = 0
+  max_args = 0
+  checks = {}
+  for arg in argfmt\gmatch '[^ ]+'
+    if arg == '...'
+      max_args = nil
+      break
+
+    max_args += 1
+
+    optional = arg\sub(1, 1) == '?'
+    if optional
+      arg = arg\sub 2
+    else
+      min_args += 1
+
+    if arg\find '|'
+      types = [ty for ty in arg\gmatch '[^|]+']
+      checks[max_args] = (i, v) ->
+        if v == nil
+          return if optional
+          error "Argument ##{i} should be a #{arg}, is nil", 4
+        ty = type v
+        for argtype in *types
+          return if is_type v, ty, argtype
+        error "Argument ##{i} should be a #{arg}, is #{ty} (#{v})", 3
+    else
+      checks[max_args] = (i, v) ->
+        if v == nil
+          return if optional
+          error "Argument ##{i} should be a #{arg}, is nil", 4
+        ty = type v
+        return if is_type v, ty, arg
+        error "Argument ##{i} should be a #{arg}, is #{ty} (#{v})", 3
+
+  (fn) -> (...) ->
+    arg_count = select '#', ...
+    if arg_count < min_args or (max_args and arg_count > max_args)
+      if min_args == max_args
+        error "Expected #{min_args} arguments, got #{arg_count}", 3
+      else if max_args
+        error "Expected #{min_args}-#{max_args} arguments, got #{arg_count}", 3
+      else
+        error "Expected at least #{min_args} arguments, got #{arg_count}", 3
+
+    for i=1,arg_count
+      if not checks[i] then break
+      checks[i] i, select i, ...
+
+    fn ...
+

automation/include/aegisub/clipboard.lua

@@ -0,0 +1,22 @@
+-- Copyright (c) 2012, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+local check = require 'aegisub.argcheck'
+local ffi_util = require 'aegisub.ffi'
+local impl = aegisub.__init_clipboard()
+
+return {
+  get = function() return ffi_util.string(impl.get()) end,
+  set = check'string'(impl.set)
+}

automation/include/aegisub/ffi.moon

@@ -0,0 +1,48 @@
+-- Copyright (c) 2014, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+--
+-- Aegisub Project http://www.aegisub.org/
+
+ffi = require 'ffi'
+ffi.cdef[[
+  void free(void *ptr);
+]]
+
+char_ptr = ffi.typeof 'char *'
+
+-- Convert a const char * to a lua string, returning nil rather than crashing
+-- if it's NULL and freeing the input if it's non-const
+string = (cdata) ->
+  return nil if cdata == nil
+  str = ffi.string cdata
+  if type(cdata) == char_ptr
+    ffi.C.free cdata
+  str
+
+err_buff = ffi.new 'char *[1]'
+
+-- Convert a function which has an error out parameter to one which returns
+-- the original return value and the error as a string
+err_arg_to_multiple_return = (f) -> (arg) ->
+  err_buff[0] = nil
+  result = if arg != nil
+    f arg, err_buff
+  else
+    f err_buff
+  errmsg = string err_buff[0]
+  if errmsg
+    return nil, errmsg
+  return result
+
+{:string, :err_arg_to_multiple_return}

automation/include/aegisub/lfs.moon

@@ -0,0 +1,82 @@
+-- Copyright (c) 2014, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+--
+-- Aegisub Project http://www.aegisub.org/
+
+impl = require 'aegisub.__lfs_impl'
+
+check = require 'aegisub.argcheck'
+ffi = require 'ffi'
+ffi_util = require 'aegisub.ffi'
+
+for k, v in pairs impl
+  impl[k] = ffi_util.err_arg_to_multiple_return v
+
+string_ret = (f) -> (...) ->
+  res, err = f ...
+  ffi_util.string(res), err
+
+number_ret = (f) -> (...) ->
+  res, err = f ...
+  tonumber(res), err
+
+attributes = check'string ?string' (path, field) ->
+  switch field
+    when 'mode'
+      res, err = impl.get_mode path
+      ffi_util.string(res), err
+    when 'modification'
+      res, err = impl.get_mtime path
+      tonumber(res), err
+    when 'size'
+      res, err = impl.get_size path
+      tonumber(res), err
+    else
+      mode, err = impl.get_mode path
+      if err or mode == nil then return nil, err
+
+      mod, err = impl.get_mtime path
+      if err then return nil, err
+
+      size, err = impl.get_size path
+      if err then return nil, err
+
+      mode: ffi_util.string(mode), modification: tonumber(mod), size: tonumber(size)
+
+class dir_iter
+  new: (iter) =>
+    @iter = ffi.gc iter, -> impl.dir_free iter
+  close: =>
+    impl.dir_close @iter
+  next: =>
+    str, err = impl.dir_next @iter
+    if err then error err, 2
+    ffi_util.string str
+
+dir = check'string' (path) ->
+  obj, err = impl.dir_new path
+  if err
+    error 2, err
+  iter = dir_iter obj
+  iter.next, iter
+
+return {
+  :attributes
+  chdir: check'string' number_ret impl.chdir
+  currentdir: check'' string_ret impl.currentdir
+  :dir
+  mkdir: check'string' number_ret impl.mkdir
+  rmdir: check'string'number_ret impl.rmdir
+  touch: check'string'number_ret impl.touch
+}

automation/include/aegisub/meson.build

@@ -0,0 +1,14 @@
+# Copy files to build directory for testing purposes
+lua_files = files(
+    'argcheck.moon',
+    'clipboard.lua',
+    'ffi.moon',
+    'lfs.moon',
+    're.moon',
+    'unicode.moon',
+    'util.moon',
+)
+
+foreach f: lua_files
+    configure_file(input: f, output: '@PLAINNAME@', copy: true)
+endforeach

automation/include/aegisub/re.moon

@@ -0,0 +1,271 @@
+-- Copyright (c) 2012, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+error  = error
+next   = next
+select = select
+type   = type
+
+bit = require 'bit'
+ffi = require 'ffi'
+ffi_util = require 'aegisub.ffi'
+check = require 'aegisub.argcheck'
+
+ffi.cdef[[
+  typedef struct agi_re_flag {
+    const char *name;
+    int value;
+  } agi_re_flag;
+]]
+regex_flag = ffi.typeof 'agi_re_flag'
+
+-- Get the boost::eegex binding
+regex = require 'aegisub.__re_impl'
+
+-- Wrappers to convert returned values from C types to Lua types
+search = (re, str, start) ->
+  return unless start <= str\len()
+  res = regex.search re, str, str\len(), start
+  return unless res != nil
+  first, last = res[0], res[1]
+  ffi.gc(res, ffi.C.free)
+  first, last
+
+replace = (re, replacement, str, max_count) ->
+  ffi_util.string regex.replace re, replacement, str, str\len(), max_count
+
+match = (re, str, start) ->
+  assert start <= str\len()
+  m = regex.match re, str, str\len(), start
+  return unless m != nil
+  ffi.gc m, regex.match_free
+
+get_match = (m, idx) ->
+  res = regex.get_match m, idx
+  return unless res != nil
+  res[0], res[1] -- Result buffer is owned by match so no need to free
+
+err_buff = ffi.new 'char *[1]'
+compile = (pattern, flags) ->
+  err_buff[0] = nil
+  re = regex.compile pattern, flags, err_buff
+  if err_buff[0] != nil
+    return ffi.string err_buff[0]
+  ffi.gc re, regex.regex_free
+
+-- Return the first n elements from ...
+select_first = (n, a, ...) ->
+  if n == 0 then return
+  a, select_first n - 1, ...
+
+-- Bitwise-or together regex flags passed as arguments to a function
+process_flags = (...) ->
+  flags = 0
+  for i = 1, select '#', ...
+    v = select i, ...
+    if not ffi.istype regex_flag, v
+      error 'Flags must follow all non-flag arguments', 3
+    flags = bit.bor flags, v.value
+  flags
+
+-- Extract the flags from ..., bitwise OR them together, and move them to the
+-- front of ...
+unpack_args = (...) ->
+  flags_start = nil
+  for i = 1, select '#', ...
+    v = select i, ...
+    if ffi.istype regex_flag, v
+      flags_start = i
+      break
+
+  return 0, ... unless flags_start
+  process_flags(select flags_start, ...), select_first flags_start - 1, ...
+
+-- Replace a match with the value returned from func when passed the match
+replace_match = (match, func, str, last, acc) ->
+  -- Copy everything between the last match and this match
+  if last < match.last
+    acc[#acc + 1] = str\sub last, match.first - 1
+
+  repl = func match.str, match.first, match.last
+
+  -- If it didn't return a string just leave the old value
+  acc[#acc + 1] = if type(repl) == 'string' then repl else match.str
+
+  match.first, match.last + 1
+
+-- Replace all matches from a single iteration of the regexp
+do_single_replace_fun = (re, func, str, acc, pos) ->
+  matches = re\match str, pos
+
+  -- No more matches so just return what's left of the input
+  return pos unless matches
+
+  -- If there's only one match then there's no capturing groups and we need
+  -- to pass the entire match to the replace function, but if there's
+  -- multiple then we want to skip the full match and only pass the capturing
+  -- groups.
+  start = if #matches == 1 then 1 else 2
+  last = pos
+  local first
+  for i = start, #matches
+    first, last = replace_match matches[i], func, str, last, acc
+
+  -- Always eat at least one character from the input or we'll just make the
+  -- same match max_count times
+  if first == last
+    acc[#acc + 1] = str\sub last, last
+    last += 1
+
+  return last, matches[1].first <= str\len()
+
+do_replace_fun = (re, func, str, max) ->
+  acc = {}
+  pos = 1
+  local i
+  for i = 1, max do
+    pos, more = do_single_replace_fun re, func, str, acc, pos
+    unless more
+      max = i
+      break
+  table.concat(acc, '') .. str\sub pos
+
+-- Compiled regular expression type protoype
+class RegEx
+  -- Verify that a valid value was passed for self
+  _check_self: =>
+    unless @__class == RegEx
+      error 're method called with invalid self. You probably used . when : is needed.', 3
+
+  new: (@_regex, @_level) =>
+
+  gsplit: check'RegEx string ?boolean ?number' (str, skip_empty, max_split) =>
+    if not max_split or max_split <= 0 then max_split = str\len()
+
+    start = 0
+    prev = 1
+    do_split = () ->
+      if not str or str\len() == 0 then return
+
+      local first, last
+      if max_split > 0
+        first, last = search @_regex, str, start
+
+      if not first or first > str\len()
+        ret = str\sub prev, str\len()
+        str = nil
+        return if skip_empty and ret\len() == 0 then nil else ret
+
+      ret = str\sub prev, first - 1
+      prev = last + 1
+
+      start = if start >= last then start + 1 else last
+
+      if skip_empty and ret\len() == 0
+        do_split()
+      else
+        max_split -= 1
+        ret
+
+    do_split
+
+  split: check'RegEx string ?boolean ?number' (str, skip_empty, max_split) =>
+    [v for v in @gsplit str, skip_empty, max_split]
+
+  gfind: check'RegEx string' (str) =>
+    start = 0
+    ->
+      first, last = search(@_regex, str, start)
+      return unless first
+
+      start = if last > start then last else start + 1
+      str\sub(first, last), first, last
+
+  find: check'RegEx string' (str) =>
+    ret = [str: s, first: f, last: l for s, f, l in @gfind(str)]
+    next(ret) and ret
+
+  sub: check'RegEx string string|function ?number' (str, repl, max_count) =>
+    max_count = str\len() + 1 if not max_count or max_count == 0
+
+    if type(repl) == 'function'
+       do_replace_fun @, repl, str, max_count
+    elseif type(repl) == 'string'
+      replace @_regex, repl, str, max_count
+
+  gmatch: check'RegEx string ?number' (str, start) =>
+    start = if start then start - 1 else 0
+
+    m = match @_regex, str, start
+    i = 0
+    ->
+      return unless m
+      first, last = get_match m, i
+      return unless first
+      i += 1
+
+      {
+        str: str\sub first + start, last + start
+        first: first + start
+        last: last + start
+      }
+
+  match: check'RegEx string ?number' (str, start) =>
+    ret = [v for v in @gmatch str, start]
+    -- Return nil rather than a empty table so that if re.match(...) works
+    return nil if next(ret) == nil
+    ret
+
+-- Create a regex object from a pattern, flags, and error depth
+real_compile = (pattern, level, flags, stored_level) ->
+  if pattern == ''
+    error 'Regular expression must not be empty', level + 1
+
+  re = compile pattern, flags
+  if type(re) == 'string'
+    error regex, level + 1
+
+  RegEx re, stored_level or level + 1
+
+-- Compile a pattern then invoke a method on it
+invoke = (str, pattern, fn, flags, ...) ->
+  compiled_regex = real_compile(pattern, 3, flags)
+  compiled_regex[fn](compiled_regex, str, ...)
+
+-- Generate a static version of a method with arg type checking
+gen_wrapper = (impl_name) -> check'string string ...' (str, pattern, ...) ->
+  invoke str, pattern, impl_name, unpack_args ...
+
+-- And now at last the actual public API
+do
+  re = {
+    compile: check'string ...' (pattern, ...) ->
+      real_compile pattern, 2, process_flags(...), 2
+
+    split:  gen_wrapper 'split'
+    gsplit: gen_wrapper 'gsplit'
+    find:   gen_wrapper 'find'
+    gfind:  gen_wrapper 'gfind'
+    match:  gen_wrapper 'match'
+    gmatch: gen_wrapper 'gmatch'
+    sub:    gen_wrapper 'sub'
+  }
+
+  i = 0
+  flags = regex.get_flags()
+  while flags[i].name != nil
+    re[ffi.string flags[i].name] = flags[i]
+    i += 1
+
+  re

automation/include/aegisub/unicode.moon

@@ -0,0 +1,106 @@
+-- Copyright (c) 2007, Niels Martin Hansen, Rodrigo Braz Monteiro
+-- All rights reserved.
+--
+-- Redistribution and use in source and binary forms, with or without
+-- modification, are permitted provided that the following conditions are met:
+--
+--   * Redistributions of source code must retain the above copyright notice,
+--     this list of conditions and the following disclaimer.
+--   * Redistributions in binary form must reproduce the above copyright notice,
+--     this list of conditions and the following disclaimer in the documentation
+--     and/or other materials provided with the distribution.
+--   * Neither the name of the Aegisub Group nor the names of its contributors
+--     may be used to endorse or promote products derived from this software
+--     without specific prior written permission.
+--
+-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+-- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+-- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+-- POSSIBILITY OF SUCH DAMAGE.
+
+-- Unicode (UTF-8) support functions for Aegisub Automation 4 Lua
+-- http://www.ietf.org/rfc/rfc2279.txt
+
+impl = require 'aegisub.__unicode_impl'
+
+check = require 'aegisub.argcheck'
+ffi = require 'ffi'
+ffi_util = require 'aegisub.ffi'
+
+err_buff = ffi.new 'char *[1]'
+conv_func = (f) -> check'string' (str) ->
+  err_buff[0] = nil
+  result = f str, err_buff
+  errmsg = ffi_util.string err_buff[0]
+  if errmsg
+    error errmsg, 2
+  ffi_util.string result
+
+local unicode
+unicode =
+  -- Return the number of bytes occupied by the character starting at the i'th byte in s
+  charwidth: check'string ?number' (s, i) ->
+    b = s\byte i or 1
+    -- FIXME, something in karaskel results in this case, shouldn't happen
+    -- What would "proper" behaviour be? Zero? Or just explode?
+    if     not b   then 1
+    elseif b < 128 then 1
+    elseif b < 224 then 2
+    elseif b < 240 then 3
+    else                4
+
+  -- Returns an iterator function for iterating over the characters in s
+  chars: check'string' (s) ->
+    curchar, i = 0, 1
+    ->
+      return if i > s\len()
+
+      j = i
+      curchar += 1
+      i += unicode.charwidth s, i
+      s\sub(j, i - 1), curchar
+
+  -- Returns the number of characters in s
+  -- Runs in O(s:len()) time!
+  len: check'string' (s) ->
+    n = 0
+    n += 1 for c in unicode.chars s
+    n
+
+  -- Get codepoint of first char in s
+  codepoint: check'string' (s) ->
+    -- Basic case, ASCII
+    b = s\byte 1
+    return b if b < 128
+
+    -- Use a naive decoding algorithm, and assume input is valid
+    local res, w
+
+    if b < 224 then
+      -- prefix byte is 110xxxxx
+      res = b - 192
+      w = 2
+    elseif b < 240 then
+      -- prefix byte is 11100000
+      res = b - 224
+      w = 3
+    else
+      res = b - 240
+      w = 4
+
+    for i = 2, w
+      res = res*64 + s\byte(i) - 128
+    res
+
+  to_upper_case: conv_func impl.to_upper_case
+  to_lower_case: conv_func impl.to_lower_case
+  to_fold_case: conv_func impl.to_fold_case
+
+return unicode

automation/include/aegisub/util.moon

@@ -0,0 +1,224 @@
+-- Copyright (c) 2005-2010, Niels Martin Hansen, Rodrigo Braz Monteiro
+-- Copyright (c) 2013, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+error    = error
+pairs    = pairs
+select   = select
+sformat  = string.format
+tonumber = tonumber
+type     = type
+
+check = require 'aegisub.argcheck'
+
+local *
+
+-- Make a shallow copy of a table
+copy = check'table' (tbl) -> {k, v for k, v in pairs tbl}
+
+-- Make a deep copy of a table
+-- Retains equality of table references inside the copy and handles self-referencing structures
+deep_copy = check'table' (tbl) ->
+  seen = {}
+  copy = (val) ->
+    return val if type(val) != 'table'
+    return seen[val] if seen[val]
+    seen[val] = val
+    {k, copy(v) for k, v in pairs val}
+  copy tbl
+
+-- Generates ASS hexadecimal string from R, G, B integer components, in &HBBGGRR& format
+ass_color = (r, g, b) -> sformat "&H%02X%02X%02X&", b, g, r
+-- Format an alpha-string for \Xa style overrides
+ass_alpha = (a) -> sformat "&H%02X&", a
+-- Format an ABGR string for use in style definitions (these don't end with & either)
+ass_style_color = (r, g, b, a) -> sformat "&H%02X%02X%02X%02X", a, b, g, r
+
+-- Extract colour components of an ASS colour
+extract_color = check'string' (s) ->
+  local a, b, g, r
+
+  -- Try a style first
+  a, b, g, r = s\match '&H(%x%x)(%x%x)(%x%x)(%x%x)'
+  if a then
+    return tonumber(r, 16), tonumber(g, 16), tonumber(b, 16), tonumber(a, 16)
+
+  -- Then a colour override
+  b, g, r = s\match '&H(%x%x)(%x%x)(%x%x)&'
+  if b then
+    return tonumber(r, 16), tonumber(g, 16), tonumber(b, 16), 0
+
+  -- Then an alpha override
+  a = s\match '&H(%x%x)&'
+  if a then
+    return 0, 0, 0, tonumber(a, 16)
+
+  -- Ok how about HTML format then?
+  r, g, b, a = s\match '#(%x%x)(%x?%x?)(%x?%x?)(%x?%x?)'
+  if r then
+    return tonumber(r, 16), tonumber(g, 16) or 0, tonumber(b, 16) or 0, tonumber(a, 16) or 0
+
+-- Create an alpha override code from a style definition colour code
+alpha_from_style = check'string' (scolor) -> ass_alpha select 4, extract_color scolor
+
+-- Create an colour override code from a style definition colour code
+color_from_style = check'string' (scolor) ->
+  r, g, b = extract_color scolor
+  ass_color r or 0, g or 0, b or 0
+
+-- Converts HSV (Hue, Saturation, Value) to RGB
+HSV_to_RGB = (H, S, V) ->
+  r, g, b = 0, 0, 0
+
+  -- Saturation is zero, make grey
+  if S == 0
+    r = clamp(V*255, 0, 255)
+    g = r
+    b = r
+
+  -- Else, calculate color
+  else
+    -- Calculate subvalues
+    H = math.abs(H) % 360 -- Put H in range [0, 360)
+    Hi = math.floor(H/60)
+    f = H/60.0 - Hi
+    p = V*(1-S)
+    q = V*(1-f*S)
+    t = V*(1-(1-f)*S)
+
+    -- Do math based on hue index
+    if Hi == 0
+      r = V*255.0
+      g = t*255.0
+      b = p*255.0
+    elseif Hi == 1
+      r = q*255.0
+      g = V*255.0
+      b = p*255.0
+    elseif Hi == 2
+      r = p*255.0
+      g = V*255.0
+      b = t*255.0
+    elseif Hi == 3
+      r = p*255.0
+      g = q*255.0
+      b = V*255.0
+    elseif Hi == 4
+      r = t*255.0
+      g = p*255.0
+      b = V*255.0
+    elseif Hi == 5
+      r = V*255.0
+      g = p*255.0
+      b = q*255.0
+    else
+      error "math.floor(H % 360 / 60) should be [0, 6), is #{Hi}?"
+
+  return r, g, b
+
+-- Convert HSL (Hue, Saturation, Luminance) to RGB
+-- Contributed by Gundamn
+HSL_to_RGB = (H, S, L) ->
+  local r, g, b
+
+  -- Make sure input is in range
+  H = math.abs(H) % 360
+  S = clamp(S, 0, 1)
+  L = clamp(L, 0, 1)
+
+  if S == 0 -- Simple case if saturation is 0, all grey
+    r = L
+    g = L
+    b = L
+  else
+    -- More common case, saturated colour
+    Q = if L < 0.5
+      L * (1.0 + S)
+    else
+      L + S - (L * S)
+
+    P = 2.0 * L - Q
+
+    Hk = H / 360
+
+    local Tr, Tg, Tb
+    if Hk < 1/3
+      Tr = Hk + 1/3
+      Tg = Hk
+      Tb = Hk + 2/3
+    elseif Hk > 2/3
+      Tr = Hk - 2/3
+      Tg = Hk
+      Tb = Hk - 1/3
+    else
+      Tr = Hk + 1/3
+      Tg = Hk
+      Tb = Hk - 1/3
+
+    get_component = (T) ->
+      if T < 1/6
+        P + ((Q - P) * 6.0 * T)
+      elseif 1/6 <= T and T < 1/2
+        Q
+      elseif 1/2 <= T and T < 2/3
+        P + ((Q - P) * (2/3 - T) * 6.0)
+      else
+        P
+
+    r = get_component(Tr)
+    g = get_component(Tg)
+    b = get_component(Tb)
+
+  return math.floor(r*255+0.5), math.floor(g*255+0.5), math.floor(b*255+0.5)
+
+-- Removes spaces at the start and end of string
+trim = (s) -> s\gsub '^%s*(.-)%s*$', '%1'
+
+-- Get the 'head' and 'tail' of a string, treating it as a sequence of words separated by one or more space-characters
+headtail = (s) ->
+  a, b, head, tail = s\find '(.-)%s+(.*)'
+  if a then head, tail else s, ''
+
+-- Iterator function for headtail
+words = (s) -> ->
+  return if s == ''
+  head, tail = headtail s
+  s = tail
+  head
+
+-- Clamp a number value to a range
+clamp = (val, min, max) ->
+  if val < min then min elseif val > max then max else val
+
+-- Interpolate between two numbers
+interpolate = (pct, min, max) ->
+  if pct <= 0 then min elseif pct >= 1 then max else pct * (max - min) + min
+
+-- Interpolate between two colour values, given in either style definition or style override format
+-- Return in style override format
+interpolate_color = (pct, first, last) ->
+  r1, g1, b1 = extract_color first
+  r2, g2, b2 = extract_color last
+  r, g, b = interpolate(pct, r1, r2), interpolate(pct, g1, g2), interpolate(pct, b1, b2)
+  ass_color r, g, b
+
+-- Interpolate between two alpha values, given either in style override or as part as a style definition colour
+-- Return in style override format
+interpolate_alpha = (pct, first, last) ->
+  ass_alpha interpolate pct, select(4, extract_color first), select(4, extract_color last)
+
+{ :copy, :deep_copy, :ass_color, :ass_alpha, :ass_style_color,
+  :extract_color, :alpha_from_style, :color_from_style, :HSV_to_RGB,
+  :HSL_to_RGB, :trim, :headtail, :words, :clamp, :interpolate,
+  :interpolate_color, :interpolate_alpha }

automation/include/cleantags.lua

@@ -0,0 +1,114 @@
+--[[ 
+"Clean Tags" -- An Auto4 LUA script for cleaning up ASS subtitle lines of badly-formed override 
+blocks and redundant/duplicate tags
+* Designed to work for Aegisub 2.0 and above
+* include()'ed this file from any auto4 script to use the cleantags() function below
+* Might change from time to time so look out for cleantags_version below
+
+Copyright (c) 2007-2009 Muhammad Lukman Nasaruddin (aka ai-chan, Aegisub's forum member)
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and 
+associated documentation files (the "Software"), to deal in the Software without restriction, 
+including without limitation the rights to use, copy, modify, merge, publish, distribute, 
+sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is 
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial 
+portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT 
+NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES 
+OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN 
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+]]
+
+cleantags_version = "1.302"
+cleantags_modified = "12 October 2023"
+
+ktag = "\\[kK][fo]?[%d.]+"
+
+--[[ The main function that performs the cleaning up
+Takes: text
+Returns: cleaned up text
+]]
+function cleantags(text)
+	--[[ Combine adjacent override override blocks into one ]]
+	function combineadjacentnotks(block1, block2)
+		if string.find(block1, ktag) and string.find(block2, ktag) then
+			-- if both adjacent override blocks have \k , let them be
+			return "{" .. block1 .. "}" .. string.char(1) .. "{" .. block2 .. "}" -- char(1) prevents infinite loop
+		else
+			-- either one or both override blocks don't have \k , so combine them into one override block
+			return "{" .. block1 .. block2 .. "}"
+		end
+	end
+	repeat
+		if aegisub.progress.is_cancelled() then return end
+		text, replaced = string.gsub(text,"{(.-)}{(.-)}", combineadjacentnotks)
+	until replaced == 0
+	text = string.gsub(text, string.char(1), "") -- removes all char(1) we inserted
+
+	--[[ Move first \k tag in override blocks to the front ]]
+	text = string.gsub(text, "{([^{}]-)(" .. ktag .. ")(.-)}", "{%2%1%3}") 
+
+	--[[ For some reasons if one override block has more than one \k tag, 
+	push those to behind the first \k tag (which has been pushed to front already) ]]
+	repeat
+		if aegisub.progress.is_cancelled() then return end
+		text, replaced = string.gsub(text, "{([^{}]-)(" .. ktag .. ")(\\[^kK][^}]-)(" .. ktag .. ")(.-)}", "{%1%2%4%3%5}")
+	until replaced == 0
+				
+	--[[ Move to the front all tags that affect the whole line (i.e. not affected by their positions in the line) ]]
+	local linetags = ""
+	function first(pattern)
+		local p_s, _, p_tag = string.find(text, pattern)
+		if p_s then
+			text = string.gsub(text, pattern, "")
+			linetags = linetags .. p_tag				
+		end
+	end
+	function firstoftwo(pattern1, pattern2)
+		local p1_s, _, p1_tag = string.find(text, pattern1)
+		local p2_s, _, p2_tag = string.find(text, pattern2)
+		text = string.gsub(text, pattern1, "")
+		text = string.gsub(text, pattern2, "")
+		if p1_s and (not p2_s or p1_s < p2_s) then
+			linetags = linetags .. p1_tag
+		elseif p2_s then
+			linetags = linetags .. p2_tag				
+		end
+	end
+	-- \an or \a
+	first("(\\an?%d+)")
+	-- \org
+	first("(\\org%([^,%)]*,[^,%)]*%))")
+	-- \move and \pos (the first one wins)
+	firstoftwo("(\\move%([^,%)]*,[^,%)]*,[^,%)]*,[^,%)]*%))", "(\\pos%([^,%)]*,[^,%)]*%))")
+	-- \fade and \fad (the first one wins)
+	firstoftwo("(\\fade%([^,%)]*,[^,%)]*,[^,%)]*,[^,%)]*,[^,%)]*,[^,%)]*,[^,%)]*%))", "(\\fad%([^,%)]*,[^,%)]*%))")
+	-- integrate
+	if string.len(linetags) > 0 then
+		if string.sub(text, 1, 1) == "{" then
+			text = "{" .. linetags .. string.sub(text, 2)
+		else
+			text = "{" .. linetags .. "}" .. text
+		end
+	end
+
+	--[[ Remove any spaces within parenteses within override blocks except for \clip tags ]]
+	local comb = function(a,b,c,d,e)
+		if (c ~= "\\clip" and c ~= "\\iclip") or d:sub(-1):find("[,%({]") or e:sub(1,1):find("[,%)}]") then return a..b..d..e
+		else return a..b..d..string.char(2)..e end
+	end
+    repeat
+        text, replaced2 = string.gsub(text, "({[^}\\]*)([^}%s]*(\\[^%(}\\%s]*))%s*(%([^%s%)}]*)%s+([^}]*)", comb)
+    until replaced2 == 0
+    text, _ = text:gsub(string.char(2)," ")
+		
+	--[[ Remove all empty override blocks ==> {} ]]
+	text = string.gsub(text, "{%s*}", "")
+
+	--[[ Finally, return the cleaned up text ]]
+	return text
+end

automation/include/clipboard.lua

@@ -0,0 +1,16 @@
+-- Copyright (c) 2012, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+_G.clipboard = require 'aegisub.clipboard'
+return _G.clipboard

automation/include/karaskel-adv.lua

@@ -1,70 +0,0 @@
---[[
- Copyright (c) 2005, Niels Martin Hansen
- All rights reserved.
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are met:
-
-   * Redistributions of source code must retain the above copyright notice,
-     this list of conditions and the following disclaimer.
-   * Redistributions in binary form must reproduce the above copyright notice,
-     this list of conditions and the following disclaimer in the documentation
-     and/or other materials provided with the distribution.
-   * Neither the name of the Aegisub Group nor the names of its contributors
-     may be used to endorse or promote products derived from this software
-     without specific prior written permission.
-
- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
- POSSIBILITY OF SUCH DAMAGE.
- ]]
-
--- Aegisub Automation include file
--- This include file is an extension of karaskel.lua providing out-of-the-box support for per-syllable
--- positioning of karaoke.
-
--- It automatically includes and re-setups karaskel.lua, so you should not include that yourself!
-include("karaskel-base.lua")
-karaskel.engage_positioning = true
-
--- The interface here has been greatly simplified, there is only one function to override, do_syllable
--- The format for that one has changed.
--- The rest of the functions can be "emulated" through the do_syllable function.
--- Though you can still also override do_line and get an effect our of it, it's not advisable, since that
--- defeats the entire purpose of using this include file.
-
--- The arguments here mean the same as in karaskel.lua, and all tables have the same members
--- The return value is different now, though.
--- It is required to be in the same format as the do_line function:
--- A table with an "n" key, and keys 0..n-1 with line structures.
-function karaskel.do_syllable(meta, styles, config, line, syl)
-	karaskel.trace("default_do_syllable")
-	return {n=0}
-end
-do_syllable = karaskel.do_syllable
-
-function karaskel.do_line(meta, styles, config, line)
-	karaskel.trace("adv_do_line")
-	if line.kind ~= "dialogue" then
-		return {n=1, [1]=line}
-	end
-	local result = {n=0}
-	for i = 0, line.karaoke.n-1 do
-		karaskel.trace("adv_do_line:2:"..i)
-		local out = do_syllable(meta, styles, config, line, line.karaoke[i])
-		for j = 1, out.n do
-			table.insert(result, out[j])
-		end
-	end
-	karaskel.trace("adv_do_line:3")
-	return result
-end
-do_line = karaskel.do_line

automation/include/karaskel-auto4.lua

@@ -0,0 +1,690 @@
+--[[
+ Copyright (c) 2007, 2010, Niels Martin Hansen, Rodrigo Braz Monteiro
+ All rights reserved.
+
+ Redistribution and use in source and binary forms, with or without
+ modification, are permitted provided that the following conditions are met:
+
+   * Redistributions of source code must retain the above copyright notice,
+     this list of conditions and the following disclaimer.
+   * Redistributions in binary form must reproduce the above copyright notice,
+     this list of conditions and the following disclaimer in the documentation
+     and/or other materials provided with the distribution.
+   * Neither the name of the Aegisub Group nor the names of its contributors
+     may be used to endorse or promote products derived from this software
+     without specific prior written permission.
+
+ THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ POSSIBILITY OF SUCH DAMAGE.
+]]
+
+include("utils.lua")
+include("unicode.lua")
+
+-- Make sure karaskel table exists
+if not karaskel then
+	karaskel = {}
+end
+
+-- Collect styles and metadata from the subs
+function karaskel.collect_head(subs, generate_furigana)
+	local meta = {
+		-- X and Y script resolution
+		res_x = 0, res_y = 0,
+		-- Aspect ratio correction factor for video/script resolution mismatch
+		video_x_correct_factor = 1.0
+	}
+	local styles = { n = 0 }
+	local toinsert = {}
+	local first_style_line = nil
+	
+	if not karaskel.furigana_scale then
+		karaskel.furigana_scale = 0.5
+	end
+	
+	-- First pass: collect all existing styles and get resolution info
+	for i, l in ipairs(subs) do
+		if aegisub.progress.is_cancelled() then error("User cancelled") end
+		
+		if l.class == "style" then
+			if not first_style_line then
+				first_style_line = i
+			end
+			-- Store styles into the style table
+			styles.n = styles.n + 1
+			styles[styles.n] = l
+			styles[l.name] = l
+			l.margin_v = l.margin_t -- convenience
+			
+			-- And also generate furigana styles if wanted
+			if generate_furigana and not l.name:match("furigana") then
+				aegisub.debug.out(5, "Creating furigana style for style: %s\n", l.name)
+				local fs = table.copy(l)
+				fs.fontsize = l.fontsize * karaskel.furigana_scale
+				fs.outline = l.outline * karaskel.furigana_scale
+				fs.shadow = l.shadow * karaskel.furigana_scale
+				fs.name = l.name .. "-furigana"
+				
+				table.insert(toinsert, fs) -- queue to insert in file
+			end
+			
+		elseif l.class == "info" then
+			-- Also look for script resolution
+			local k = l.key:lower()
+			meta[k] = l.value
+		else
+			break
+		end
+	end
+	
+	if first_style_line == nil then
+		error("Karaskel error: No styles were found in the file, bug?!")
+	end
+	
+	-- Second pass: insert all toinsert styles that don't already exist
+	for i = 1, #toinsert do
+		if not styles[toinsert[i].name] then
+			-- Insert into styles table
+			styles.n = styles.n + 1
+			styles[styles.n] = toinsert[i]
+			styles[toinsert[i].name] = toinsert[i]
+			-- And subtitle file
+			subs[-first_style_line] = toinsert[i]
+		end
+	end
+	
+	-- Fix resolution data
+	meta.res_x, meta.res_y = subs.script_resolution()
+	
+	local video_x, video_y = aegisub.video_size()
+	if video_y then
+		-- Correction factor for TextSub weirdness when render resolution does
+		-- not match script resolution. Text pixels are considered square in
+		-- render resolution rather than in script resolution, which is
+		-- logically inconsistent. Correct for that.
+		meta.video_x_correct_factor =
+			(video_y / video_x) / (meta.res_y / meta.res_x)
+	end
+	aegisub.debug.out(4, "Karaskel: Video X correction factor = %f\n\n", meta.video_x_correct_factor)
+	
+	return meta, styles
+end
+
+
+-- Pre-process line, determining stripped text, karaoke data and splitting off furigana data
+-- Modifies the object passed for line
+function karaskel.preproc_line_text(meta, styles, line)
+	-- Assume line is class=dialogue
+	local kara = aegisub.parse_karaoke_data(line)
+	line.kara = { n = 0 }
+	line.furi = { n = 0 }
+	
+	line.text_stripped = ""
+	line.duration = line.end_time - line.start_time
+	
+	local worksyl = { highlights = {n=0}, furi = {n=0} }
+	local cur_inline_fx = ""
+	for i = 0, #kara do
+		local syl = kara[i]
+		
+		-- Detect any inline-fx tags
+		local inline_fx = syl.text:match("%{.*\\%-([^}\\]+)")
+		if inline_fx then
+			cur_inline_fx = inline_fx
+		end
+		
+		-- Strip spaces (only basic ones, no fullwidth etc.)
+		local prespace, syltext, postspace = syl.text_stripped:match("^([ \t]*)(.-)([ \t]*)$")
+		
+		-- See if we've broken a (possible) multi-hl stretch
+		-- If we did it's time for a new worksyl (though never for the zero'th syllable)
+		local prefix = syltext:sub(1,unicode.charwidth(syltext,1))
+		if prefix ~= "#" and prefix ~= "＃" and i > 0 then
+			line.kara[line.kara.n] = worksyl
+			line.kara.n = line.kara.n + 1
+			worksyl = { highlights = {n=0}, furi = {n=0} }
+		end
+
+		-- Add highlight data
+		local hl = {
+			start_time = syl.start_time,
+			end_time = syl.end_time,
+			duration = syl.duration
+		}
+		worksyl.highlights.n = worksyl.highlights.n + 1
+		worksyl.highlights[worksyl.highlights.n] = hl
+		
+		-- Detect furigana (both regular and fullwidth pipes work)
+		-- Furigana is stored independantly from syllables
+		if syltext:find("|") or syltext:find("｜") then
+			-- Replace fullwidth pipes, they aren't regex friendly
+			syltext = syltext:gsub("｜", "|")
+			-- Get before/after pipe text
+			local maintext, furitext = syltext:match("^(.-)|(.-)$")
+			syltext = maintext
+			
+			local furi = { }
+			furi.syl = worksyl
+			
+			-- Magic happens here
+			-- isbreak = Don't join this furi visually with previous furi, even if their main texts are adjacent
+			-- spillback = Allow this furi text to spill over the left edge of the main text
+			-- (Furi is always allowed to spill over the right edge of main text.)
+			local prefix = furitext:sub(1,unicode.charwidth(furitext,1))
+			if prefix == "!" or prefix == "！" then
+				furi.isbreak = true
+				furi.spillback = false
+			elseif prefix == "<" or prefix == "＜" then
+				furi.isbreak = true
+				furi.spillback = true
+			else
+				furi.isbreak = false
+				furi.spillback = false
+			end
+			-- Remove the prefix character from furitext, if there was one
+			if furi.isbreak then
+				furitext = furitext:sub(unicode.charwidth(furitext,1)+1)
+			end
+			
+			-- Some of these may seem superflous, but a furi should ideally have the same "interface" as a syllable
+			furi.start_time = syl.start_time
+			furi.end_time = syl.end_time
+			furi.duration = syl.duration
+			furi.kdur = syl.duration / 10
+			furi.text = furitext
+			furi.text_stripped = furitext
+			furi.text_spacestripped = furitext
+			furi.line = line
+			furi.tag = syl.tag
+			furi.inline_fx = cur_inline_fx
+			furi.i = line.kara.n
+			furi.prespace = ""
+			furi.postspace = ""
+			furi.highlights = { n=1, [1]=hl }
+			furi.isfuri = true
+			
+			line.furi.n = line.furi.n + 1
+			line.furi[line.furi.n] = furi
+			worksyl.furi.n = worksyl.furi.n + 1
+			worksyl.furi[worksyl.furi.n] = furi
+		end
+		
+		-- Syllables that aren't part of a multi-highlight generate a new output-syllable
+		if not worksyl.text or (prefix ~= "#" and prefix ~= "＃") then
+			-- Update stripped line-text
+			line.text_stripped = line.text_stripped .. prespace .. syltext .. postspace
+			
+			-- Copy data from syl to worksyl
+			worksyl.text = syl.text
+			worksyl.duration = syl.duration
+			worksyl.kdur = syl.duration / 10
+			worksyl.start_time = syl.start_time
+			worksyl.end_time = syl.end_time
+			worksyl.tag = syl.tag
+			worksyl.line = line
+			
+			-- And add new data to worksyl
+			worksyl.i = line.kara.n
+			worksyl.text_stripped = prespace .. syltext .. postspace -- be sure to include the spaces so the original line can be built from text_stripped
+			worksyl.inline_fx = cur_inline_fx
+			worksyl.text_spacestripped = syltext
+			worksyl.prespace = prespace
+			worksyl.postspace = postspace
+		else
+			-- This is just an extra highlight
+			worksyl.duration = worksyl.duration + syl.duration
+			worksyl.kdur = worksyl.kdur + syl.duration / 10
+			worksyl.end_time = syl.end_time
+		end
+	end
+
+	-- Add the last syllable
+	line.kara[line.kara.n] = worksyl
+	-- But don't increment n here, n should be the highest syllable index! (The zero'th syllable doesn't count.)
+end
+
+
+-- Pre-calculate sizing information for the given line, no layouting is done
+-- Modifies the object passed for line
+function karaskel.preproc_line_size(meta, styles, line)
+	if not line.kara then
+		karaskel.preproc_line_text(meta, styles, line)
+	end
+	
+	-- Add style information
+	if styles[line.style] then
+		line.styleref = styles[line.style]
+	else
+		aegisub.debug.out(2, "WARNING: Style not found: " .. line.style .. "\n")
+		line.styleref = styles[1]
+	end
+	
+	-- Calculate whole line sizing
+	line.width, line.height, line.descent, line.extlead = aegisub.text_extents(line.styleref, line.text_stripped)
+	line.width = line.width * meta.video_x_correct_factor
+
+	-- Calculate syllable sizing
+	for s = 0, line.kara.n do
+		local syl = line.kara[s]
+		syl.style = line.styleref
+		syl.width, syl.height = aegisub.text_extents(syl.style, syl.text_spacestripped)
+		syl.width = syl.width * meta.video_x_correct_factor
+		syl.prespacewidth = aegisub.text_extents(syl.style, syl.prespace) * meta.video_x_correct_factor
+		syl.postspacewidth = aegisub.text_extents(syl.style, syl.postspace) * meta.video_x_correct_factor
+	end
+	
+	-- Calculate furigana sizing
+	if styles[line.style .. "-furigana"] then
+		line.furistyle = styles[line.style .. "-furigana"]
+	else
+		aegisub.debug.out(4, "No furigana style defined for style '%s'\n", line.style)
+		line.furistyle = false
+	end
+	if line.furistyle then
+		for f = 1, line.furi.n do
+			local furi = line.furi[f]
+			furi.style = line.furistyle
+			furi.width, furi.height = aegisub.text_extents(furi.style, furi.text)
+			furi.width = furi.width * meta.video_x_correct_factor
+			furi.prespacewidth = 0
+			furi.postspacewidth = 0
+		end
+	end
+end
+
+
+-- Layout a line, including furigana layout
+-- Modifies the object passed for line
+function karaskel.preproc_line_pos(meta, styles, line)
+	if not line.styleref then
+		karaskel.preproc_line_size(meta, styles, line)
+	end
+	
+	-- Syllable layouting must be done before the rest, since furigana layout may change the total width of the line
+	if line.furistyle then
+		karaskel.do_furigana_layout(meta, styles, line)
+	else
+		karaskel.do_basic_layout(meta, styles, line)
+	end
+
+	-- Effective margins
+	line.margin_v = line.margin_t
+	line.eff_margin_l = ((line.margin_l > 0) and line.margin_l) or line.styleref.margin_l
+	line.eff_margin_r = ((line.margin_r > 0) and line.margin_r) or line.styleref.margin_r
+	line.eff_margin_t = ((line.margin_t > 0) and line.margin_t) or line.styleref.margin_t
+	line.eff_margin_b = ((line.margin_b > 0) and line.margin_b) or line.styleref.margin_b
+	line.eff_margin_v = ((line.margin_v > 0) and line.margin_v) or line.styleref.margin_v
+	-- And positioning
+	if line.styleref.align == 1 or line.styleref.align == 4 or line.styleref.align == 7 then
+		-- Left aligned
+		line.left = line.eff_margin_l
+		line.center = line.left + line.width / 2
+		line.right = line.left + line.width
+		line.x = line.left
+		line.halign = "left"
+	elseif line.styleref.align == 2 or line.styleref.align == 5 or line.styleref.align == 8 then
+		-- Centered
+		line.left = (meta.res_x - line.eff_margin_l - line.eff_margin_r - line.width) / 2 + line.eff_margin_l
+		line.center = line.left + line.width / 2
+		line.right = line.left + line.width
+		line.x = line.center
+		line.halign = "center"
+	elseif line.styleref.align == 3 or line.styleref.align == 6 or line.styleref.align == 9 then
+		-- Right aligned
+		line.left = meta.res_x - line.eff_margin_r - line.width
+		line.center = line.left + line.width / 2
+		line.right = line.left + line.width
+		line.x = line.right
+		line.halign = "right"
+	end
+	line.hcenter = line.center
+	if line.styleref.align >=1 and line.styleref.align <= 3 then
+		-- Bottom aligned
+		line.bottom = meta.res_y - line.eff_margin_b
+		line.middle = line.bottom - line.height / 2
+		line.top = line.bottom - line.height
+		line.y = line.bottom
+		line.valign = "bottom"
+	elseif line.styleref.align >= 4 and line.styleref.align <= 6 then
+		-- Mid aligned
+		line.top = (meta.res_y - line.eff_margin_t - line.eff_margin_b - line.height) / 2 + line.eff_margin_t
+		line.middle = line.top + line.height / 2
+		line.bottom = line.top + line.height
+		line.y = line.middle
+		line.valign = "middle"
+	elseif line.styleref.align >= 7 and line.styleref.align <= 9 then
+		-- Top aligned
+		line.top = line.eff_margin_t
+		line.middle = line.top + line.height / 2
+		line.bottom = line.top + line.height
+		line.y = line.top
+		line.valign = "top"
+	end
+	line.vcenter = line.middle
+end
+
+
+-- Do simple syllable layouting (no furigana)
+function karaskel.do_basic_layout(meta, styles, line)
+	local curx = 0
+	for i = 0, line.kara.n do
+		local syl = line.kara[i]
+		syl.left = curx + syl.prespacewidth
+		syl.center = syl.left + syl.width / 2
+		syl.right = syl.left + syl.width
+		curx = curx + syl.prespacewidth + syl.width + syl.postspacewidth
+	end
+end
+
+
+-- Do advanced furigana layout algorithm
+function karaskel.do_furigana_layout(meta, styles, line)
+	-- Start by building layout groups
+	-- Two neighboring syllables with furigana that join together are part of the same layout group
+	-- A forced split creates a new layout group
+	local lgroups = {}
+	-- Start-sentinel
+	local lgsentinel = {basewidth=0, furiwidth=0, syls={}, furi={}, spillback=false, left=0, right=0}
+	table.insert(lgroups, lgsentinel)
+	-- Create groups
+	local last_had_furi = false
+	local lg = { basewidth=0, furiwidth=0, syls={}, furi={}, spillback=false }
+	for s = 0, line.kara.n do
+		local syl = line.kara[s]
+		-- Furigana-less syllables always generate a new layout group
+		-- So do furigana-endowed syllables that are marked as split
+		-- But if current lg has no width (usually only first) don't create a new
+		aegisub.debug.out(5, "syl.furi.n=%d, isbreak=%s, last_had_furi=%s, lg.basewidth=%d\n", syl.furi.n, syl.furi.n > 0 and syl.furi[1].isbreak and "y" or "n", last_had_furi and "y" or "n", lg.basewidth)
+		if (syl.furi.n == 0 or syl.furi[1].isbreak or not last_had_furi) and lg.basewidth > 0 then
+			aegisub.debug.out(5, "Inserting layout group, basewidth=%d, furiwidth=%d, isbreak=%s\n", lg.basewidth, lg.furiwidth, syl.furi.n > 0 and syl.furi[1].isbreak and "y" or "n")
+			table.insert(lgroups, lg)
+			lg = { basewidth=0, furiwidth=0, syls={}, furi={}, spillback=false }
+			last_had_furi = false
+		end
+		
+		-- Add this syllable to lg
+		lg.basewidth = lg.basewidth + syl.prespacewidth + syl.width + syl.postspacewidth
+		table.insert(lg.syls, syl)
+		aegisub.debug.out(5, "\tAdding syllable to layout group: '%s', width=%d, isbreak=%s\n", syl.text_stripped, syl.width, syl.furi.n > 0 and syl.furi[1].isbreak and "y" or "n")
+		
+		-- Add this syllable's furi to lg
+		for f = 1, syl.furi.n do
+			local furi = syl.furi[f]
+			lg.furiwidth = lg.furiwidth + furi.width
+			lg.spillback = lg.spillback or furi.spillback
+			table.insert(lg.furi, furi)
+			aegisub.debug.out(5, "\tAdding furigana to layout group: %s (width=%d)\n", furi.text, furi.width)
+			last_had_furi = true
+		end
+	end
+	-- Insert last lg
+	aegisub.debug.out(5, "Inserting layout group, basewidth=%d, furiwidth=%d\n", lg.basewidth, lg.furiwidth)
+	table.insert(lgroups, lg)
+	-- And end-sentinel
+	table.insert(lgroups, lgsentinel)
+
+	aegisub.debug.out(5, "\nProducing layout from %d layout groups\n", #lgroups-1)
+	-- Layout the groups at macro-level
+	-- Skip sentinel at ends in loop
+	local curx = 0
+	for i = 2, #lgroups-1 do
+		local lg = lgroups[i]
+		local prev = lgroups[i-1]
+		aegisub.debug.out(5, "Layout group, nsyls=%d, nfuri=%d, syl1text='%s', basewidth=%f furiwidth=%f, ", #lg.syls, #lg.furi, lg.syls[1] and lg.syls[1].text or "", lg.basewidth, lg.furiwidth)
+		
+		-- Three cases: No furigana, furigana smaller than base and furigana larger than base
+		if lg.furiwidth == 0 then
+			-- Here wa can basically just place the base text
+			lg.left = curx
+			lg.right = lg.left + lg.basewidth
+			-- If there was any spillover from a previous group, add it to here
+			if prev.rightspill  and prev.rightspill > 0 then
+				aegisub.debug.out(5, "eat rightspill=%f, ", prev.rightspill)
+				lg.leftspill = 0
+				lg.rightspill = prev.rightspill - lg.basewidth
+				prev.rightspill = 0
+			end
+			curx = curx + lg.basewidth
+		elseif lg.furiwidth <= lg.basewidth then
+			-- If there was any rightspill from previous group, we have to stay 100% clear of that
+			if prev.rightspill and prev.rightspill > 0 then
+				aegisub.debug.out(5, "skip rightspill=%f, ", prev.rightspill)
+				curx = curx + prev.rightspill
+				prev.rightspill = 0
+			end
+			lg.left = curx
+			lg.right = lg.left + lg.basewidth
+			curx = curx + lg.basewidth
+			-- Negative spill here
+			lg.leftspill = (lg.furiwidth - lg.basewidth) / 2
+			lg.rightspill = lg.leftspill
+		else
+			-- Furigana is wider than base, we'll have to spill in some direction
+			if prev.rightspill and prev.rightspill > 0 then
+				aegisub.debug.out(5, "skip rightspill=%f, ", prev.rightspill)
+				curx = curx + prev.rightspill
+				prev.rightspill = 0
+			end
+			-- Do we spill only to the right or in both directions?
+			if lg.spillback then
+				-- Both directions
+				lg.leftspill = (lg.furiwidth - lg.basewidth) / 2
+				lg.rightspill = lg.leftspill
+				aegisub.debug.out(5, "spill left=%f right=%f, ", lg.leftspill, lg.rightspill)
+				-- If there was any furigana or spill on previous syllable we can't overlap it
+				if prev.rightspill then
+					lg.left = curx + lg.leftspill
+				else
+					lg.left = curx
+				end
+			else
+				-- Only to the right
+				lg.leftspill = 0
+				lg.rightspill = lg.furiwidth - lg.basewidth
+				aegisub.debug.out(5, "spill right=%f, ", lg.rightspill)
+				lg.left = curx
+			end
+			lg.right = lg.left + lg.basewidth
+			curx = lg.right
+		end
+		aegisub.debug.out(5, "left=%f, right=%f\n", lg.left, lg.right)
+	end
+	
+	-- Now the groups are layouted, so place the individual syllables/furigana
+	for i, lg in ipairs(lgroups) do
+		local basecenter = (lg.left + lg.right) / 2 -- centered furi is centered over this
+		local curx = lg.left -- base text is placed from here on
+		-- Place base syllables
+		for s, syl in ipairs(lg.syls) do
+			syl.left = curx + syl.prespacewidth
+			syl.center = syl.left + syl.width/2
+			syl.right = syl.left + syl.width
+			curx = syl.right + syl.postspacewidth
+		end
+		if curx > line.width then line.width = curx end
+		-- Place furigana
+		if lg.furiwidth < lg.basewidth or lg.spillback then
+			-- Center over group
+			curx = lg.left + (lg.basewidth - lg.furiwidth) / 2
+		else
+			-- Left aligned
+			curx = lg.left
+		end
+		for f, furi in ipairs(lg.furi) do
+			furi.left = curx
+			furi.center = furi.left + furi.width/2
+			furi.right = furi.left + furi.width
+			curx = furi.right
+		end
+	end
+end
+
+
+-- Precalc some info on a line
+-- Modifies the line parameter
+function karaskel.preproc_line(subs, meta, styles, line)
+	-- subs parameter is never used and probably won't ever be
+	-- (it wouldn't be fun if some lines suddenly changed index here)
+	-- pass whatever you want, but be careful calling preproc_line_pos directly, that interface might change
+	karaskel.preproc_line_pos(meta, styles, line)
+end
+
+
+-- An actual "skeleton" function
+-- Parses the first word out of the Effect field of each dialogue line and runs "fx_"..effect on that line
+-- Lines with empty Effect field run fx_none
+-- Lines with unimplemented effects are left alone
+-- If the effect function returns true, the original line is kept in output,
+-- otherwise the original line is converted to a comment
+-- General prototype of an fx function: function(subs, meta, styles, line, fxdata)
+-- fxdata are extra data after the effect name in the Effect field
+local fx_library_registered = false
+function karaskel.use_fx_library_furi(use_furigana, macrotoo)
+	local function fx_library_main(subs)
+		aegisub.progress.task("Collecting header info")
+		meta, styles = karaskel.collect_head(subs, use_furigana)
+		
+		aegisub.progress.task("Processing subs")
+		local i, maxi = 1, #subs
+		while i <= maxi do
+			aegisub.progress.set(i/maxi*100)
+			local l = subs[i]
+			
+			if l.class == "dialogue" then
+				aegisub.progress.task(l.text)
+				karaskel.preproc_line(subs, meta, styles, l)
+				local keep = true
+				local fx, fxdata = string.headtail(l.effect)
+				if fx == "" then fx = "none" end
+				if _G["fx_" .. fx] then
+					-- note to casual readers: _G is a special global variable that points to the global environment
+					-- specifically, _G["_G"] == _G
+					keep = _G["fx_" .. fx](subs, meta, styles, l, fxdata)
+				end
+				if not keep then
+					l = subs[i]
+					l.comment = true
+					subs[i] = l
+				end
+			end
+			
+			i = i + 1
+		end
+	end
+
+	if fx_library_registered then return end
+	aegisub.register_filter(script_name or "fx_library", script_description or "Apply karaoke effects (fx_library skeleton)", 2000, fx_library_main)
+	
+	if macrotoo then
+		local function fxlibmacro(subs)
+			fx_library_main(subs)
+			aegisub.set_undo_point(script_name or "karaoke effect")
+		end
+		aegisub.register_macro(script_name or "fx_library", script_description or "Apply karaoke effects (fx_library skeleton)", fxlibmacro)
+	end
+end
+function karaskel.use_fx_library(macrotoo)
+	return karaskel.use_fx_library_furi(false, macrotoo)
+end
+
+
+-- A skeleton that approximately simulates the Auto3 "advanced" one.
+-- Build a Auto3-like list of dialogue lines and also add linked list refs to lines.
+-- Call user-defined do_line function for each line, if it exists.
+-- The default do_line function will call the do_syllable function for each line,
+-- if the function exists.
+-- The function names called are constant.
+local classic_adv_registered = false
+function karaskel.use_classic_adv(use_furigana, macrotoo)
+	local function classic_adv_main(subs)
+		
+		local function default_do_syllable(subs, meta, styles, lines, line, syl)
+			-- do nothing
+		end
+	
+		local sylfunc = (type(_G.do_syllable)=="function" and _G.do_syllable) or default_do_syllable
+		local furifunc = (type(_G.do_furigana)=="function" and _G.do_furigana) or default_do_syllable
+
+		local function default_do_line(subs, meta, styles, lines, line)
+			for i = 0, line.kara.n do
+				sylfunc(subs, meta, styles, lines, line, line.kara[i])
+			end
+			if use_furigana then
+				for i = 0, line.furi.n do
+					furifunc(subs, meta, styles, lines, line, line.furi[i])
+				end
+			end
+		end
+		
+		aegisub.progress.task("Collecting header info")
+		local meta, styles = karaskel.collect_head(subs, use_furigana)
+		
+		-- Collect lines
+		aegisub.progress.task("Collecting subtitle lines")
+		local lines = { n=0 }
+		local prevline = nil
+		local i = 1
+		local curorgline, maxorglines = 1, #subs
+		while i <= #subs do
+			aegisub.progress.set(curorgline/maxorglines*100)
+			local l = subs[i]
+			if l.class == "dialogue" then
+				-- Link prev of this one
+				karaskel.preproc_line(subs, meta, styles, l)
+				l.prev = prevline
+				l.next = nil
+				-- Line next of prev one
+				if prevline then
+					prevline.next = l
+				end
+				-- Insert into array
+				lines.n = lines.n + 1
+				lines[lines.n] = l
+				-- Update prev
+				prevline = l
+				-- Delete from file
+				subs[i] = nil
+			else
+				-- Only increase for non-dialogue lines
+				-- (Dialogue lines are deleted, so every other lines moves one down)
+				 i = i + 1
+			end
+			curorgline = curorgline + 1
+		end
+		
+		aegisub.progress.task("Processing subtitles")
+		local linefunc = default_do_line
+		if type(_G.do_line)=="function" then
+			linefunc = function(subs, meta, styles, lines, line)
+				return _G.do_line(subs, meta, styles, lines, line, default_do_line)
+			end
+		end
+		for i = 1, lines.n do
+			aegisub.progress.set(i/lines.n*100)
+			linefunc(subs, meta, styles, lines, lines[i])
+		end
+		
+		aegisub.progress.task("Finished")
+		aegisub.progress.set(100)
+	end
+	
+	if classic_adv_registered then return end
+	aegisub.register_filter(script_name or "classic_adv", script_description or "Apply karaoke effects (classic_adv skeleton)", 2000, classic_adv_main)
+	
+	if macrotoo then
+		local function classic_adv_macro(subs)
+			classic_adv_main(subs)
+			aegisub.set_undo_point(script_name or "karaoke effect")
+		end
+		aegisub.register_macro(script_name or "classic_adv", script_description or "Apply karaoke effects (classic_adv skeleton)", classic_adv_macro)
+	end
+end

automation/include/karaskel-base.lua

@@ -1,313 +0,0 @@
---[[
- Copyright (c) 2005, Niels Martin Hansen
- All rights reserved.
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are met:
-
-   * Redistributions of source code must retain the above copyright notice,
-     this list of conditions and the following disclaimer.
-   * Redistributions in binary form must reproduce the above copyright notice,
-     this list of conditions and the following disclaimer in the documentation
-     and/or other materials provided with the distribution.
-   * Neither the name of the Aegisub Group nor the names of its contributors
-     may be used to endorse or promote products derived from this software
-     without specific prior written permission.
-
- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
- POSSIBILITY OF SUCH DAMAGE.
- ]]
-
--- Aegisub Automation include file
--- This file is meant as a support file for the various karaoke skeleton
--- scripts, to avoid including unneeded code
-
-include("utils.lua")
-
--- karaskel
--- This is a gloabl table defining various parameters, controlling what the
--- skeleton will do. Not all parameters are defined in this base.
-karaskel = {
-	-- Does this script need positioning information?
-	engage_positioning = false,
-	-- Syllable precalc parameters
-	precalc_start_progress = 0, -- progress precalc starts at
-	precalc_end_progress = 50, -- and where it ends at
-	-- Does this script use furigana information? (has no effect without positioning)
-	engage_furigana = false,
-	-- Furigana parameters
-	furigana_scale = 0.4, -- relative size of furigana
-	-- Default effect-name for inline effects (read manual)
-	inline_fx_default = "regular",
-	-- Set this to the name of the style used for out-of-line effect specifications, if any (read manual on this!)
-	ool_fx_style = false,
-	-- Show tracing messages?
-	engage_trace = false
-}
-
-function karaskel.warning(s)
-	aegisub.output_debug("WARNING! " .. s)
-end
-
-function karaskel.trace(s)
-	if karaskel.engage_trace then
-		aegisub.output_debug(s)
-	else
-		-- A little optimisation
-		karaskel.trace = function() end
-	end
-end
-
--- precalc_syllable_data
--- Adds various extra fields to the line and syllable tables
--- See the implementation and/or Aegisub help file for more information
-function karaskel.precalc_syllable_data(meta, styles, lines)
-	karaskel.trace("precalc_syllable_data")
-	aegisub.set_status("Preparing syllable-data")
-	
-	-- Fix missing resolution data
-	if meta.res_x == 0 and meta_res_y == 0 then
-		meta.res_x = 384
-		meta.res_y = 288
-	elseif meta.res_x == 0 then
-		-- This is braindead, but it's how TextSub does things...
-		if meta.res_y == 1024 then
-			meta.res_x = 1280
-		else
-			meta.res_x = meta.res_y / 3 * 4
-		end
-	elseif meta.res_y == 0 then
-		-- As if 1280x960 didn't exist
-		if meta.res_x == 1280 then
-			meta.res_y = 1024
-		else
-			meta.res_y = meta.res_x * 3 / 4
-		end
-	end
-	
-	for i = 0, lines.n-1 do
-		karaskel.trace("precalc_syllable_data:2:"..i)
-		aegisub.report_progress(karaskel.precalc_start_progress + i/lines.n*(karaskel.precalc_end_progress-karaskel.precalc_start_progress))
-		local line, style = lines[i]
-		-- Index number of the line
-		line.i = i
-		-- Linked list-style access
-		line.prev = lines[i-1]
-		line.next = lines[i+1]
-		karaskel.trace("precalc_syllable_data:3:")
-		if line.kind == "dialogue" or line.kind == "comment" then
-			karaskel.trace("precalc_syllable_data:4:")
-			local style = styles[line.style]
-			if not style then
-				-- ok, so the named style does not exist... well there MUST be at least ONE style (assume this)
-				-- pick the first one
-				style = styles[0]
-				karaskel.warning(string.format("You have a line using a style named \"%s\", but that style does not exist! Using the first defined style (\"%s\") instead.", line.style, style.name))
-			end
-			if karaskel.engage_furigana then
-				karaskel.split_furigana_data(line)
-				line.text_stripped = ""
-				for k = 0, line.karaoke.n-1 do
-					line.text_stripped = line.text_stripped .. line.karaoke[k].text_stripped
-				end
-			end
-			-- This should make things more predictable
-			line.text_stripped = trim(line.text_stripped)
-			if karaskel.engage_positioning then
-				-- Line dimensions
-				line.width, line.height, line.ascent, line.extlead = aegisub.text_extents(style, line.text_stripped)
-				karaskel.trace(string.format("precalc_syllable_data:5: text_stripped='%s', width=%d", line.text_stripped, line.width))
-				-- Line position
-				line.centerleft = math.floor((meta.res_x - line.width) / 2)
-				line.centerright = meta.res_x - line.centerleft
-			end
-			-- Line duration, in miliseconds
-			line.duration = (line.end_time - line.start_time) * 10
-			-- Style reference
-			line.styleref = style
-			karaskel.trace("precalc_syllable_data:6:")
-			-- Process the syllables
-			local curtime = 0
-			local sumtext = ""
-			local inline_fx = karaskel.inline_fx_default
-			for j = 0, line.karaoke.n-1 do
-				karaskel.trace("precalc_syllable_data:7::"..j)
-				local syl = line.karaoke[j]
-				-- Syllable index
-				syl.i = j
-				-- Check for inline-effect
-				karaskel.trace("testing for inline_fx in: " .. syl.text)
-				local a, b, new_inline_fx = string.find(syl.text, "{%\\?%-(.*)}")
-				if new_inline_fx then
-					karaskel.trace("caught new inline_fx: " .. new_inline_fx)
-					inline_fx = new_inline_fx
-				end
-				syl.inline_fx = inline_fx
-				-- Do positioning calculations, if applicable
-				sumtext = sumtext .. syl.text_stripped
-				karaskel.trace("new sumtext = " .. sumtext)
-				if karaskel.engage_positioning then
-					-- Summed text dimensions
-					local sumwidth = aegisub.text_extents(style, sumtext)
-					karaskel.trace("sumwidth = " .. sumwidth)
-					-- Strip some spaces
-					local tmp1, tmp2, prespc, syltxt, postspc = string.find(syl.text_stripped, "^([ \t]*)(.-)([ \t]*)$")
-					-- Pre/post space dimensions
-					local prespc_width = aegisub.text_extents(style, prespc)
-					local postspc_width = aegisub.text_extents(style, postspc)
-					karaskel.trace("space capture lengths = " .. string.len(prespc) .. ", " .. string.len(syltxt) .. ", " .. string.len(postspc))
-					karaskel.trace("space widths = " .. prespc_width .. ", " .. postspc_width)
-					-- Syllable dimensions
-					syl.width, syl.height, syl.ascent, syl.extlead = aegisub.text_extents(style, syltxt)
-					karaskel.trace("syllable text, width = " .. syltxt .. ", " .. syl.width)
-					karaskel.trace("precalc_syllable_data:8::")
-					-- Syllable positioning
-					syl.right = sumwidth - postspc_width
-					syl.left = sumwidth - syl.width + prespc_width
-					syl.center = math.floor(syl.left + (syl.right - syl.left) / 2)
-					karaskel.trace("syllable left, center, right = " .. syl.left .. ", " .. syl.center .. ", " .. syl.right)
-					if syl.furigana then
-						karaskel.calc_furigana_sizes(line, syl)
-					end
-				end
-				-- Start and end times in miliseconds
-				syl.start_time = curtime
-				syl.end_time = curtime + syl.duration*10
-				curtime = syl.end_time
-			end
-		end
-	end
-end
-
--- Rebuild the entire karaoke data list, splitting out and adding furigana data
--- This also does joining of syllables with "#" as text
--- (Joining of furigana syllables with # as text seems useless for now, so it's not done.)
-function karaskel.split_furigana_data(line)
-	if line.kind ~= "dialogue" then
-		karaskel.trace("skipping line, not dialogue")
-		return
-	end
-	karaskel.trace("split_furigana_data:1")
-	line.furigana = {n=0}
-	local newkara = {n=0}
-	local curtime = 0
-	for i = 0, line.karaoke.n-1 do
-		karaskel.trace("split_furigana_data:2:"..i)
-		local syl = line.karaoke[i]
-		local a, b, maintext, furitext = string.find(syl.text_stripped, "^(.*)|(.*)$")
-		if not maintext then
-			maintext = syl.text_stripped
-		end
-		karaskel.trace("split_furigana_data:3:"..i..":"..maintext)
-		local highlight = { duration = syl.duration, start_time = curtime*10, end_time = curtime*10+syl.duration*10 }
-		curtime = curtime + syl.duration
-		if maintext == "#" then
-			karaskel.trace("split_furigana_data:4:"..i..":a")
-			-- repeat character
-			newkara[newkara.n-1].duration = newkara[newkara.n-1].duration + syl.duration
-			syl = newkara[newkara.n-1]
-		else
-			karaskel.trace("split_furigana_data:4:"..i..":b")
-			syl.furigana = {n=0, text=""} -- essentially a list of syllables in the syllable :o
-			syl.highlights = {n=0}
-			syl.text_stripped = maintext
-			newkara[newkara.n] = syl
-			newkara.n = newkara.n + 1
-		end
-		karaskel.trace("split_furigana_data:5:"..i)
-		syl.highlights[syl.highlights.n] = highlight
-		syl.highlights.n = syl.highlights.n + 1
-		if a then
-			karaskel.trace("split_furigana_data:6:"..i)
-			local furi = { text = furitext, duration = highlight.duration, start_time = highlight.start_time, end_time = highlight.end_time }
-			syl.furigana[syl.furigana.n] = furi
-			syl.furigana.n = syl.furigana.n + 1
-			syl.furigana.text = syl.furigana.text .. furitext
-		end
-	end
-	line.karaoke = newkara
-end
-
-function karaskel.calc_furigana_sizes(line, syl)
-	-- assume the sizes for the main syllable itself has been calculated already
-	local ls = line.styleref
-	local style = { -- only copy what's needed for text_extents
-		fontname = ls.fontname,
-		fontsize = ls.fontsize * karaskel.furigana_scale,
-		bold = ls.bold,
-		italic = ls.italic,
-		underline = ls.underline,
-		strikeout = ls.strikeout,
-		scale_x = ls.scale_x,
-		scale_y = ls.scale_y,
-		spacing = ls.spacing,
-		encoding = ls.encoding
-	}
-	syl.furigana.width, syl.furigana.height = aegisub.text_extents(style, syl.furigana.text)
-	syl.furigana.scale = syl.width / syl.furigana.width * 100
-	syl.furigana.fontsize = style.fontsize
-	if syl.furigana.scale > 100 then
-		syl.furigana.scale = 100
-	else
-		syl.furigana.width = syl.width
-	end
-	style.scale_x = style.scale_x * syl.furigana.scale / 100
-	local left = syl.left + (syl.width - syl.furigana.width)/2
-	for i = 0, syl.furigana.n-1 do
-		local f = syl.furigana[i]
-		f.width, f.height = aegisub.text_extents(style, f.text)
-		f.left = left
-		f.center = f.left + f.width/2
-		f.right = f.left + f.width
-		left = f.right
-	end
-end
-
--- Everything else is done in the process_lines function
-function karaskel.process_lines(meta, styles, lines, config)
-	karaskel.trace("new skeleton")
-	karaskel.trace("skel_process_lines")
-	-- Do a little pre-calculation for each line and syllable
-	karaskel.precalc_syllable_data(meta, styles, lines)
-	karaskel.trace("skel_process_lines:2")
-	-- A var for the new output
-	local result = {n=0}
-	local ool_fx = {}
-	aegisub.set_status("Running main-processing")
-	-- Now do the usual processing
-	for i = 0, lines.n-1 do
-		karaskel.trace("skel_process_lines:3:"..i)
-		aegisub.report_progress(50+i/lines.n*50)
-		if (lines[i].kind == "dialogue" or lines[i].kind == "comment") and lines[i].style == karaskel.ool_fx_style then
-			karaskel.trace("skel_process_lines: parsing ool fx: " .. lines[i].text)
-			local fx = {}
-			fx.head, fx.tail = string.headtail(lines[i].text)
-			karaskel.trace("--- head: '" .. fx.head .. "'")
-			karaskel.trace("--- tail: '" .. fx.tail .. "'")
-			fx.line = lines[i]
-			fx.start_time, fx.end_time = fx.line.start_time, fx.line.end_time
-			ool_fx[fx.head] = fx
-		else
-			-- Get replacement lines
-			lines[i].ool_fx = ool_fx
-			repl = do_line(meta, styles, config, lines[i])
-			karaskel.trace("skel_process_lines:4:"..i)
-			-- Append to result table
-			for j = 1, repl.n do
-				table.insert(result, repl[j])
-			end
-		end
-	end
-	-- Done, return the stuff
-	return result
-end
-process_lines = karaskel.process_lines

automation/include/karaskel.lua

@@ -1,5 +1,5 @@
---[[
- Copyright (c) 2005, Niels Martin Hansen
+--[[
+ Copyright (c) 2007, Niels Martin Hansen, Rodrigo Braz Monteiro
  All rights reserved.
 
  Redistribution and use in source and binary forms, with or without
@@ -25,110 +25,6 @@
  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  POSSIBILITY OF SUCH DAMAGE.
- ]]
+]]
 
--- Aegisub Automation include file
--- The purpose of this include file is to provide a default skeleton for Automation scripts,
--- where you, as a scripter, can just override the functions you need to override.
-
--- The following functions can be overridden:
---   do_syllable - called for each syllable in a line
---   do_line_decide - called to decide whether to process a line or not
---   do_line_start - called at the beginning of each line
---   do_line_end - called at the end of each line
---   do_line - Process an entire line
--- By default, these functions are all assigned to the following default functions
--- Your functions should obviously use the same parameter lists etc.
--- Note that if you override do_line, none of the other functions will be called!
-
-
--- All the functions mentioned here are, however, wrapped in some code that pre-calculates some
--- extra data for the lines and syllables.
-
--- The following fields are added to lines:
---   i - The index of the line in the file, 0 being the first
---   width - Rendered width of the line in pixels (using the line style, overrides are not taken into account)
---   height - Rendered height of the line in pixels (note that rotation isn't taken into account either)
---   ascent - Height of the ascenders, in pixels (notice that this looks like the output of text_extents?)
---   extlead - External leading of the font, in pixels (well, it is!)
---   centerleft - Pixel position of the left edge of the line, when horisontally centered on screen
---   centerright - Pixel pisition of the right edge of the line, when horisontally centered on screen
---   duration - Duration of the line in miliseconds
---   styleref - The actual style table for the style this line has
-
--- The following fields are added to syllables:
---   i - The index of the syllable in the line, 0 being the first (and usually empty) one
---   width, height, ascent, extlead - Same as for lines
---   left - Left pixel position of the syllable, relative to the start of the line
---   center - Center pixel position of the syllable, also relative to the start of the line
---   right - Right pixel position of the syllable, relative again
---   start_time - Start time of the syllable, in miliseconds, relative to the start of the line
---   end_time - End time of the syllable, similar to start_time
-
-include("karaskel-base.lua")
-
--- Return a replacement text for a syllable
-function karaskel.do_syllable(meta, styles, config, line, syl)
-	karaskel.trace("default_do_syllable")
-	return syl.text
-end
-
--- Decide whether or not to process a line
-function karaskel.do_line_decide(meta, styles, config, line)
-	karaskel.trace("default_do_line_decide")
-	return line.kind == "dialogue"
-end
-
--- Return a text to prefix the line
-function karaskel.do_line_start(meta, styles, config, line)
-	karaskel.trace("default_do_line_start")
-	return ""
-end
-
--- Return a text to suffix the line
-function karaskel.do_line_end(meta, styles, config, line)
-	karaskel.trace("default_do_line_end")
-	return ""
-end
-
--- Process an entire line (which has pre-calculated extra data in it already)
--- Return a table of replacement lines
-function karaskel.do_line(meta, styles, config, line)
-	karaskel.trace("default_do_line")
-	
-	-- Check if the line should be processed at all
-	if not do_line_decide(meta, styles, config, line) then
-		return {n=0}
-	end
-	karaskel.trace("default_do_line:2")
-	
-	-- Create a new local var for the line replacement text, set it to line prefix
-	-- This is to make sure the actual line text isn't replaced before the line has been completely processed
-	local newtext = do_line_start(meta, styles, config, line)
-	karaskel.trace("default_do_line:3")
-	
-	-- Loop over the syllables
-	for i = 0, line.karaoke.n-1 do
-		karaskel.trace("default_do_line:4:"..i)
-		-- Append the replacement for each syllable onto the line
-		newtext = newtext .. do_syllable(meta, styles, config, line, line.karaoke[i])
-	end
-	karaskel.trace("default_do_line:5")
-	
-	-- Append line suffix
-	newtext = newtext .. do_line_end(meta, styles, config, line)
-	karaskel.trace("default_do_line:6")
-	
-	-- Now replace the line text
-	line.text = newtext
-	
-	-- And return a table with one entry
-	return {n=1; [1]=line}
-end
-
--- Now assign all the default functions to the names that are actually called
-do_syllable = karaskel.do_syllable
-do_line_decide = karaskel.do_line_decide
-do_line_start = karaskel.do_line_start
-do_line_end = karaskel.do_line_end
-do_line = karaskel.do_line
+include "karaskel-auto4.lua"

automation/include/lfs.lua

@@ -0,0 +1,2 @@
+lfs = require 'aegisub.lfs'
+return lfs

automation/include/meson.build

@@ -0,0 +1,20 @@
+# Copy files to build directory for testing purposes
+lua_files = files(
+    'cleantags.lua',
+    'clipboard.lua',
+    'karaskel-auto4.lua',
+    'karaskel.lua',
+    'lfs.lua',
+    'moonscript.lua',
+    're.lua',
+    'unicode.lua',
+    'unicode-monkeypatch.lua',
+    'utils-auto4.lua',
+    'utils.lua',
+)
+
+foreach f: lua_files
+    configure_file(input: f, output: '@PLAINNAME@', copy: true)
+endforeach
+
+subdir('aegisub')

automation/include/re.lua

@@ -0,0 +1,16 @@
+-- Copyright (c) 2013, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+_G.re = require 'aegisub.re'
+return _G.re

automation/include/readme.txt

@@ -1,18 +0,0 @@
-This directory contains standard include files for Automation.
-By default, this directory is included in the Automation Include Path, which
-means the files here are always available for use with the include() function.
-
-See the Aegisub help and the individual files in this directory for more
-information on their purpose and contents.
-
-
-DO NOT MODIFY THE CONTENTS OF THIS DIRECTORY OR ADD YOUR OWN FILES,
-
-any files added or modified might be deleted or reverted upon upgrade or
-uninstall of Aegisub.
-
-A better solution is to create your own include directory and put it in the
-"Automation Include Path" in the Aegisub config.dat file. The path
-specifications are separated by pipe characters ("|"). Using this method, you
-can also override the default includes with your own, modified versions, by
-placing the path to your own versions earlier in the path list.

automation/include/unicode-monkeypatch.lua

@@ -0,0 +1,133 @@
+local ffi = require("ffi")
+
+if ffi.os ~= "Windows" then
+	return
+end
+
+-- Safety first!
+do
+	if pcall(string.dump, io.open) then
+		error("io.open is already patched!")
+	end
+
+	local function index(t, k)
+		return t[k]
+	end
+
+	if pcall(index, ffi.C, "GetACP") == false then
+		ffi.cdef[[
+		uint32_t __stdcall GetACP();
+		]]
+	end
+end
+
+local CP_UTF8 = 65001
+local MB_ERR_INVALID_CHARS = 8
+
+if ffi.C.GetACP() == CP_UTF8 then
+	-- "Use Unicode UTF-8 for worldwide language support" is ticked.
+	-- Don't bother patching it.
+	return
+end
+
+ffi.cdef[[
+int32_t __stdcall MultiByteToWideChar(
+	uint32_t CodePage,
+	uint32_t dwFlags,
+	const char *lpMultiByteStr,
+	int32_t cbMultiByte,
+	wchar_t *lpWideCharStr,
+	int32_t cchWideChar
+);
+void *_wfreopen(wchar_t *path, wchar_t *mode, void *file);
+int32_t _wrename(wchar_t *oldname, wchar_t *newname);
+int32_t _wremove(wchar_t *path);
+int32_t _wsystem(wchar_t *command);
+char *strerror(int errnum);
+]]
+
+local function widen(ch)
+	local size = ffi.C.MultiByteToWideChar(CP_UTF8, MB_ERR_INVALID_CHARS, ch, #ch, nil, 0)
+	if size == 0 then
+		error(fname .. ": invalid character sequence")
+	end
+
+	local buf = ffi.new("wchar_t[?]", size + 1)
+	if ffi.C.MultiByteToWideChar(CP_UTF8, MB_ERR_INVALID_CHARS, ch, #ch, buf, size) == 0 then
+		error(fname .. ": char conversion error")
+	end
+
+	return buf
+end
+
+local function fileresult(stat, fname)
+	if stat == 0 then
+		return true
+	end
+
+	local errno = ffi.errno()
+	local msg = ffi.C.strerror(errno)
+
+	if fname then
+		return nil, fname .. ": " .. ffi.string(msg), errno
+	end
+	return nil, msg, errno
+end
+
+local function execresult(stat)
+	if stat == -1 then
+		return fileresult(0, nil)
+	end
+
+	if stat == 0 then
+		return true, "exit", stat
+	end
+	return nil, "exit", stat
+end
+
+local orig_open = io.open
+local orig_rename = os.rename
+local orig_remove = os.remove
+local orig_execute = os.execute
+
+function io.open(fname, mode)
+	local wfname = widen(fname)
+	if not mode then
+		mode = "r"
+	end
+	local wmode = widen(mode)
+
+	local file = assert(orig_open("nul", "rb"))
+	if ffi.C._wfreopen(wfname, wmode, file) == nil then
+		local msg, errno = select(2, file:close())
+		return nil, fname .. ": " .. tostring(msg), errno
+	end
+
+	return file
+end
+
+function os.rename(oldname, newname)
+	local woldname = widen(oldname)
+	local wnewname = widen(newname)
+
+	local stat = ffi.C._wrename(woldname, wnewname)
+	return fileresult(stat, oldname)
+end
+
+function os.remove(fname)
+	local wfname = widen(fname)
+
+	local stat = ffi.C._wremove(wfname)
+	return fileresult(stat, fname)
+end
+
+function os.execute(command)
+	local wcommand = command
+	if command then
+		wcommand = widen(command)
+    		local stat = ffi.C._wsystem(wcommand)
+		return execresult(stat)
+	end
+
+	return true
+end

automation/include/unicode.lua

@@ -0,0 +1,16 @@
+-- Copyright (c) 2013, Thomas Goyne <plorkyeran@aegisub.org>
+--
+-- Permission to use, copy, modify, and distribute this software for any
+-- purpose with or without fee is hereby granted, provided that the above
+-- copyright notice and this permission notice appear in all copies.
+--
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+_G.unicode = require 'aegisub.unicode'
+return _G.unicode

automation/include/utils-auto4.lua

@@ -0,0 +1,49 @@
+--[[
+ Copyright (c) 2005-2010, Niels Martin Hansen, Rodrigo Braz Monteiro
+ All rights reserved.
+
+ Redistribution and use in source and binary forms, with or without
+ modification, are permitted provided that the following conditions are met:
+
+   * Redistributions of source code must retain the above copyright notice,
+     this list of conditions and the following disclaimer.
+   * Redistributions in binary form must reproduce the above copyright notice,
+     this list of conditions and the following disclaimer in the documentation
+     and/or other materials provided with the distribution.
+   * Neither the name of the Aegisub Group nor the names of its contributors
+     may be used to endorse or promote products derived from this software
+     without specific prior written permission.
+
+ THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ POSSIBILITY OF SUCH DAMAGE.
+]]
+
+util = require 'aegisub.util'
+
+table.copy = util.copy
+copy_line = util.copy
+table.copy_deep = util.deep_copy
+ass_color = util.ass_color
+ass_alpha = util.ass_alpha
+ass_style_color = util.ass_style_color
+extract_color = util.extract_color
+alpha_from_style = util.alpha_from_style
+color_from_style = util.color_from_style
+HSV_to_RGB = util.HSV_to_RGB
+HSL_to_RGB = util.HSL_to_RGB
+clamp = util.clamp
+interpolate = util.interpolate
+interpolate_color = util.interpolate_color
+interpolate_alpha = util.interpolate_alpha
+string.headtail = util.headtail
+string.trim = util.trim
+string.words = util.words

automation/include/utils.lua

@@ -1,5 +1,5 @@
---[[
- Copyright (c) 2005, Niels Martin Hansen, Rodrigo Braz Monteiro
+--[[
+ Copyright (c) 2005-2006, Niels Martin Hansen, Rodrigo Braz Monteiro
  All rights reserved.
 
  Redistribution and use in source and binary forms, with or without
@@ -25,155 +25,6 @@
  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  POSSIBILITY OF SUCH DAMAGE.
- ]]
+]]
 
--- Variables with tables only hold references to the actual tables
--- Since a line is a table, a line needs to be copied, otherwise things break in bad ways
-function copy_line(input)
-	local output = {}
-	output.kind = input.kind
-	if input.kind == "scomment" then
-		output.text = input.text
-	elseif input.kind == "comment" or input.kind == "dialogue" then
-		output.layer = input.layer
-		output.start_time = input.start_time
-		output.end_time = input.end_time
-		output.style = input.style
-		output.name = input.name
-		output.margin_l = input.margin_l
-		output.margin_r = input.margin_r
-		output.margin_v = input.margin_v
-		output.effect = input.effect
-		output.text = input.text
-		output.text_stripped = input.text_stripped		
-		output.karaoke = input.karaoke -- Don't bother copying the karaoke table, it shouldn't be changed anyway
-	end
-	return output
-end
-
-
--- Generates ASS hexadecimal string from R,G,B integer components, in &HBBGGRR& format
-function ass_color(r,g,b)
-	return string.format("&H%02X%02X%02X&",b,g,r)
-end
-
-
--- Converts HSV (Hue, Saturation, Value)  to RGB
-function HSV_to_RGB(H,S,V)
-	local r,g,b;
-
-	-- Saturation is zero, make grey
-	if S == 0 then
-		r = V*255
-		if r < 0 then
-			r = 0
-		end
-		if r > 255 then
-			r = 255
-		end
-		g = r
-		b = r
-		
-	-- Else, calculate color
-	else
-		-- Calculate subvalues
-		local Hi = math.floor(H/60)
-		local f = H/60.0 - Hi
-		local p = V*(1-S)
-		local q = V*(1-f*S)
-		local t = V*(1-(1-f)*S)
-		
-		-- Do math based on hue index
-		if Hi == 0 then
-			r = V*255.0
-			g = t*255.0
-			b = p*255.0
-		elseif Hi == 1 then
-			r = q*255.0
-			g = V*255.0
-			b = p*255.0
-		elseif Hi == 2 then
-			r = p*255.0
-			g = V*255.0
-			b = t*255.0
-		elseif Hi == 3 then
-			r = p*255.0
-			g = q*255.0
-			b = V*255.0
-		elseif Hi == 4 then
-			r = t*255.0
-			g = p*255.0
-			b = V*255.0
-		elseif Hi == 5 then
-			r = V*255.0
-			g = p*255.0
-			b = q*255.0
-		end
-	end
-	
-	r = math.floor(r)
-	g = math.floor(g)
-	b = math.floor(b)
-	return r,g,b
-end
-
-
--- Removes spaces at the start and end of string
-function trim (s)
-	return (string.gsub(s, "^%s*(.-)%s*$", "%1"))
-end
-
-
--- UTF-8 string handling functions
--- Contributed by roxfan
-
--- Get the offset for the next character in the string, given the current offset
-function next_utf_char(str, off)
-	local leadb = string.byte(str, off)
-	if leadb < 128 then
-		return off+1
-	elseif leadb < 224 then
-		return off+2
-	elseif leadb < 240 then
-		return off+3
-	elseif leadb < 248 then
-		return off+4
-	end
-	aegisub.output_debug(string.format("bad utf-8 in %q at %d",str,off))
-	return -1
-end
-
--- Get the number of characters in the UTF-8 string (not the number of bytes)
-function utf_len(str)
-	local i = 1
-	local len = 0
-	while i<=string.len(str) do
-		i = next_utf_char(str, i)
-		len = len + 1
-	end
-	-- aegisub.output_debug(string.format("utf_len(%q)=%d",str,len))
-	return len
-end
-
-
--- Get the "head" and "tail" of a string, treating it as a sequence of words separated by one or more space-characters
-function string.headtail(s)
-	local a, b, head, tail = string.find(s, "(.-)%s+(.*)")
-	if a then
-		return head, tail
-	else
-		return s, ""
-	end
-end
-
-
--- Exclusive or of two boolean values
-function xor(a, b)
-	if a and not b then
-		return a
-	elseif b and not a then
-		return b
-	else
-		return false
-	end
-end
+include "utils-auto4.lua"

automation/meson.build

@@ -0,0 +1,56 @@
+subdir('include')
+subdir('vapoursynth')
+
+automation_dir = dataroot / 'automation'
+
+install_data(
+    'autoload/clean-k-tags.lua',
+    'autoload/cleantags-autoload.lua',
+    'autoload/driftfix.lua',
+    'autoload/duetto-meika.lua',
+    'autoload/karaoke-adjust-1sec.lua',
+    'autoload/karaoke-auto-leadin.lua',
+    'autoload/karaoke-split.lua',
+    'autoload/kara-templater.lua',
+    'autoload/kf.lua',
+    'autoload/macro-1-edgeblur.lua',
+    'autoload/macro-2-mkfullwitdh.lua',
+    'autoload/select-overlaps.moon',
+    'autoload/strip-tags.lua',
+    'autoload/unkf.lua',
+    'autoload/wohe.lua',
+    install_dir: automation_dir / 'autoload')
+
+install_data(
+    'demos/future-windy-blur.lua',
+    'demos/raytracer.lua',
+    'demos/raytracer-test1.ass',
+    install_dir: automation_dir / 'demos')
+
+install_data(
+    'include/cleantags.lua',
+    'include/clipboard.lua',
+    'include/karaskel-auto4.lua',
+    'include/karaskel.lua',
+    'include/lfs.lua',
+    'include/moonscript.lua',
+    'include/re.lua',
+    'include/unicode.lua',
+    'include/unicode-monkeypatch.lua',
+    'include/utils-auto4.lua',
+    'include/utils.lua',
+    install_dir: automation_dir / 'include')
+
+install_data(
+    'include/aegisub/argcheck.moon',
+    'include/aegisub/clipboard.lua',
+    'include/aegisub/ffi.moon',
+    'include/aegisub/lfs.moon',
+    'include/aegisub/re.moon',
+    'include/aegisub/unicode.moon',
+    'include/aegisub/util.moon',
+    install_dir: automation_dir / 'include' / 'aegisub')
+
+install_data(
+    'vapoursynth/aegisub_vs.py',
+    install_dir: automation_dir / 'vapoursynth')

automation/tests/aegisub.cpp

@@ -0,0 +1,96 @@
+// Copyright (c) 2014, Thomas Goyne <plorkyeran@aegisub.org>
+//
+// Permission to use, copy, modify, and distribute this software for any
+// purpose with or without fee is hereby granted, provided that the above
+// copyright notice and this permission notice appear in all copies.
+//
+// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+// ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+// ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+// OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+//
+// Aegisub Project http://www.aegisub.org/
+
+#include <libaegisub/lua/modules.h>
+#include <libaegisub/lua/script_reader.h>
+#include <libaegisub/lua/utils.h>
+
+#include <libaegisub/dispatch.h>
+#include <libaegisub/log.h>
+
+#include <boost/locale/generator.hpp>
+#include <cstdio>
+#include <cstdlib>
+
+using namespace agi::lua;
+
+namespace {
+void check(lua_State *L, int status) {
+	if (status && !lua_isnil(L, -1)) {
+		fprintf(stderr, "%s\n", get_string_or_default(L, -1).c_str());
+		exit(status);
+	}
+}
+
+int close_and_exit(lua_State *L) {
+	int status = lua_tointeger(L, 1);
+	lua_close(L);
+	exit(status);
+}
+}
+
+int main(int argc, char **argv) {
+	if (argc < 2) {
+		fprintf(stderr, "usage: aegisub-lua <script> [args]\n");
+		return 1;
+	}
+
+	std::locale::global(boost::locale::generator().generate(""));
+	agi::dispatch::Init([](agi::dispatch::Thunk f) { });
+	agi::log::log = new agi::log::LogSink;
+
+	// Init lua state
+	lua_State *L = lua_open();
+	if (!L) {
+		fprintf(stderr, "Failed to create Lua state\n");
+		return 1;
+	}
+
+	preload_modules(L);
+	Install(L, {"include"});
+
+	// Patch os.exit to close the lua state first since busted calls it when
+	// it's done
+	lua_getglobal(L, "os");
+	lua_pushcfunction(L, close_and_exit);
+	lua_setfield(L, -2, "exit");
+	lua_pop(L, 1);
+
+	// Build arg table for scripts
+	lua_createtable(L, argc - 1, 0);
+	for (int i = 1; i < argc; ++i) {
+		lua_pushstring(L, argv[i]);
+		lua_rawseti(L, -2, i - 1);
+	}
+	lua_setglobal(L, "arg");
+
+	// Stack needs to be error handler -> function -> args
+	lua_pushcfunction(L, add_stack_trace);
+
+	try {
+		check(L, !LoadFile(L, argv[1]));
+	} catch (agi::Exception const& e) {
+		fprintf(stderr, "%s\n", e.GetMessage().c_str());
+	}
+
+	for (int i = 2; i < argc; ++i)
+		lua_pushstring(L, argv[i]);
+
+	int base = lua_gettop(L) - argc + 1;
+	check(L, lua_pcall(L, argc - 2, LUA_MULTRET, base));
+	lua_close(L);
+}
+

automation/tests/automation/appended-lines.lua

@@ -0,0 +1,154 @@
+-- Automation 4 test file
+-- Test that appending lines to a file places the lines in the appropriate
+-- sections of the file, creating the sections if needed
+
+script_name = "TEST append lines"
+script_description = "Test that appended lines go to the right place"
+script_author = "Thomas Goyne"
+script_version = "1"
+
+function make_scriptinfo(key, value)
+    return {
+        class = "info",
+        section = "[Script Info]",
+        key = key,
+        value = value
+    }
+end
+
+function make_style(name)
+    return {
+        class = "style",
+        section = "[V4+ Styles]",
+        name = name,
+        fontname = "Arial",
+        fontsize = 20,
+        color1 = "&H000000&",
+        color2 = "&H000000&",
+        color3 = "&H000000&",
+        color4 = "&H000000&",
+        bold = true,
+        italic = false,
+        underline = false,
+        strikeout = false,
+        scale_x = 100,
+        scale_y = 100,
+        spacing = 0,
+        angle = 0,
+        borderstyle = 0,
+        outline = 0,
+        shadow = 0,
+        align = 5,
+        margin_l = 0,
+        margin_r = 0,
+        margin_t = 0,
+        margin_b = 0,
+        encoding = 0
+    }
+end
+function make_dialogue(text)
+    return {
+        class = "dialogue",
+        section = "[Events]",
+        comment = false,
+        layer = 0,
+        start_time = 0,
+        end_time = 2000,
+        style = "Default",
+        actor = "",
+        margin_l = 0,
+        margin_r = 0,
+        margin_t = 0,
+        margin_b = 0,
+        effect = "",
+        text = text
+    }
+end
+
+function make_header(name)
+    return {
+        class = "head",
+        section = name
+    }
+end
+
+function make_format(fstr, section)
+    return {
+        class = "format",
+        section = section,
+        text = fstr
+    }
+end
+
+function check_field(i, actual, expected, name)
+    if actual ~= expected then
+        error(i .. ": Expected '" .. expected .. "', got '" .. actual .. "' for " .. name)
+    end
+end
+
+function check_line(i, line, class, section)
+    check_field(i, line.class, class, "class")
+    check_field(i, line.section, section, "section")
+end
+
+function test(subs)
+    subs.deleterange(1, #subs)
+
+    -- verify that everything works with the items added in order
+    subs[0] = make_header("[Script Info]")
+    subs[0] = make_scriptinfo("Title", "Default Aegisub file")
+    subs[0] = make_scriptinfo("ScriptType", "v4.00+")
+    subs[0] = make_scriptinfo("WrapStyle", "0");
+    subs[0] = make_scriptinfo("ScaledBorderAndShadow", "yes")
+    subs[0] = make_scriptinfo("Collisions", "Normal")
+
+    subs[0] = make_header("[V4+ Styles]")
+    subs[0] = make_format("Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, OutlineColour, BackColour, Bold, Italic, Underline, StrikeOut, ScaleX, ScaleY, Spacing, Angle, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, Encoding", "[V4+ Styles]")
+    subs[0] = make_style("Default")
+
+    subs[0] = make_header("[Events]")
+    subs[0] = make_format("Layer, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text", "[Events]")
+    subs[0] = make_dialogue("")
+
+    check_line(1, subs[1], "head", "[Script Info]")
+    check_line(2, subs[2], "info", "[Script Info]")
+    check_line(3, subs[3], "info", "[Script Info]")
+    check_line(4, subs[4], "info", "[Script Info]")
+    check_line(5, subs[5], "info", "[Script Info]")
+    check_line(6, subs[6], "info", "[Script Info]")
+
+    check_line(7, subs[7], "head", "[V4+ Styles]")
+    check_line(8, subs[8], "format", "[V4+ Styles]")
+    check_line(9, subs[9], "style", "[V4+ Styles]")
+
+    check_line(10, subs[10], "head", "[Events]")
+    check_line(11, subs[11], "format", "[Events]")
+    check_line(12, subs[12], "dialogue", "[Events]")
+
+    subs.deleterange(1, #subs)
+
+    -- test that groups appear in the order they're first used and lines are
+    -- put in the right group
+    subs[0] = make_scriptinfo("Title", "Script Title")
+    subs[0] = make_style("Default")
+    subs[0] = make_dialogue("Foo")
+    subs[0] = make_style("Default 2")
+    subs[0] = make_scriptinfo("ScriptType", "v4.00+")
+    subs[0] = make_dialogue("Bar")
+
+    check_line(1, subs[1], "head", "[Script Info]")
+    check_line(2, subs[2], "info", "[Script Info]")
+    check_line(3, subs[3], "info", "[Script Info]")
+
+    check_line(4, subs[4], "head", "[V4+ Styles]")
+    check_line(5, subs[5], "style", "[V4+ Styles]")
+    check_line(6, subs[6], "style", "[V4+ Styles]")
+
+    check_line(7, subs[7], "head", "[Events]")
+    check_line(8, subs[8], "dialogue", "[Events]")
+    check_line(9, subs[9], "dialogue", "[Events]")
+
+    aegisub.set_undo_point("append test")
+end
+
+aegisub.register_macro(script_name, script_description, test)

automation/tests/automation/basic-export-test.lua

@@ -0,0 +1,82 @@
+-- Automation 4 test file
+-- Create a Filter feature that does some kara stuff
+
+script_name = "Automation 4 test 6"
+script_description = "Test basic export filters"
+script_author = "Niels Martin Hansen"
+script_version = "1"
+
+include("utils.lua")
+
+
+function test6_2(subtitles, config)
+	--[[for i = 1, #subtitles do
+		local l = subtitles[i]
+		if l.class == "dialogue" then
+			local nl = table.copy(l)
+			nl.text = "Copied!"
+			subtitles.insert(i, nl)
+			break
+		end
+	end]]
+end
+
+
+function test6(subtitles, config)
+	aegisub.progress.task("Collecting style data")
+	local styles = {}
+	for i = 1, #subtitles do
+		aegisub.debug.out("finding styles, line " .. i)
+		local l = subtitles[i]
+		if l.class == "dialogue" then
+			break
+		end
+		if l.class == "style" then
+			aegisub.debug.out("    found style: " .. l.name)
+			styles[l.name] = l
+		end
+		aegisub.progress.set(100 * i / #subtitles)
+	end
+	
+	local res = {}
+	
+	local i = 1
+	while i <= #subtitles do
+		aegisub.debug.out("producing effect, line " .. i)
+		local l = subtitles[i]
+		if l.class == "dialogue" then
+			aegisub.debug.out("    found dialogue: " .. l.text)
+			local res = {}
+			do_line(styles, l, config, res)
+			aegisub.debug.out("    lines returned by do_line: " .. #res)
+			for j,nl in ipairs(res) do
+				subtitles.insert(i+j, nl)
+			end
+			aegisub.debug.out("    done inserting generated lines")
+			subtitles.delete(i)
+			i = i + #res
+		else
+			aegisub.debug.out("    not dialogue")
+			i = i + 1
+		end
+		aegisub.progress.task(string.format("Producing effect (%d/%d)", i, #subtitles))
+		aegisub.progress.set(100 * i / #subtitles)
+	end
+end
+
+function do_line(styles, line, config, res)
+	local k = aegisub.parse_karaoke_data(line)
+	aegisub.debug.out("        syllables generated from line: " .. #k)
+	local left = 0
+	for j = 1, #k do
+		aegisub.debug.out("        syllable " .. j .. " is: " .. k[j].text)
+		local nl = table.copy(line)
+		nl.text = string.format("{\\t(%d,%d,\\fscx50)\\pos(%d,20)}%s", k[j].start_time, k[j].end_time, left, k[j].text_stripped)
+		left = left + (aegisub.text_extents(styles[nl.style], k[j].text_stripped))
+		table.insert(res, nl)
+	end
+end
+
+
+aegisub.register_filter("Stupid karaoke", "Makes some more karaoke-like stuff", 2000, test6, nil)
+aegisub.register_filter("Lame test", "Simple test of filters, just inserting a new line", 2000, test6_2)

automation/tests/automation/basic-tests.lua

@@ -0,0 +1,50 @@
+-- Automation 4 test file
+-- Create a Macro feature, that displays some text
+
+script_name = "Automation 4 test 2"
+script_description = "Some additional non-hello-world tests"
+script_author = "Niels Martin Hansen"
+script_version = "2"
+
+
+function macro_test2(subtitles, selected_lines, active_line)
+	aegisub.debug.out(subtitles.n .. " and " .. #subtitles .. " should be the same value")
+	aegisub.debug.out(subtitles[selected_lines[1]].raw)
+end
+
+function dumper(subtitles, selected_lines, active_line)
+	for i = 1, #subtitles do
+		local l = subtitles[i]
+		local s = l.raw .. "\n"
+		s = s .. l.class .. "\n"
+		if l.class == "comment" then
+			s = s .. "text: " .. l.text .. "\n"
+		elseif l.class == "info" then
+			s = s .. string.format("key: %s\nvalue:%s\n", l.key, l.value)
+		elseif l.class == "format" then
+			-- skip
+		elseif l.class == "style" then
+			s = s .. string.format("name: %s\nfont: %s %d\ncolors: %s %s %s %s\n", l.name, l.fontname, l.fontsize, l.color1, l.color2, l.color3, l.color4)
+		elseif l.class == "dialogue" then
+			s = s .. string.format("layer: %d\nstyle: %s\ntext: %s\n", l.layer, l.style, l.text)
+		end
+		aegisub.debug.out(s)
+	end
+end
+
+function inserttest(subtitles, selected_lines, active_line)
+	local lid = selected_lines[1]
+	subtitles[-lid] = subtitles[lid]
+	subtitles[0] = subtitles[lid]
+	local l = subtitles[lid]
+	l.text = "A4 was here!"
+	subtitles[lid] = l
+	aegisub.set_undo_point("Insert Stuff")
+end
+
+
+aegisub.register_macro("File line count", "Count the number of lines in the ASS file", macro_test2, nil)
+
+aegisub.register_macro("Dump", "Dumps info on every line in the file", dumper, nil)
+
+aegisub.register_macro("Insert stuff", "Inserts some lines near the active line", inserttest, nil)

automation/tests/automation/config-dialog-test.lua

@@ -0,0 +1,114 @@
+-- Automation 4 test file
+-- Create a Filter feature that does some kara stuff
+
+script_name = "Automation 4 test 7"
+script_description = "Test config dialogs"
+script_author = "Niels Martin Hansen"
+script_version = "1"
+
+include("utils.lua")
+
+function test7(subtitles, selected_lines, active_line)
+	local a, b = aegisub.dialog.display({{class="label", label="Test..."}}, {})
+	report_dialog_result(a, b)
+	aegisub.progress.set(50)
+	a, b = aegisub.dialog.display(
+		{
+			{class="edit", name="foo", text="", x=0, y=0},
+			{class="intedit", name="e1", value=20, x=0, y=1},
+			{class="intedit", name="e2", value=30, min=10, max=50, x=1, y=1},
+			{class="floatedit", name="e3", value=19.95, x=0, y=2},
+			{class="floatedit", name="e4", value=123.63423, min=-4.3, max=2091, x=1, y=2},
+			{class="floatedit", name="e5", value=-4, step=0.21, x=2, y=2},
+			{class="floatedit", name="e6", value=22, min=0, max=100, step=1.4, x=3, y=2},
+			{class="textbox", name="e7", text="hmm wuzzis say?", x=0, y=3, width=4},
+			{class="dropdown", name="l1", items={"abc", "def", "ghi"}, value="def", x=0, y=4},
+			{class="dropdown", name="l2", items={"abc", "def", "ghi"}, value="doesnotexist", x=1, y=4},
+			{class="checkbox", name="b1", value=true, label='checked', x=0, y=5},
+			{class="checkbox", name="b2", value=false, label='cleared', x=1, y=5},
+			{class="color", name="c1", value="#00ff11", x=0, y=6},
+			{class="color", name="c2", value="&H0011ff00", x=1, y=6},
+			{class="coloralpha", name="c3", value="#aabbccdd", x=0, y=7},
+			{class="coloralpha", name="c4", value="&Hddccbbaa&", x=1, y=7},
+			{class="alpha", name="c5", value="#12", x=0, y=8},
+			{class="alpha", name="c6", value="&H12&", x=1, y=8}
+		},
+		{"foo", "bar"})
+	report_dialog_result(a, b)
+end
+
+function report_dialog_result(button, controls)
+	aegisub.debug.out("Dialog closed: ")
+	if button == false then
+		aegisub.debug.out("cancelled\n")
+	elseif button == true then
+		aegisub.debug.out("clicked Ok\n")
+	else
+		aegisub.debug.out("clicked '" .. button .. "'\n")
+	end
+	for key, val in pairs(controls) do
+		local printable = (val == true and "true") or (val == false and "false") or tostring(val)
+		aegisub.debug.out("%s: %s\n", key, printable)
+	end
+	aegisub.debug.out(" - - - - -\n")
+end
+
+
+function exporter(subs, config)
+	for i = 1, #subs do
+		local l = subs[i]
+		if l.class == "dialogue" and not l.comment then
+			if config.style == "" or l.style == config.style then
+				l.text = config.text .. l.text
+				subs[i] = l
+			end
+		end
+	end
+end
+
+function export_config_dialog(subs, store)
+	local styles = {""}
+	for i = 1, #subs do
+		local l = subs[i]
+		if l.class == "style" then
+			table.insert(styles, l.name)
+		end
+	end
+	
+	return {
+		{
+			class = "label",
+			label = "This will insert a given text in\n" ..
+			        "front of all dialogue lines of\n" ..
+					"the given style, or every line\n" ..
+					"if no specific style is selected.",
+			x = 0, y = 0, width = 2, height = 1
+		},
+		{
+			class = "label",
+			label = "Text to insert:",
+			x = 0, y = 1, width = 1, height = 1
+		},
+		{
+			class = "edit",
+			name = "text",
+			x = 1, y = 1, width = 1, height = 1
+		},
+		{
+			class = "label",
+			label = "Style to apply on:",
+			x = 0, y = 2, width = 1, height = 1
+		},
+		{
+			class = "dropdown",
+			name = "style",
+			value = "",
+			items = styles,
+			x = 1, y = 2, width = 1, height = 1
+		}
+	}
+end
+
+
+aegisub.register_macro("Config Dialog 1", "Show a stupid config dialog", test7, nil)
+aegisub.register_filter("Export Config", "Test export filter config dialog stuff", 500, exporter, export_config_dialog)

automation/tests/automation/furi-test.ass

@@ -0,0 +1,31 @@
+[Script Info]
+; Script generated by Aegisub v2.00 PRE-RELEASE (SVN r1170, jfs)
+; http://www.aegisub.net
+Title: Default Aegisub file
+ScriptType: v4.00+
+WrapStyle: 0
+PlayResX: 640
+PlayResY: 480
+Video Aspect Ratio: 0
+Video Zoom: 8
+Video Position: 840
+Automation Scripts: ~test-furi.lua
+Video File: ?dummy:23.976000:3000:640:480:226:221:236:c
+Audio File: E:\Anime Projekter\Zegapain\op\op.wav
+
+[V4+ Styles]
+Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, OutlineColour, BackColour, Bold, Italic, Underline, StrikeOut, ScaleX, ScaleY, Spacing, Angle, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, Encoding
+Style: Default-furigana,Arial,10,&H00FFFFFF,&H0000FFFF,&H00000000,&H00000000,0,0,0,0,100,100,0,0,1,1,1,2,10,10,10,0
+Style: Default,Arial,20,&H00FFFFFF,&H0000FFFF,&H00000000,&H00000000,0,0,0,0,100,100,0,0,1,2,2,2,10,10,10,0
+
+[Events]
+Format: Layer, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text
+Dialogue: 0,0:00:00.00,0:00:05.00,Default,,0000,0000,0000,,{\k3}振|ふ{\k3}り{\k10}仮|が{\k5}名|な
+Dialogue: 0,0:00:05.00,0:00:10.00,Default,,0000,0000,0000,,{\k4}変身|か{\k12}わ{\k7}っ{\k7}た
+Dialogue: 0,0:00:10.00,0:00:15.00,Default,,0000,0000,0000,,{\k4}お{\k4}茶|ちゃ
+Dialogue: 0,0:00:15.00,0:00:20.00,Default,,0000,0000,0000,,{\k15}二|ふ{\k15}#|た{\k10}人|り{\k15}だ{\k57}け{\k5}の{\k6}地|は{\k5}球|し{\k8}で
+Dialogue: 0,0:00:20.00,0:00:25.00,Default,,0000,0000,0000,,{\k5}明日|あ{\k10}#|し{\k5}#|た{\k10}ま{\k7}だ{\k10}会{\k4}う{\k6}時{\k14}#
+Dialogue: 0,0:00:25.00,0:00:30.00,Default,,0000,0000,0000,,{\k21}遠｜と{\k6}#|お{\k27}い{\k27}記｜き{\k21}憶｜お{\k6}#|く{\k27}　{\k14}蘇｜<よ{\k5}#|み{\k4}#|が{\k4}#|え{\k26}る{\k20}悲｜か{\k6}#|な{\k26}し{\k26}み{\k26}も{\k16}温｜<あ{\k5}#|た{\k5}#|た{\k26}め{\k26}て{\k26}行｜ゆ{\k26}け{\k26}る{\k26}の{\k26}に
+Dialogue: 0,0:00:30.00,0:00:35.00,Default,,0000,0000,0000,,{\k29}筋肉|きんにく{\k15}の{\k58}長軸方向|ちょうじくほうこう{\k15}に{\k15}伸|の{\k29}びる{\k29}非常|ひじょう{\k15}に{\k29}大型|おおがた{\k14}の{\k28}細胞{\k28}で、{\k28}1個|いっこ{\k14}の{\k28}細胞|さいぼう{\k14}を{\k42}筋線維|きんせんい{\k28}とも{\k14}呼|よ{\k28}ぶ。
+Dialogue: 0,0:00:35.00,0:00:40.00,Default,,0000,0000,0000,,{\k80}中|<ちゅ{\k60}#|う{\k60}国|ご{\k60}#|く{\k60}魂|<た{\k60}#|ま{\k60}#|し{\k60}#|い
+Dialogue: 0,0:00:40.00,0:00:45.00,Default,,0000,0000,0000,,wee

automation/tests/automation/gen-absurd-t-line.lua

@@ -0,0 +1,34 @@
+script_name = "Absurdness"
+script_description = "Benchmark renderers by testing how they react to an absurd number of \\t tags in one line, and an absurd amount of lines each with a single \\t."
+script_author = "jfs"
+
+absurd = 1000
+
+ttext = "\\1a&H00&\\2a&H00&\\3a&H00&\\4a&H00&"
+
+function gen_one_absurd(subs, sel)
+	local l = subs[sel[1]]
+	l.text = ""
+	l.start_time = 0
+	l.end_time = (absurd+1)*100
+	for i = 1, absurd do
+		l.text = l.text .. string.format("{\\t(%d,%d,%s)}", i*100, (i+1)*100, ttext)
+	end
+	l.text = l.text .. "a"
+	subs[-sel[1]] = l
+	aegisub.set_undo_point("absurdness 1")
+end
+
+function gen_absurd_many(subs, sel)
+	local l = subs[sel[1]]
+	for i = 1, absurd do
+		l.start_time = i*100
+		l.end_time = (i+1)*100
+		l.text = string.format("{\\t(0,100,%s)}a", ttext)
+		subs[-sel[1]] = l
+	end
+	aegisub.set_undo_point("absurdness 2")
+end
+
+aegisub.register_macro("Generate absurd line", "Absurd", gen_one_absurd)
+aegisub.register_macro("Generate absurdly many lines", "Absurd", gen_absurd_many)

automation/tests/automation/hello-world.lua

@@ -0,0 +1,15 @@
+-- Automation 4 test file
+-- Create a Macro feature, that displays some text
+
+script_name = "Automation 4 test 1"
+script_description = "Hello World in Automation 4/Lua"
+script_author = "Niels Martin Hansen"
+script_version = "1"
+
+
+function macro_test1(subtitles, selected_lines, active_line)
+	--aegisub.debug.out(3, "Hello World from %s", "Automation 4/Lua")
+	aegisub.debug.out("Hello Automation 4 World!")
+end
+
+aegisub.register_macro("Hello", "Shows a message", macro_test1)

automation/tests/automation/kara-templater-retime.ass

@@ -0,0 +1,29 @@
+[Script Info]
+Title: Default Aegisub file
+ScriptType: v4.00+
+WrapStyle: 0
+PlayResX: 640
+PlayResY: 480
+Video Aspect Ratio: 0
+Video Zoom: 8
+Video Position: 500
+Last Style Storage: Default
+Video File: ?dummy:50.000000:1000:640:480:226:221:236:c
+
+[V4+ Styles]
+Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, OutlineColour, BackColour, Bold, Italic, Underline, StrikeOut, ScaleX, ScaleY, Spacing, Angle, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, Encoding
+Style: Default,Arial,50,&H00FFFFFF,&H0000FFFF,&H00000000,&H00000000,-1,0,0,0,100,100,0,0,1,2,0,5,10,10,10,0
+
+[Events]
+Format: Layer, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text
+Comment: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,template noblank,!retime("abs",1000,2000)!{\pos($x,$y)\1c&H0000FF&}
+Comment: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,template noblank,!retime("preline",-100)!{\pos($x,$y)\1c&H000000&}
+Comment: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,template noblank,!retime("start2syl")!{\pos($x,$y)\1c&HFF0000&}
+Comment: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,template noblank,!retime("presyl",-200,0)!{\pos($x,$y)\1a&HFF&\3c&H0000FF&}
+Comment: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,template noblank,!retime("syl")!{\pos($x,$y)\1c&H00FF00&}
+Comment: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,template noblank,!retime("postsyl",0,200)!{\pos($x,$y)\1a&HFF&\3c&H00FF00&}
+Comment: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,template noblank,!retime("syl2end",200,0)!{\pos($x,$y)\1c&HFF00FF&}
+Comment: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,template noblank,!retime("postline",0,100)!{\pos($x,$y)\1c&H00FFFF&}
+Comment: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,template noblank,!retime("sylpct",50,100)!{\pos($center,$middle)\an5\1a&HFF&\3c&HFFFFFF&\fscy300\t(\3a&HFF&)}
+Dialogue: 0,0:00:10.00,0:00:11.00,Default,,0000,0000,0000,,{\k30}ha{\k20}hi{\k50}ho
+Dialogue: 0,0:00:11.00,0:00:16.00,Default,,0000,0000,0000,,

automation/tests/automation/karaoke-parse-test.lua

@@ -0,0 +1,33 @@
+-- Automation 4 test file
+-- Create a Macro feature, that displays some text
+
+script_name = "Automation 4 test 3"
+script_description = "Test parse_karaoke_data"
+script_author = "Niels Martin Hansen"
+script_version = "1"
+
+
+function copy_table(tab)
+	local res = {}
+	for key, val in pairs(tab) do
+		res[key] = val
+	end
+	return res
+end
+
+function karatest(subtitles, selected_lines, active_line)
+	for i = #selected_lines, 1, -1 do
+		local ri = selected_lines[i]
+		local l = subtitles[ri]
+		local k = aegisub.parse_karaoke_data(l)
+		for j = 1, #k do
+			local nl = copy_table(l)
+			l.text = string.format("{\\t(%d,%d,\\fscx50)}%s", k[j].start_time, k[j].end_time, k[j].text_stripped)
+			subtitles.insert(ri+j, l)
+		end
+	end
+	aegisub.set_undo_point("karaoke-like stuff")
+end
+
+
+aegisub.register_macro("Karaoke fun", "Makes karaoke-like stuff", karatest, nil)

automation/tests/automation/progress-reporting-test.lua

@@ -0,0 +1,40 @@
+-- Automation 4 test file
+-- Create a Macro feature, that displays some text
+
+script_name = "Automation 4 test 4"
+script_description = "Test progress reporting"
+script_author = "Niels Martin Hansen"
+script_version = "1"
+
+
+function wait()
+	local s = ""
+	for i = 0, 500 do
+		s = s .. i
+	end
+	return s
+end
+
+function progression(subtitles, selected_lines, active_line)
+	while not aegisub.progress.is_cancelled() do
+		aegisub.progress.task("Counting up...")
+		for i = 0, 100, 0.2 do
+			aegisub.progress.set(i)
+			if aegisub.progress.is_cancelled() then
+				break
+			end
+			wait()
+		end
+		if aegisub.progress.is_cancelled() then
+			break
+		end
+		aegisub.progress.task("Counting down...")
+		for i = 0, 100 do
+			aegisub.progress.set(100-i)
+			wait()
+		end
+	end
+end
+
+
+aegisub.register_macro("Progress fun", "Does absolutely nothing", progression, nil)

automation/tests/automation/selection-set-test.lua

@@ -0,0 +1,32 @@
+-- Automation 4 test file
+-- Create a Macro feature, that displays some text
+
+script_name = "Automation 4 set-selection test"
+script_description = "Test setting the grid selection"
+script_author = "Niels Martin Hansen"
+script_version = "1"
+
+
+function selecttest(subtitles, selected_lines, active_line)
+	-- get line-id of first selected line
+	local lid = selected_lines[1]
+	-- insert a copy of line 'lid' before itself
+	subtitles[-lid] = subtitles[lid]
+	-- append a copy of the copy of the copied line
+	subtitles[0] = subtitles[lid]
+	-- grab the copied line
+	local l = subtitles[lid]
+	-- modify it
+	l.text = "A4 was here!"
+	-- and store it back
+	subtitles[lid] = l
+	-- select some new lines
+	selected_lines = { lid-1, lid, lid+1 }
+	-- and set undo point (never forget!)
+	aegisub.set_undo_point("Insert+select Stuff")
+	-- return the new selection
+	return selected_lines
+end
+
+
+aegisub.register_macro("Insert+select stuff", "Inserts some lines near the active line and selects the new lines", selecttest, nil)

automation/tests/automation/test-filter-name-clash.lua

@@ -0,0 +1,19 @@
+-- Automation 4 test file
+-- Create a Filter feature that does some kara stuff
+
+script_name = "Automation 4 test 10"
+script_description = "Test reaction to export filter name clashes"
+script_author = "Niels Martin Hansen"
+script_version = "1"
+
+include("utils.lua")
+
+function function1(subtitles, config)
+	aegisub.debug.out("function 1")
+end
+function function2(subtitles, config)
+	aegisub.debug.out("function 2")
+end
+
+aegisub.register_filter("Export breaker", "Export filter with nameclash (1)", 500, function1)
+aegisub.register_filter("Export breaker", "Export filter with nameclash (2)", 500, function2)

automation/tests/automation/test-furi.lua

@@ -0,0 +1,75 @@
+script_name = "Test furigana"
+script_description = "Tests the Auto4/Lua karaskel furigana and multi-highlight code"
+script_author = "jfs"
+
+include "karaskel.lua"
+
+function dump_furi(subs)
+	aegisub.progress.task("Collecting header data")
+	local meta, styles = karaskel.collect_head(subs, true) -- make sure to create furigana styles
+	
+	aegisub.progress.task("Processing lines")
+	for i = 1, #subs do
+		local l = subs[i]
+		if l.class == "dialogue" then
+			aegisub.progress.task(l.text)
+			karaskel.preproc_line_text(meta, styles, l)
+			
+			-- Dump the thing
+			aegisub.debug.out(4, "Line: %s\nStripped: %s\nDuration: %d\n", l.text, l.text_stripped, l.duration)
+			aegisub.debug.out(4, "Karaoke syllables: (%d)\n", l.kara.n)
+			for s = 0, l.kara.n do
+				local syl = l.kara[s]
+				aegisub.debug.out(4, "\tSyllable: text='%s' stripped='%s' duration=%d, start/end_time=%d/%d, inline_fx='%s', highlights=%d\n", syl.text, syl.text_stripped, syl.duration, syl.start_time, syl.end_time, syl.inline_fx, syl.highlights.n)
+				aegisub.debug.out(4, "\t\tHighlights:")
+				for h = 1, syl.highlights.n do
+					local hl = syl.highlights[h]
+					aegisub.debug.out(4, " %d-%d=%d", hl.start_time, hl.end_time, hl.duration)
+				end
+				aegisub.debug.out(4, "\n")
+			end
+			aegisub.debug.out(4, "Furigana parts: (%d)\n", l.furi.n)
+			for f = 1, l.furi.n do
+				local furi = l.furi[f]
+				aegisub.debug.out(4, "\tFurigana: text='%s', duration=%d, start/end_time=%d/%d, flags=%s%s, syl='%s'\n", furi.text, furi.duration, furi.start_time, furi.end_time, furi.isbreak and "b" or "", furi.spillback and "s" or "", furi.syl.text_stripped)
+			end
+			aegisub.debug.out(4, "  - - - - - -\n")
+		end
+	end
+	aegisub.debug.out(4, "Done dumping!")
+end
+
+function layout_furi(subs)
+	aegisub.progress.task("Collecting header data")
+	local meta, styles = karaskel.collect_head(subs, true) -- make sure to create furigana styles
+	
+	aegisub.progress.task("Processing lines")
+	for i = 1, #subs do
+		local l = subs[i]
+		if l.class == "dialogue" then
+			aegisub.progress.task(l.text)
+			karaskel.preproc_line_pos(meta, styles, l)
+			aegisub.progress.task("Line layouting done, rendering...")
+			aegisub.debug.out(4, "line width: %.2f\n", l.width)
+			-- First all syllables
+			for s = 0, l.kara.n do
+				local syl = l.kara[s]
+				local lc = table.copy(l)
+				lc.text = string.format("{\\pos(%.1f,%.1f)\\k%d\\k%d\\an5}%s", l.left+syl.center, l.middle, syl.start_time/10, syl.kdur, syl.text_stripped)
+				subs.append(lc)
+			end
+			-- Then all furigana
+			for f = 1, l.furi.n do
+				local furi = l.furi[f]
+				local lc = table.copy(l)
+				lc.text = string.format("{\\pos(%.1f,%.1f)\\k%d\\k%d\\an5}%s", l.left+furi.center, l.top-l.height/2, furi.start_time/10, furi.duration/10, furi.text)
+				lc.style = furi.style.name
+				subs.append(lc)
+			end
+		end
+	end
+	aegisub.set_undo_point("Furigana layout test")
+end
+
+aegisub.register_macro("Test furi parsing", "Run the furigana parsing code and dump the result", dump_furi)
+aegisub.register_macro("Test furi layout", "Run the furigana layout code and render the result", layout_furi)