The SVG file is produced by the following Perl script, which is based on the Logo implementation at Gosper-Kurve.
#!/bin/perluseMath::Trig;# SVG Gosper curve generator by Blotwell# Released under GFDLmy$x=500,$y=2500,$a=90;my$ln=100;printf<<HEREDOC,$x,$y;<svgxmlns="http://www.w3.org/2000/svg"width="640px"height="640px"><polylinestroke="black"stroke-width="30"stroke-linejoin="round"fill-opacity="0"transform="scale(0.1)"points="%i,%i,HEREDOCrg(4);print <<HEREDOC;"/></svg>HEREDOCsubp{printf"%i,%i,",$x,$y;}subfd{my$n=shift;$x+=$n*cos(deg2rad($a));$y-=$n*sin(deg2rad($a));p();}subtl{$a+=shift;}subrt{$a-=shift;}subgl{my$st=-1+shift;if($st<0){fd($ln);return}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);}subrg{my$st=-1+shift;if($st<0){fd($ln);return;}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);}
Licensing
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.
Captions
Add a one-line explanation of what this file represents