2011-11-15 35 views

Respuesta

7

Usando Polygon, puede

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

Y sólo por diversión (requiere una cámara web para trabajar): pts = {{ 0, 0}, {1, 0}, {1, 1}, {0, 1}}; Gráficos [{Texture [CurrentImage []], Polygon [pts, VertexTextureCoordinates -> pts]}] –

+0

CurrentImage [] - un ejemplo interesante de una función que funciona mucho mejor en la documentación en línea que en mi máquina. .. :) Y cómo lo apagas ... – cormullion

+0

@cormullion Funciona bastante bien aquí. Pruebe 'Dynamic @ CurrentImage []'. El primer fotograma que captura puede ser negro (necesita tiempo para ajustarse), y si hay varios 'Dinámicos', se vuelve un poco inestable. 'ImageCapture []' abre una interfaz de usuario que le permite apagarlo. – Szabolcs

5

también:

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

enter image description here

Cuestiones relacionadas