ファイル:Polygon spiral.png
ページのコンテンツが他言語でサポートされていません。
Polygon_spiral.png (400 × 350 ピクセル、ファイルサイズ: 17キロバイト、MIME タイプ: image/png)
ウィキメディア・コモンズのファイルページにある説明を、以下に表示します。
|
このファイルのベクター画像 (SVG) が利用できます。 使う目的に対し、元画像よりもSVGがより優れている場合、SVG画像を使用して下さい。
File:Polygon spiral.png → File:Polygon spiral.svg
|
en.wikipedia からコモンズに Maksim によって移動されました。
元のファイルページはこちら。以下の利用者は全てen.wikipediaに属します。
This graphic of an approximate logarithmic spiral made up from polygonal subunits was created using the perl interface to the ImageMagick image manipulation software:
#!/usr/bin/perl use Image::Magick; #the perl interface to the ImageMagic software use Math::Trig; # The points of the polygon. Arbitrary. ($x0,$y0) = (0,0); ($x1,$y1) = (10,0); ($x2,$y2) = (20,5); ($x3,$y3) = (5,15); # length of lower side divided by length of upper side: $factor = sqrt((($x2-$x3)**2 + ($y2-$y3)**2) / (($x1-$x0)**2 + ($y1-$y0)**2)); # angle between upper side and lower side, in radians: $angle = atan(($y2-$y3)/($x2-$x3)) - atan(($y1-$y0)/($x1-$x0)); # Create an empty white image: $image=Image::Magick->new(size=>'400x350'); $image->Read('xc:white'); $polygon_points = "$x0,$y0 $x1,$y1 $x2,$y2 $x3,$y3 $x0,$y0"; # Create two sample polygons $image->Draw(primitive=>'polygon', points=>$polygon_points, stroke=>red, translate=>"30,30"); $image->Draw(primitive=>'polygon', points=>$polygon_points, scale=>"$factor,$factor", stroke=>red, translate=>"70,30"); # Now place 5 of them side by side, appropriately stretched and turned $stretch = 1; $turn = 0; $posX = 120; $posY = 250; for (1..5) { $image->Draw(primitive=>'polygon', points=>$polygon_points, scale=>"$stretch,$stretch", stroke=>red, rotate=>$turn * 180/pi, translate=>"$posX,$posY"); $posX = $posX + $stretch * ( cos($turn) * ($x3-$x0) - sin($turn) * ($y3-$y0)); $posY = $posY + $stretch * ( sin($turn) * ($x3-$x0) + cos($turn) * ($y3-$y0)); $turn = $turn + $angle; $stretch = $stretch * $factor; } # Add some text $image->Set(font=>'-*-helvetica-medium-r-*-*-12-*-*-*-*-*-iso8859-*'); #this only works on the X window system $image->Annotate(text=>"polygonal subunits", x=>30, y=>75, fill=>black); $image->Annotate(text=>"approximate logarithmic spiral", x=>120, y=>310, fill=>black); # Write out the image in the png format $image->Write('polygon_spiral.png');
この文書は、フリーソフトウェア財団発行のGNUフリー文書利用許諾書 (GNU Free Documentation License) 1.2またはそれ以降のバージョンの規約に基づき、複製や再配布、改変が許可されます。不可変更部分、表紙、背表紙はありません。このライセンスの複製は、GNUフリー文書利用許諾書という章に含まれています。http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
このファイルはクリエイティブ・コモンズ 表示-継承 3.0 非移植ライセンスのもとに利用を許諾されています。 | ||
| ||
このライセンスのテンプレートは、GFDLのライセンス・アップデートによりこのファイルに追加されたものです。http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue |
date/time | username | edit summary |
---|---|---|
10:02, 10 December 2004 | en:User:Solitude | (assuming by user, {{GFDL}}) |
12:17, 9 August 2002 | en:User:Brion VIBBER | (<nowiki>...</nowiki>) |
21:30, 8 August 2002 | en:User:Josh Grosse | (Moving from image credits) |
元のアップロードログ
Legend: (cur) = this is the current file, (del) = delete this old version, (rev) = revert to this old version.
Click on date to download the file or see the image uploaded on that date.
- (del) (cur) 11:49, 20 July 2002 . . . . 400x350 (17711 bytes)
このファイルに描写されている項目
題材
ファイルの履歴
過去の版のファイルを表示するには、その版の日時をクリックしてください。
日付と時刻 | サムネイル | 寸法 | 利用者 | コメント | |
---|---|---|---|---|---|
現在の版 | 2006年3月19日 (日) 18:01 | 400 × 350 (17キロバイト) | Maksim | La bildo estas kopiita de wikipedia:en. La originala priskribo estas: This graphic of an approximate logarithmic spiral made up from polygonal subunits was created using the perl interface to the ImageMagick image ma |
ファイルの使用状況
このファイルを使用しているページはありません。
グローバルなファイル使用状況
以下に挙げる他のウィキがこの画像を使っています:
- en.wikipedia.org での使用状況
- simple.wikipedia.org での使用状況