Összefoglaló

LeírásGosper curve 3.svg	Gosper curve of degree 4. Created by me as a vector replacement for Gosper curve 3.png .
Dátum	2007. március 17. (eredeti feltöltésének dátuma)
Forrás	A feltöltő saját munkája, a következőn alapul: Gosper curve 3.png
Szerző	Eredeti: Arbol01   Vektor: Blotwell
SVG kód InfoField	Ezen SVG kép forráskódja érvényes.   Ez vektorgrafikus kép perl segítségével készült

Source

The SVG file is produced by the following Perl script, which is based on the Logo implementation at Gosper-Kurve.

<source lang="perl">

1. !/bin/perl

use Math::Trig;

1. SVG Gosper curve generator by Blotwell
2. 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";} }} }}

Licenc

Én, a szerző, ezt a művemet ezennel közkinccsé nyilvánítom. Ez a világ minden részén érvényes. Egyes országokban ez jogilag nem lehetséges. Ha így van, akkor: Jogot adok bárkinek, hogy bármilyen célból, feltétel nélkül használhassa ezt a fájlt, kivéve a törvény által kötelezően előírt feltételeket.