使用Mathematica中的图形进行渐变填充

时间：2011-11-15 19:43:32

标签： graphics wolfram-mathematica

如何使用Rectangle[]中的Graphics[]创建以下内容？

enter image description here

2 个答案:

答案 0 :(得分：7)

使用Polygon，您可以

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

答案 1 :(得分：5)

此外：

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

enter image description here

相关问题
最新问题