#! /usr/bin/perl

# DO NOT EDIT THE NEXT LINE MANUALLY
#   IT IS MAINTAINED BY make & perlfix
BEGIN { require "../../../../perl/lib/Sitedefs.pm"; }
#

use strict;
use Setting;
use ErrorLog;
use CGITracker;
use PageTemplate;

#create a CGITracker (reads the data), and pagetemplate (gives right look)
$|=1;
my $q = new CGITracker;
my $tmplt = new PageTemplate;

# the initial symmetry group
my $grp = $q->param('group');

# change the param into the Kali name
my $grp_title = $grp;
$grp_title =~ s/w//; 
$grp_title =~ s/x/\*/; 
$grp_title =~ s/t/0/; 

# title of the page... 
my $title="Kali: Symmetric Sketching";

#start printing the page 
$q->Print($tmplt->Header($title));


#secondary navigation 

my $navfile = "$Sitedefs::ROOTPATH/geometry/navigation.html";
open(NAV, "<$navfile");
while (<NAV>) {
    $q->Print($_);
}
close(NAV);

$q->Print($tmplt->PreContent($title));

#print the appropiate applet & param tags
$q->Print("
<table width=\"100%\"><tr>

<td valign=\"top\">
<table><tr><td style=\"background: #cccccc\">
   <APPLET  CODE=\"Kali.class\" ARCHIVE=\"kali-classes.zip\" WIDTH=700 HEIGHT=500>
    <PARAM NAME=\"group\" VALUE=\"$grp\">
    <PARAM NAME=\"addcgi\" VALUE=\"$Sitedefs::ROOTURL/studio/studio.cgi\">
   </APPLET>
</td></tr></table>
<td>

</tr><tr>

<td width=\"250\" valign=\"top\">
<b style=\"color: green\">Pick a pattern</b>: Use the pulldown menu and symmetry buttons to choose 
a <em>wallpaper</em>, <em>frieze</em> or <em>rosette</em> symmetry groups.  This will 
<b>Clear</b> the picture.

<p><b style=\"color: orange\">Pick a Color</b>: Click a color button to change color at any time.</p>

<p><b style=\"color: purple\">To Draw</b>: Click in the drawing area to start a line, or add a corner. Double click to end a line.</p>

<p>Use the <b>Add to Studio</b> button to <b>Save</b> your sketch.</p>");

$q->Print(qq|
</td>


</tr></table>
|);




# finish page
$q->Print($tmplt->Footer());

# Finalize
$q->EndPrint();