Add Split Text

Author: klsruan

DependencyControl.json

@@ -304,6 +304,39 @@
             "name": "ILL - Change Alignment",
             "description": "Changes the alignment of a text or shape without changing its original position",
             "author": "ILLTeam"
+        },
+        "ILL.SplitText": {
+            "url": "@{baseUrl}#@{namespace}",
+            "fileBaseUrl": "@{fileBaseUrl}macros/@{namespace}",
+            "channels": {
+                "main": {
+                    "default": true,
+                    "version": "2.0.0",
+                    "released": "2025-05-03",
+                    "files": [
+                        {
+                            "sha1": "6c1a5debebe1f72227e548fe126c259b6c3354d4",
+                            "url": "@{fileBaseUrl}@{fileName}",
+                            "name": ".moon"
+                        }
+                    ],
+                    "requiredModules": [
+                        {
+                            "moduleName": "ILL.ILL",
+                            "feed": "@{feed:ILL}",
+                            "version": "1.6.1"
+                        }
+                    ]
+                }
+            },
+            "changelog": {
+                "2.0.0": [
+                    "Initial depctrl release"
+                ]
+            },
+            "name": "ILL - Split Text",
+            "description": "Splits the text in several ways",
+            "author": "ILLTeam"
         }
     },
     "modules": {

macros/ILL.SplitText.moon

@@ -0,0 +1,54 @@
+export script_name        = "ILL - Split Text"
+export script_description = "Splits the text in several ways"
+export script_version     = "2.0.0"
+export script_author      = "ILLTeam"
+export script_namespace   = "ILL.SplitText"
+
+haveDepCtrl, DependencyControl = pcall require, "l0.DependencyControl"
+
+local depctrl, ILL, Ass, Line
+if haveDepCtrl
+	depctrl = DependencyControl {
+		feed: "https://raw.githubusercontent.com/TypesettingTools/ILL-Aegisub-Scripts/main/DependencyControl.json",
+		{
+			{
+				"ILL.ILL"
+				version: "1.6.1"
+				url: "https://github.com/TypesettingTools/ILL-Aegisub-Scripts/"
+				feed: "https://raw.githubusercontent.com/TypesettingTools/ILL-Aegisub-Scripts/main/DependencyControl.json"
+			}
+		}
+	}
+	ILL = depctrl\requireModules!
+else
+	ILL = require "ILL.ILL"
+
+{:Ass, :Line} = ILL
+
+main = (mode) ->
+    (sub, sel, activeLine) ->
+        ass = Ass sub, sel, activeLine
+        for l, s, i, n in ass\iterSel!
+            ass\progressLine s, i, n
+            ass\removeLine l, s
+            Line.extend ass, l
+            unless l.isShape
+                for line in *(mode == "chars" and Line.chars(ass, l, true) or Line.words(ass, l, true))
+                    fr = line.data.angle != 0
+                    if fr or line.text\existsTagOr "frx", "fry", "frz"
+                        line.tags\insert {{"org", line.data.org}, true}
+                    line.tags\insert {{"pos", Line.reallocate l, line}, true}
+                    line.text\modifyBlock line.tags
+                    ass\insertLine line, s
+            else
+                ass\warning s, "Only divite text not shapes"
+        return ass\getNewSelection!
+
+if haveDepCtrl
+    depctrl\registerMacros {
+        {"By Chars", "", main "chars"}
+        {"By Words", "", main "words"}
+    }
+else
+    aegisub.register_macro "#{script_name}/By Chars", "", main "chars"
+    aegisub.register_macro "#{script_name}/By Words", "", main "words"

modules/ILL/ILL.moon

@@ -1,4 +1,4 @@
-module_version = "1.6.0"
+module_version = "1.6.1"
 
 haveDepCtrl, DependencyControl = pcall require, "l0.DependencyControl"
 

modules/ILL/ILL/Ass/Line.moon

@@ -314,12 +314,107 @@ class Line
 		Line.process ass, l
 		unless l.isShape
 			l.lines = Line.lineBreaks ass, l, noblank
+			l.extended = true
+
+	-- splits the text word by word
+	words: (ass, l) ->
+		if l.extended
+			words = {n: 0}
+			for i = 1, l.lines.n
+				lineBreak = l.lines[i]
+				left = switch l.data.an
+					when 1, 4, 7 then l.eff_margin_l
+					when 2, 5, 8 then (ass.meta.res_x - l.eff_margin_l - l.eff_margin_r - lineBreak.width) / 2 + l.eff_margin_l
+					when 3, 6, 9 then ass.meta.res_x - l.eff_margin_r - lineBreak.width
+				for j = 1, lineBreak.n
+					lineTags = lineBreak[j]
+					lineTagsText = lineTags.text_stripped
+					lineTagsTags = lineTags.tags\get!
+					for prevspace, wordText, postspace in lineTagsText\gmatch "(%s*)(%S+)(%s*)"
+						word = Table.copy lineTags
+						word.tags = Tags lineTagsTags
+						word.text = Text wordText
+						word.text.tagsBlocks[1] = Tags lineTagsTags
+						word.text_stripped = wordText
+						font = Font word.data
+						textExtents = font\getTextExtents wordText
+						prevspace = prevspace\len!
+						postspace = postspace\len!
+						spacewidth = font\getTextExtents(" ").width
+						left += prevspace * spacewidth
+						word.width = textExtents.width * ass.meta.video_x_correct_factor
+						word.left = left
+						word.center = left + word.width * 0.5
+						word.right = left + word.width
+						word.top = lineTags.top
+						word.middle = lineTags.middle
+						word.bottom = lineTags.bottom
+						word.x = switch l.data.an
+							when 1, 4, 7 then word.left
+							when 2, 5, 8 then word.center
+							when 3, 6, 9 then word.right
+						word.y = lineTags.y
+						left += word.width + postspace * spacewidth
+						words.n += 1
+						words[words.n] = word
+			return words
+		else
+			error "You have to extend the line before you get the words", 2
+
+	-- splits the text character by character
+	chars: (ass, l, noblank) ->
+		if l.extended
+			chars = {n: 0}
+			for i = 1, l.lines.n
+				lineBreak = l.lines[i]
+				left = switch l.data.an
+					when 1, 4, 7 then l.eff_margin_l
+					when 2, 5, 8 then (ass.meta.res_x - l.eff_margin_l - l.eff_margin_r - lineBreak.width) / 2 + l.eff_margin_l
+					when 3, 6, 9 then ass.meta.res_x - l.eff_margin_r - lineBreak.width
+				for j = 1, lineBreak.n
+					lineTags = lineBreak[j]
+					lineTagsText = lineTags.text_stripped
+					lineTagsTags = lineTags.tags\get!
+					for ci, charText in UTF8(lineTagsText)\chars!
+						char = Table.copy lineTags
+						char.tags = Tags lineTagsTags
+						char.text = Text charText
+						char.text.tagsBlocks[1] = Tags lineTagsTags
+						char.text_stripped = charText
+						font = Font char.data
+						textExtents = font\getTextExtents charText
+						char.width = textExtents.width * ass.meta.video_x_correct_factor
+						char.left = left
+						char.center = left + char.width * 0.5
+						char.right = left + char.width
+						char.top = lineTags.top
+						char.middle = lineTags.middle
+						char.bottom = lineTags.bottom
+						char.x = switch l.data.an
+							when 1, 4, 7 then char.left
+							when 2, 5, 8 then char.center
+							when 3, 6, 9 then char.right
+						char.y = lineTags.y
+						left += char.width
+						chars.n += 1
+						chars[chars.n] = char
+			if noblank
+				charsNoblank = {n: 0}
+				for char in *chars
+					unless Util.isBlank char.text_stripped
+						charsNoblank.n += 1
+						charsNoblank[charsNoblank.n] = char
+				return charsNoblank
+			return chars
+		else
+			error "You have to extend the line before you get the characters", 2
 
 	-- updates line information
 	update: (ass, l, noblank) ->
 		l.lines = nil
 		l.data = nil
 		l.styleref = nil
+		l.extended = false
 		l.text = l.text\__tostring!
 		Line.extend ass, l, noblank