#!/usr/bin/perl
open(CIRCLE, ">circle.html");
print CIRCLE "\n";
print CIRCLE "Archimedes on measuring the circle<\/title>\n";
print CIRCLE "<body bgcolor=\"fffffff\">\n";
print CIRCLE "<h1>Archimedes on measuring the circle<\/h2>\n";
print CIRCLE "<center><img src=\"heathtitlesmall.jpg\"\><\/center>\n";
print CIRCLE "<table cellpadding=10><td>\n";
print CIRCLE "The images here have been taken from T. L. Heath's
translation into English of Archimedes' collected works,
published in 1897 by Cambridge University Press.
Heath's edition is based in turn on the definitive Greek edition of J. L.Heiberg.\n";
print CIRCLE "<p>You can see larger images of a page by clicking on its image below.\n";
print CIRCLE "<p>\n";
print CIRCLE "<table>\n";
print CIRCLE "<tr><td><\/td>\n";
for ($no=91;$no<99;$no++) {
if (($no & 1) == 0) {
print CIRCLE "<tr>\n";
}
print CIRCLE "<td>";
print CIRCLE "<a name=\"circle$no\"><\/a>\n";
print CIRCLE "<a href=\"circle\/circle$no.html\"><img src=\"circle\/circle$no"."small.jpg\"><\/a>\n";
print CIRCLE "<\/td>";
if (($no & 1) == 1) {
print CIRCLE "<\/tr>\n";
}
open(PRINT, ">circle/circle$no.html");
print PRINT "<html>\n";
print PRINT "<title>Archimedes measurement of the circle- page $no<\/title>\n";
print PRINT "<body bgcolor=\"fffffff\">\n";
print PRINT "<h2>Archimedes measurement of the circle - page $no\<\/h2\>\n";
print PRINT "[ <a href=\"..\/circle.html\#circle$no\">Back to main page<\/a> ]\n";
print PRINT "<p>\n<center><img src=\"circle$no.jpg\"><\/center>\n";
print PRINT "<\/ul>\n";
print PRINT "<\/html>\n";
close(PRINT);
}
print CIRCLE "<td><\/td><\/tr>\n";
print CIRCLE "<\/table>\n";
print CIRCLE "<\/td><\/table>\n";
print CIRCLE "<\/html>\n";
close CIRCLE;