Moho Animation Forum

Code: Select all

-- **************************************************
-- Provide Moho with the name of this script object
-- **************************************************

ScriptName = "LM_Sketchy"

-- **************************************************
-- General information about this script
-- **************************************************

LM_Sketchy = {}

LM_Sketchy.BASE_STR = 2480

function LM_Sketchy:Name()
	return "Sketchy"
end

function LM_Sketchy:Version()
	return "6.0"
end

function LM_Sketchy:Description()
	return MOHO.Localize("/Scripts/Menu/Sketchy/Description=Applies a sketchy line style to all vector layers in the document.")
end

function LM_Sketchy:Creator()
	return "Smith Micro Software, Inc."
end

function LM_Sketchy:UILabel()
	return(MOHO.Localize("/Scripts/Menu/Sketchy/ApplySketchyEffect=Apply Sketchy Effect"))
end

-- **************************************************
-- The guts of this script
-- **************************************************

function LM_Sketchy:IsEnabled(moho)
	return true
end

function LM_Sketchy:ConvertLayer(moho, layer)
	if (layer:LayerType() == MOHO.LT_VECTOR) then
		local vectorLayer = moho:LayerAsVector(layer)
		vectorLayer.fNoisyLines = true
		vectorLayer.fAnimatedNoise = true;
		vectorLayer.fExtraSketchy = true;
		vectorLayer.fExtraLines = 5;
		vectorLayer.fNoiseAmp = 6.0 / moho.document:Height();
		vectorLayer.fNoiseScale = 48.0 / moho.document:Height();
	elseif layer:IsGroupType() then
		local groupLayer = moho:LayerAsGroup(layer)
		for i = 1, groupLayer:CountLayers() do
			local subLayer = groupLayer:Layer(i - 1)
			self:ConvertLayer(moho, subLayer)
		end
	end
end

function LM_Sketchy:Run(moho)
	for i = 1, moho.document:CountLayers() do
		moho.document:Layer(i - 1):SetSecondarySelection(true)
	end

	moho.document:PrepMultiUndo()
	moho.document:SetDirty()

	for i = 1, moho.document:CountLayers() do
		moho.document:Layer(i - 1):SetSecondarySelection(false)
	end

	for i = 1, moho.document:CountLayers() do
		local layer = moho.document:Layer(i - 1)
		self:ConvertLayer(moho, layer)
	end
end