파일 설명

설명Gosper curve 3.svg	Gosper curve of degree 4. Created by me as a vector replacement for Gosper curve 3.png .
날짜	2007년 3월 17일 (원본 올리기 일시)
출처	다음을 기초로 한 자작: Gosper curve 3.png
저자	원본: Arbol01   벡터: Blotwell
SVG 발전 InfoField	이 SVG 파일의 소스 코드 문법이 올바릅니다.   이 geometry perl(으)로 제작되었습니다.

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";} }} }}

라이선스

나는 이 작품의 저작권자로서, 이 작품을 퍼블릭 도메인으로 모두에게 공개합니다. 이 공개 선언은 전 세계적으로 유효합니다. 만약 저작권의 포기가 법률적으로 가능하지 않은 경우, 나는 이 작품을 법적으로 허용되는 한도 내에서 누구나 자유롭게 어떤 목적으로도 제한없이 사용할 수 있도록 허용합니다.