6
¿Cómo podría crear lo siguiente usando Rectangle[]
en Graphics[]
?Relleno de degradado usando gráficos en Mathematica
¿Cómo podría crear lo siguiente usando Rectangle[]
en Graphics[]
?Relleno de degradado usando gráficos en Mathematica
Usando Polygon
, puede
Graphics[{EdgeForm[Black],
Polygon[{{0, 0}, {3, 0}, {3, 1}, {0, 1}},
VertexColors -> {White, Red, Red, White}]}]
también:
Graphics[Raster[{Range[100]/100}, ColorFunction -> (Blend[{White, Red}, #] &)],
AspectRatio -> .3,
Frame -> True,
FrameTicks -> None]
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]}] –
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
@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