WMA link
Darker
Blend
Black
1/3
Graphics[{Darker[Red], Disk[]}]
Graphics3D[{Darker[Green], Sphere[]}]
Graphics[Table[{Darker[Yellow, x], Disk[{12x, 0}]}, {x, 0, 1, 1/6}]]