Атрибутный Fade in/Fade out

[Sinus]

а нахрена в вышеприведённой процедуре?

xor e
and e
xor e

это можно спотойно заменить на просто

and e

ибо

xor e : and e : xor e == xor a,e : and a,e : xor a,e == ((a ^ e) & e) ^ e

a           : 0 : 1 : 0 : 1
e           : 0 : 0 : 1 : 1
((a^e)&e)^e : 0 : 0 : 0 : 1
a&e         : 0 : 0 : 0 : 1

и ещё одно: все эти процедурки по 30 байт будут не очень красиво затемнять картинку, если на ней есть и пэйпер, и инк, и брайт.

я вот в таргете делал с табличкой в 256 байт, это конечно не 33 байта, но зато сверхфастово, правильно и красиво выглядит