File:Gosper curve 3.svg<<HEREDOC; "/> </svg> HEREDOC 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;}
File:Gosper curve 4.svg<<HEREDOC; "/> </svg> HEREDOC 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;}