1. ホーム
  2. 質問と答え
  3. Mathematicaでグラフィックスを使ったグラデーション塗りつぶし

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

2011-11-15 58 views

答えて

7

、あなたはまた、

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

出典

2011-11-15 19:49:28 Szabolcs

+3

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

+0

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

+0

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

5

ことができます：

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

関連する問題

 関連する問題