Aegisub/aegisub/automation/demos/raytracer.lua
Amar Takhar a067bd560d SVN Transition Step 3/7
1. cd aegisub/
  2. svn mv *cpp *h src/
  3. svn mv Makefile.am MatroskaParser.c auto4_perldata.inc bitmaps boost \
     changelog.txt config gl include libosxutil libresrc md5.c msvc mythes.cxx \
     mythes.hxx res.rc src/
  4. cd ..
  5. svn mv FFmpegSource2/ INSTALL Makefile.am README  acinclude.m4 \
     autogen.sh automation/ bin build configure.in desktop dummy.txt lib \
     libass/ m4macros/ packages/ po/ scripts/ universalchardet/ aegisub/
  6. mkdir -p docs/wiki_convert
  7. svn add docs/wiki_convert
  8. cd docs
  9. svn mv aegisub_convert_docs.pl convert.bat output wiki_convert/

* See r2749 for full description.

Originally committed to SVN as r2752.
2009-03-08 08:30:39 +00:00

407 lines
10 KiB
Lua

-- 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)