#!/usr/bin/perl
open(PARABOLA, ">parabola.html");
print PARABOLA "\n";
print PARABOLA "Archimedes' quadrature of the parabola<\/title>\n";
print PARABOLA "<body bgcolor=\"fffffff\">\n";
print PARABOLA "<h1>Archimedes' quadrature of the parabola<\/h2>\n";
print PARABOLA "<center><img src=\"heathtitlesmall.jpg\"\><\/center>\n";
print PARABOLA "<table cellpadding=10><td>\n";
print PARABOLA "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 PARABOLA "<p>You can see larger images of a page by clicking on its image below.\n";
print PARABOLA "<p>\n";
print PARABOLA "<table>\n";
print PARABOLA "<tr><td><\/td>\n";
for ($no=233;$no<253;$no++) {
if (($no & 1) == 0) {
print PARABOLA "<tr>\n";
}
print PARABOLA "<td>";
print PARABOLA "<a name=\"\para$no\"><\/a>\n";
print PARABOLA "<a href=\"parabola\/para$no.html\"><img src=\"parabola\/para$no"."small.jpg\"><\/a>\n";
print PARABOLA "<\/td>";
if (($no & 1) == 1) {
print PARABOLA "<\/tr>\n";
}
open(PRINT, ">parabola/para$no.html");
print PRINT "<html>\n";
print PRINT "<title>Archimedes' quadrature of the parabola - page $no<\/title>\n";
print PRINT "<body bgcolor=\"fffffff\">\n";
print PRINT "<h2>Archimedes' quadrature of the parabola - page $no\<\/h2\>\n";
print PRINT "[ <a href=\"..\/parabola.html\#para$no\">Back to main page<\/a> ]\n";
print PRINT "<p>\n<center><img src=\"para$no.jpg\"><\/center>\n";
print PRINT "<\/ul>\n";
print PRINT "<\/html>\n";
close(PRINT);
}
print PARABOLA "<td><\/td><\/tr>\n";
print PARABOLA "<\/table>\n";
print PARABOLA "<\/td><\/table>\n";
print PARABOLA "<\/html>\n";
close PARABOLA;