2011-11-15 9 views

risposta

7

Utilizzando Polygon, è possibile

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

E solo per divertimento (richiede una webcam al lavoro): punti = {{ 0, 0}, {1, 0}, {1, 1}, {0, 1}}; Grafica [{Texture [CurrentImage []], Polygon [pts, VertexTextureCoordinates -> pts]}] –

+0

CurrentImage [] - un esempio interessante di una funzione che funziona molto meglio nella documentazione online rispetto a quella sulla mia macchina. .. :) E come si spegne ... – cormullion

+0

@cormullion Funziona molto bene qui. Prova 'Dynamic @ CurrentImage []'. Il primo fotogramma che cattura potrebbe essere nero (ha bisogno di tempo per adattarsi), e se ci sono molti 'dinamici', diventa un po 'inaffidabile. 'ImageCapture []' apre un'interfaccia utente che consente di disattivarlo. – Szabolcs

5

anche:

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

enter image description here

Problemi correlati