Datei:Kinegram.gif
Größe dieser Vorschau: 576 × 300 Pixel. Weitere Auflösung: 320 × 167 Pixel.
Originaldatei (576 × 300 Pixel, Dateigröße: 2 MB, MIME-Typ: image/gif, Endlosschleife, 301 Bilder)
Hinweis: Aufgrund technischer Beschränkungen werden Vorschaubilder hochauflösender GIF-Dateien wie dieser nicht animiert.
Beschreibung
| Beschreibung |
English: You can create the illusion of movement by sliding a mask over an appropriately prepared image. |
| Datum | |
| Quelle | https://twitter.com/j_bertolotti/status/1219199293770403840 |
| Urheber | Jacopo Bertolotti |
| Genehmigung (Weiternutzung dieser Datei) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 11.0 code
nunits = 30;
nframes = 5;
dim = nframes*nunits;
grid = Table[
If[IntegerQ[j/nframes], Table[1, {dim}], Table[0, {dim}]], {j, 1,
dim}];
frames = Table[
Sum[RotateRight[DiskMatrix[20, dim], {Round[40 Cos[(j \[Pi])/2 - \[Theta]]], Round[40 Sin[(j \[Pi])/2 - \[Theta]]]}], {j, 1, 4}], {\[Theta], 0, \[Pi]/2 - 0.01, \[Pi]/(2*nframes)}];
image = Sum[RotateRight[grid, {j - 1, 0}]*frames[[j]], {j, 1, nframes}];
p1 = Table[ArrayPlot[Transpose[RotateRight[ArrayPad[grid, {{150, 0}, {0, 0}}, 1], {j, 0}]*Abs[ArrayPad[image, {{150, 0}, {0, 0}}] - 1]], ColorFunction -> GrayLevel, ImageSize -> Large], {j, -150, 150}];
ListAnimate[p1, 15]
Lizenz
Ich, der Urheber dieses Werkes, veröffentliche es unter der folgenden Lizenz:
 
|
Diese Datei wird unter der Creative-Commons-Lizenz CC0 1.0 Verzicht auf das Copyright zur Verfügung gestellt. |
| Die Person, die das Werk mit diesem Dokument verbunden hat, übergibt dieses weltweit der Gemeinfreiheit, indem sie alle Urheberrechte und damit verbundenen weiteren Rechte – im Rahmen der jeweils geltenden gesetzlichen Bestimmungen – aufgibt. Das Werk kann – selbst für kommerzielle Zwecke – kopiert, modifiziert und weiterverteilt werden, ohne hierfür um Erlaubnis bitten zu müssen.
|
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
| Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
|---|---|---|---|---|---|
| aktuell | 13:35, 21. Jan. 2020 | | 576 × 300 (2 MB) | wikimediacommons>Berto | User created page with UploadWizard |
Dateiverwendung
Die folgende Seite verwendet diese Datei:
