(* Main index file *)
maintainIndex := (
{wthmaxm, hthmaxm} = {400, 300};
Print["Creating main index file ..."];
xsizem1 = 400; (* Max width of pop-up thumbnail *)
ysizem1 = 300; (* Max height of pop-up thumbnail *)
height = 270;
font =12;
margin =3;
sfont := Switch[font, 14, "small", 12, "x-small", _, ToString[font]];
text = {
"
Flora of Qatar
Home Page > Picture Archives >
Flora of Qatar
Pictures in chronological order
",
(* Paginating to several year sets *)
qyearsets = Prepend[Table[{y, y}, {y, 2014, qyearmax}], {2010, 2013}];
Print["Year sets for thumbnails: ", qyearsets // TableForm];
(* Main body - giant photomontage - for each year set *)
Table[
{ymin, ymax} = qyearset;
title = label = ToString[ymin];
If[ymax != ymin,
title = title <> " - " <> ToString[ymax];
title1 = "Years " <> title,
title1 = "Year " <> title];
qplantpics = Select[qplantpictures, (ymin <= ToExpression[#[[1]]] <= ymax) &];
Print[" --- ", title1, ": Total of ", Length[qplantpics], " pictures of Qatari plants."];
montagepics = Table[
{year, roll, pic} = qplant;
ToFileName[{dir00, "pictures", "archives", "compress", year, roll, "jpeg"}, pic <> "q.jpg"], {qplant, qplantpics}];
filemont = ToFileName[{dir0}, "montage" <> label <> ".jpg"];
thsize = 50;
columns = 30;
maintainMontage;
nborder = 1;
montagewidth = columns (thsize + 2 nborder);
montageheight = rows (thsize + 2 nborder);
imgmap[qyearset] = {
""
};
"" <> title1 <> "
label <> ".jpg\" ALT=\"Photomontage of pictures of plants in Qatar. " <> title1 <> "\" BORDER=\"0\" WIDTH=\"" <> ToString[montagewidth] <>
"\" HEIGHT=\"" <> ToString[montageheight] <> "\" USEMAP=\"#montage" <> label <> "\">
", {qyearset, qyearsets}],
(* ... *)
(* Footer *)
"Links
Outside links
How the web page was created
- A list of plants with their common names was written using online sources and books.
- Web pages were written by a program consisting of several scripts.
- Full names, synonyms, and classification of plants were found online from catalogueoflife.org and theplantlist.org
using a script.
- Pictures of plants were selected from a database
using a script.
- This web page was written
using a script.
Acknowledgements
QNHG (Qatar Natural History Group) and associated people,
for a possibility to participate in their field excursions and to learn about local nature.
",
Table[imgmap[qyearset], {qyearset, qyearsets}],
"