6
Jak mogę utworzyć następujące przy użyciu Rectangle[]
w Graphics[]
?Wypełnienie gradientu za pomocą grafiki w Mathematica
Jak mogę utworzyć następujące przy użyciu Rectangle[]
w Graphics[]
?Wypełnienie gradientu za pomocą grafiki w Mathematica
Korzystanie Polygon
, można
Graphics[{EdgeForm[Black],
Polygon[{{0, 0}, {3, 0}, {3, 1}, {0, 1}},
VertexColors -> {White, Red, Red, White}]}]
również:
Graphics[Raster[{Range[100]/100}, ColorFunction -> (Blend[{White, Red}, #] &)],
AspectRatio -> .3,
Frame -> True,
FrameTicks -> None]
I tak dla zabawy (wymaga kamery do pracy): pts = {{ 0, 0}, {1, 0}, {1, 1}, {0, 1}}; Grafika [{Tekstura [CurrentImage []], Wielobok [pts, VertexTexture Współrzędne -> pts]}] –
CurrentImage [] - interesujący przykład funkcji, która działa o wiele lepiej w dokumentacji online niż na moim komputerze. .. :) A jak to wyłączyć ... – cormullion
@cormullion Działa tutaj całkiem dobrze. Spróbuj 'Dynamic @ CurrentImage []'. Pierwsza klatka, jaką przechwytuje, może być czarna (potrzebuje czasu na dostosowanie), a jeśli jest kilka "dynamicznych", staje się trochę niewiarygodna. 'ImageCapture []' otwiera interfejs użytkownika, który umożliwia wyłączenie go. – Szabolcs