6
Come è possibile creare quanto segue utilizzando Rectangle[]
in Graphics[]
?Riempimento sfumato utilizzando la grafica in Mathematica
Come è possibile creare quanto segue utilizzando Rectangle[]
in Graphics[]
?Riempimento sfumato utilizzando la grafica in Mathematica
Utilizzando Polygon
, è possibile
Graphics[{EdgeForm[Black],
Polygon[{{0, 0}, {3, 0}, {3, 1}, {0, 1}},
VertexColors -> {White, Red, Red, White}]}]
anche:
Graphics[Raster[{Range[100]/100}, ColorFunction -> (Blend[{White, Red}, #] &)],
AspectRatio -> .3,
Frame -> True,
FrameTicks -> None]
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]}] –
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
@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