#!/usr/bin/perl

require "../cgi-lib.pl";
ReadParse(*params);

print "Content-Type: text/html\n\n";

print "<img src=\"fsizes2.cgi?";
foreach my $k ('a'..'z') {
    next unless($params{"$k\_cnt"});
    print "groups=$k&";
    print "$k\_cnt=".$params{"$k\_cnt"}."&";
    print "$k\_name=".$params{"$k\_name"}."&";
    print "$k\_r=".$params{"$k\_r"}."&";
    print "$k\_g=".$params{"$k\_g"}."&";
    print "$k\_b=".$params{"$k\_b"}."&";
}
if($params{filled}) {
    print "filled=1&";
}
if($params{icons}) {
    print "icons=1&";
}
if($params{scale}) {
    print "scale=$params{scale}";
}
print "\">\n";

print "<form>\n";
print "Use icons:<input type=checkbox name=icons value=\"1\"".(($params{icons}) ? " checked" : "").">\n";
print "Filled Circles:<input type=checkbox name=filled value=\"1\"".(($params{filled}) ? " checked" : "").">\n";
print "Scale:<input type=text size=4 name=scale value=\"".($params{scale} || 50)."\">\n";
print "<input type=submit value=\"Draw\"><br>\n";
print qq`
<font size=-2>
Note: "Scale" refers to the number of pixels of area that will be drawn by a<br>
size of 1. Ex: A scale of 50 would mean a group with a size of 1 would have a<br>
circle with an area of 50 pixels, and a group with a size of 6 would have an<br>
area of 300 pixels.
</font><br>`;
print "<table>\n";
foreach $k ('a'..'z') {
    print "<tr>\n";
    print "<input type=hidden name=groups value=\"$k\">\n";
    print "<td>Name:<input type=text name=$k\_name value=\"".$params{"$k\_name"}."\"></td>\n";
    print "<td>Size:<input size=4 type=text name=$k\_cnt value=\"".$params{"$k\_cnt"}."\"></td>\n";
    print "<td colspan=2>R:<input size=3 type=text name=$k\_r value=\"".$params{"$k\_r"}."\">\n";
    print "G:<input size=3 type=text name=$k\_g value=\"".$params{"$k\_g"}."\">\n";
    print "B:<input size=3 type=text name=$k\_b value=\"".$params{"$k\_b"}."\"></td>\n";
    print "</tr>\n";
}
print "</table>\n";
print "<input type=submit value=\"Draw\">\n";
print "</form>\n";