#!/usr/bin/perl -w

use strict;


sub flower
{
    my ($f, $mult) = @_;

    my $rval = "";
    my ($t);

    for ($t=0; $t<($mult||2)*3.14159; $t+= 0.01) { 
	my $r = &$f($t); 
	my $x = cos($t)*$r; 
	my $y = sin($t)*$r; 
	$rval .= sprintf "%.3f\t%.3f\n", $x, $y;
    }
    return $rval;
}


print <<EOF
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!-- Created with Inkscape (http://www.inkscape.org/) -->

<svg
   xmlns:dc="http://purl.org/dc/elements/1.1/"
   xmlns:cc="http://creativecommons.org/ns#"
   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
   xmlns:svg="http://www.w3.org/2000/svg"
   xmlns="http://www.w3.org/2000/svg"
   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
   width="800"
   height="800"
   id="svg2"
   version="1.1"
   inkscape:version="0.48.5 r10040"
   sodipodi:docname="polar-flowers.svg">

EOF
    ;

print "<g style=\"stroke:#f00; fill:none; stroke-width:0.03\">\n";

my $tstyle = "fill:#000; stroke:none; font-size:0.16px; text-anchor:middle";

{
    print "<g transform=\"translate(100,100) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(3*shift)} ),
    "\"/>\n";

    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(3&#x3b8;)</text>\n";
    
    print "</g>\n";
}

{
    print "<g transform=\"translate(300,100) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(3.5*shift)}, 4 ),
    "\"/>\n";
    
    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(3.5&#x3b8;)</text>\n";

    print "</g>\n";
}

{
    print "<g transform=\"translate(500,100) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(4*shift)} ),
    "\"/>\n";

    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(4&#x3b8;)</text>\n";
    
    print "</g>\n";
}

{
    print "<g transform=\"translate(700,100) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(5*shift)} ),
    "\"/>\n";

    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(5&#x3b8;)</text>\n";
    
    print "</g>\n";
}

{
    print "<g transform=\"translate(100,300) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(10/3*shift)}, 6 ),
    "\"/>\n";
    
    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos((3+1/3)&#x3b8;)</text>\n";

    print "</g>\n";
}

{
    print "<g transform=\"translate(300,300) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos((3+1/4)*shift)}, 8 ),
    "\"/>\n";
    
    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos((3+1/4)&#x3b8;)</text>\n";

    print "</g>\n";
}

{
    print "<g transform=\"translate(500,300) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos((3+1/5)*shift)}, 10 ),
    "\"/>\n";

    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos((3+1/5)&#x3b8;)</text>\n";
    
    print "</g>\n";
}

{
    print "<g transform=\"translate(700,300) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos((3+1/6)*shift)} , 12),
    "\"/>\n";

    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos((3+1/6)&#x3b8;)</text>\n";
    
    print "</g>\n";
}

{
    print "<g transform=\"translate(100,500) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(6*shift)} ),
    "\"/>\n";
    
    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(6&#x3b8;)</text>\n";
    print "</g>\n";
}

{
    print "<g transform=\"translate(300,500) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(7*shift)} ),
    "\"/>\n";
    
    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(7&#x3b8;)</text>\n";
    print "</g>\n";
}

{
    print "<g transform=\"translate(500,500) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(8*shift)} ),
    "\"/>\n";
    
    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(8&#x3b8;)</text>\n";
    print "</g>\n";
}

{
    print "<g transform=\"translate(700,500) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(9*shift)} ),
    "\"/>\n";
    
    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(9&#x3b8;)</text>\n";
    print "</g>\n";
}

{
    print "<g transform=\"translate(100,700) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(10*shift)} ),
    "\"/>\n";

    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(10&#x3b8;)</text>\n";
    
    print "</g>\n";
}

{
    print "<g transform=\"translate(300,700) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return cos(11*shift)} ),
    "\"/>\n";

    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.1\">r=cos(11&#x3b8;)</text>\n";
    
    print "</g>\n";
}

{
    print "<g transform=\"translate(500,700) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return -0.2+ cos(8*shift)} ),
    "\"/>\n";

    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.2\">r=0.2+cos(8&#x3b8;)</text>\n";
    
    print "</g>\n";
}

{
    print "<g transform=\"translate(700,700) scale(80)\">\n";

    print "<path d=\"M ", 
    flower( sub { return 0.2+cos(9*shift)} ),
    "\"/>\n";

    print "<text style=\"$tstyle\" x=\"0.3\" y=\"-1.2\">r=0.2+cos(9&#x3b8;)</text>\n";
    
    print "</g>\n";
}

print "</g>\n";


print "</svg>\n";