Mathematicaでグラフィックスを使ったグラデーション塗りつぶし

にRectangle[]を使って次のようにするには？ Polygonを使用してMathematicaでグラフィックスを使ったグラデーション塗りつぶし

enter image description here

2011-11-15 500

、あなたはまた、

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

出典

2011-11-15 19:49:28 Szabolcs

そして、ちょうど楽しみのために（仕事にウェブカメラが必要です）：PTS = {{ 0、0}、{1,0}、{1,1}、{0,1}}; Graphics [{Texture [CurrentImage []]、 Polygon [pts、VertexTextureCoordinates - > pts]}] –

CurrentImage [] - 私のマシン上よりもオンラインドキュメントではるかに優れた機能の興味深い例です。 .. :)そしてあなたはどのようにそれをオフに切り替えるのですか？ – cormullion

@cormullionここではかなりうまくいきます。 'Dynamic @ CurrentImage []'を試してください。キャプチャした最初のフレームは黒くなります（調整する時間が必要です）。いくつかの「ダイナミック」フレームがある場合、それは少し信頼性がありません。 'ImageCapture []'はUIを開き、それをオフにすることができます。 – Szabolcs

ことができます：

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

enter image description here

出典

2011-11-16 12:16:24

Mathematicaでグラフィックスを使ったグラデーション塗りつぶし

答えて

関連する問題