Blur text?

[Gary]

Is there any way to blur text... for example, for a drop shadow?

[Christoffer Enedahl]

Sure, Imagine lingo to the rescue!
You might need to tweek it to handle tranparency and other stuff, but it's a
start. You'll have to change stuff in doBlur()
HTH/Christoffer

on blur aImage

vBlur = image( aImage.width, aImage.height, 16 )

vPattern = [[0, 1, 2, 1, 0],\
[1, 3, 4, 3, 1],\
[2, 4, 5, 4, 2],\
[1, 3, 4, 3, 1],\
[0, 1, 2, 1, 0]]

vSum = 48
vCenter = 3
vSourceRect = aImage.rect

repeat with y = 1 to vPattern.count
repeat with x = 1 to vPattern[y].count

if vPattern[y][x] <> 0 then
vAmount = integer( 256 * ( vPattern[y][x] / float(vSum)) )

vX = x-vCenter
vY = y-vCenter

vTargetRect = offset(vSourceRect, vX, vY)

vBlur.copyPixels( aImage, vTargetRect, vSourceRect, [#blendLevel:
vAmount] )
end if

end repeat
end repeat

return vBlur
end

on doBlur

vImage = member("myText").image
vBlur = blur(vImage)

vMem = member("blurimage")
if vMem.number < 1 then
vMem = new (#bitmap)
vMem.name = "blurimage"
end if

vMem.image = vBlur
end


"Gary" <nospam@nojunk.com> skrev i meddelandet
news:bmamkl$gq0$1@forums.macromedia.com...

> Is there any way to blur text... for example, for a drop shadow?
>