Graphics directive for drop shadow effect
DropShadowing[]
DropShadowing[{dx, dy}]
DropShadowing[{dx, dy}, r]
DropShadowing[{dx, dy}, r, col]
Graphics[{DropShadowing[], Text[Style["Shadow", 32]]}]
→ -Graphics-Plot[{2 Sin[x] + x, 2 Cos[x] + x}, {x, 0, 15}, PlotStyle -> DropShadowing[]]
→ -Graphics-Graphics[{DropShadowing[0], Annulus[]}]
→ -Graphics-