Градиентная заливка с использованием графики в Mathematica

Question

Как я могу создать следующее, используя Rectangle[] в Graphics[]?

Answer 1

Используя Polygon, вы можете

Graphics[{EdgeForm[Black], 
  Polygon[{{0, 0}, {3, 0}, {3, 1}, {0, 1}}, 
   VertexColors -> {White, Red, Red, White}]}]

Answer 2

Также:

Graphics[Raster[{Range[100]/100}, ColorFunction -> (Blend[{White, Red}, #] &)], 
 AspectRatio -> .3, 
 Frame       -> True, 
 FrameTicks  -> None]