mirror of
https://github.com/aseprite/aseprite.git
synced 2024-09-15 15:14:16 +00:00
127 lines
3.4 KiB
Lua
127 lines
3.4 KiB
Lua
-- ase -- allegro-sprite-editor: the ultimate sprites factory
|
|
-- Copyright (C) 2001-2005 by David A. Capello
|
|
|
|
----------------------------------------------------------------------
|
|
-- Convolution Matrix
|
|
|
|
-- you should use set_tiled_mode() before
|
|
function ConvolutionMatrix(name, r, g, b, k, a, index)
|
|
local image, x, y = GetImage2 (current_sprite)
|
|
if image then
|
|
local effect = effect_new(current_sprite, "convolution_matrix")
|
|
if effect then
|
|
local convmatr = get_convmatr_by_name(name)
|
|
if convmatr then
|
|
set_convmatr(convmatr)
|
|
effect_set_target(effect, r, g, b, k, a, index)
|
|
effect_apply_to_image(effect, image, x, y)
|
|
end
|
|
effect_free(effect)
|
|
end
|
|
end
|
|
end
|
|
|
|
function ConvolutionMatrixRGB(name)
|
|
ConvolutionMatrix(name, true, true, true, false, false, false)
|
|
end
|
|
|
|
function ConvolutionMatrixRGBA(name)
|
|
ConvolutionMatrix(name, true, true, true, false, true, false)
|
|
end
|
|
|
|
function ConvolutionMatrixGray(name)
|
|
ConvolutionMatrix(name, false, false, false, true, false, false)
|
|
end
|
|
|
|
function ConvolutionMatrixGrayA(name)
|
|
ConvolutionMatrix(name, false, false, false, true, true, false)
|
|
end
|
|
|
|
function ConvolutionMatrixIndex(name)
|
|
ConvolutionMatrix(name, false, false, false, false, false, true)
|
|
end
|
|
|
|
function ConvolutionMatrixAlpha(name)
|
|
ConvolutionMatrix(name, false, false, false, false, true, false)
|
|
end
|
|
|
|
----------------------------------------------------------------------
|
|
-- Color Curve
|
|
|
|
function _ColorCurve(curve, r, g, b, k, a, index)
|
|
local image, x, y = GetImage2 (current_sprite)
|
|
if image then
|
|
local effect = effect_new(current_sprite, "color_curve")
|
|
if effect then
|
|
set_color_curve(curve)
|
|
effect_set_target(effect, r, g, b, k, a, index)
|
|
effect_apply_to_image(effect, image, x, y)
|
|
effect_free(effect)
|
|
end
|
|
end
|
|
end
|
|
|
|
function _ColorCurveRGB(curve)
|
|
_ColorCurve(curve, true, true, true, false, false, false)
|
|
end
|
|
|
|
function _ColorCurveRGBA(curve)
|
|
_ColorCurve(curve, true, true, true, false, true, false)
|
|
end
|
|
|
|
function _ColorCurveGray(curve)
|
|
_ColorCurve(curve, false, false, false, true, false, false)
|
|
end
|
|
|
|
function _ColorCurveGrayA(curve)
|
|
_ColorCurve(curve, false, false, false, true, true, false)
|
|
end
|
|
|
|
function _ColorCurveIndex(curve)
|
|
_ColorCurve(curve, false, false, false, false, false, true)
|
|
end
|
|
|
|
function _ColorCurveAlpha(curve)
|
|
_ColorCurve(curve, false, false, false, false, true, false)
|
|
end
|
|
|
|
----------------------------------------------------------------------
|
|
-- Color Curve(with array)
|
|
|
|
function ColorCurve(array, r, g, b, k, a, index)
|
|
local curve = curve_new(CURVE_LINEAR)
|
|
local c
|
|
|
|
for c in array do
|
|
curve_add_point(curve, curve_point_new(array[c], array[c+1]))
|
|
c = c+1
|
|
end
|
|
|
|
_ColorCurve(curve, r, g, b, k, a, index)
|
|
curve_free(curve)
|
|
end
|
|
|
|
function ColorCurveRGB(array)
|
|
ColorCurve(array, true, true, true, false, false, false)
|
|
end
|
|
|
|
function ColorCurveRGBA(array)
|
|
ColorCurve(array, true, true, true, false, true, false)
|
|
end
|
|
|
|
function ColorCurveGray(array)
|
|
ColorCurve(array, false, false, false, true, false, false)
|
|
end
|
|
|
|
function ColorCurveGrayA(array)
|
|
ColorCurve(array, false, false, false, true, true, false)
|
|
end
|
|
|
|
function ColorCurveIndex(array)
|
|
ColorCurve(array, false, false, false, false, false, true)
|
|
end
|
|
|
|
function ColorCurveAlpha(array)
|
|
ColorCurve(array, false, false, false, false, true, false)
|
|
end
|