File:Gosper curve 3.svg
Original file (SVG file, nominally 320 × 320 pixels, file size: 24 KB)
Captions
Summary[edit]
DescriptionGosper curve 3.svg |
Gosper curve of degree 4. Created by me as a vector replacement for |
Date | 17 March 2007 (original upload date) |
Source | Own work based on: Gosper curve 3.png |
Author |
Vector: |
SVG development InfoField |
Source[edit]
The SVG file is produced by the following Perl script, which is based on the Logo implementation at Gosper-Kurve.
<source lang="perl">
- !/bin/perl
use Math::Trig;
- SVG Gosper curve generator by Blotwell
- Released under GFDL
BEGIN{ print <<HEREDOC <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?> <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20010904//EN"
"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd"> <svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" width="320px" height="320px" viewBox="0 0 6400 6400">
HEREDOC
- }
my $x=500, $y=2500, $a=90; printf "<polyline points=\"%i,%i,",$x,$y; sub p {printf "%i,%i,",$x,$y;} sub fd {my $n=shift; $x+=$n*cos(deg2rad($a)); $y-=$n*sin(deg2rad($a)); p();} sub tl {$a+=shift;} sub rt {$a-=shift;} my $ln=100; rg(4);
sub gl {my $st=-1+shift; if ($st<0) {fd($ln);} else {tl(60); rg($st); rt(60); gl($st); gl($st); rt(120); gl($st); rt(60); rg($st); tl(120); rg($st); tl(60); gl($st);}}
sub rg {my $st=-1+shift; if ($st<0) {fd($ln);} else {rg($st); rt(60); gl($st); rt(120); gl($st); tl(60); rg($st); tl(120); rg($st); rg($st); tl(60); gl($st); rt(60);}}
END{print '" stroke="black" stroke-width="30" stroke-linejoin="round" fill-opacity="0" />',"\n</svg>\n";} }} }}
Licensing[edit]
Public domainPublic domainfalsefalse |
I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. |
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 19:10, 17 March 2007 | 320 × 320 (24 KB) | Blotwell (talk | contribs) | Newer version with one more sig. fig. in coördinates. | |
06:20, 17 March 2007 | 320 × 320 (19 KB) | Blotwell (talk | contribs) | Gosper curve of degree 4. Created by me as a vector replacement for Image:Gosper curve 3.png. |
You cannot overwrite this file.
File usage on Commons
The following 2 pages use this file:
File usage on other wikis
The following other wikis use this file:
- Usage on ca.wikipedia.org
- Usage on de.wikipedia.org
- Usage on el.wikipedia.org
- Usage on en.wikipedia.org
- Usage on en.wiktionary.org
- Usage on es.wikipedia.org
- Usage on es.wikibooks.org
- Usage on fr.wikipedia.org
- Usage on hu.wikipedia.org
- Usage on it.wikipedia.org
- Usage on it.wiktionary.org
- Usage on nl.wikipedia.org
- Usage on pl.wikipedia.org
- Usage on ru.wikipedia.org
- Usage on sl.wikipedia.org
- Usage on uk.wikipedia.org
- Usage on www.wikidata.org
- Usage on zh.wikipedia.org