#c// options: -image_sizes
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
#c// ###################################################################
#c// Album Theme by David Ljung Madison
#c// Design by Dave Simmer of DaveWeb.com
#c// -- Auto generated by http://MarginalHacks.com/Hacks/album/simmer_theme
#c// ###################################################################
#c//
<:
  # Image arrays are: name, width, height
  sub img_src { print "<img src='$PATH/$_[0]' width='$_[1]' height='$_[2]' $_[3] alt='$_[4]' border='0'>" if ($_[1]); }

  # Path setting - this is the path to the images
  $PATH = Theme_URL();

  # Font/color settings for the document
  $TITLE_FONT = "size='5' color='#ffffff' face='Times New Roman,Georgia,Times'";
  $MAIN_FONT = "face='Times New Roman,Georgia,Times'";
  $CREDIT_FONT = "size='-1' face='Verdana' color='#ffffff'";
  $BODY = "background='$PATH/bkgrnd.gif' link='#aaaaaa' alink='#aaaaaa' vlink='#aaaaaa' text='#FFFFFF'";

  # Icons/graphics
  @Bar_L =	("Bar_L.gif", 27, 20);
  @Bar_M =	("Bar_M.gif", "90%", 20);
  @Bar_R =	("Bar_R.gif", 27, 20);
  @Icon =	("Icon.gif", 111, 24);
  @Back =	("Back.gif", 103, 24);
  @Next =	("Next.gif", 24, 42);
  @Prev =	("Prev.gif", 24, 42);
  @More =	("More.gif", 103, 24);

  # Thumbnail border
  $X = Image_Page() ? Image_Width() : Get_Opt('x');
  $Y = Image_Page() ? Image_Height() : Get_Opt('y');
  @ThBord_LT =	("ThBord_LT.gif", 38, 10);
  @ThBord_RT =	("ThBord_RT.gif", 30, 10);
  @ThBord_LB =	("ThBord_LB.gif", 38, 25);
  @ThBord_RB =	("ThBord_RB.gif", 30, 25);
  @ThBord_L =	("ThBord_L.gif", 38, $Y-10-25);
  @ThBord_R =	("ThBord_R.gif", 30, $Y-10-25);
  @ThBord_TL =	("ThBord_TL.gif", 62, 26);
  @ThBord_TR =	("ThBord_TR.gif", 63, 26);
  @ThBord_BL =	("ThBord_BL.gif", 62, 30);
  @ThBord_BR =	("ThBord_BR.gif", 63, 30);
  @ThBord_T =	("ThBord_T.gif", $X+38+30-62-63, 26);
  @ThBord_B =	("ThBord_B.gif", $X+38+30-62-63, 30);
:>//
#c//
#c// Everything beyond here is the same for the generic DaveWeb image theme..
<html>
	<head>
		<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
		<meta http-equiv="Content-Style-Type" content="text/css">
		<: Meta() :>
		<title>Image: <:=Image_Name() :></title>
	</head>

	<body <:=$BODY:>>
		<:img_src("Null.gif",1,10):>
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
			<tr valign='top'>
				<td>
					<:img_src(@Icon,"align='middle'"):>
					<br>
					<font <:=$TITLE_FONT:>>
					&nbsp;&nbsp;&nbsp;&nbsp;<: pJoin_Parent_Albums(":"); :>
					</font></td>
				<td>
					<div align="right">
						<a href=<:=Back():>><:@Back ? img_src(@Back) : print "<h2>Back</h2>"; :></a></div>
				</td>
			</tr>
			<tr>
				<td colspan="2" height="<:=$bar_H:>">
					<div align="center" style="white-space: nowrap">
						<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
					</div>
				</td>
			</tr>
		</table>
		<br />
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
#c//
#c// Prev/caption/next
#c//
			<tr valign='top'>
				<td width="25%">
<: Set_Image_Prev() :>//	PREV
					<div align="left">
					<font <:=$MAIN_FONT:>>
					<a href=<:=Image_Page_URL():>><:img_src(@Prev,"align='top'");  print "(prev)" unless @Prev; :><:=Image_Name():></a>
					</font>
					</div>
				</td>

				<td width="50%">
<: Set_Image_This() :>//	CAPTION

					<div align="center">
						<font <:=$TITLE_FONT:>>
						<a href=<:=Image_URL():>>
						<:=Image_Name():></a></font>

						<br />
						<font <:=$MAIN_FONT:>>
						<:pImage_Caption():></font>
					</div>
				</td>

				<td width="25%">
<: Set_Image_Next() :>//	NEXT
					<div align="right">
					<font <:=$MAIN_FONT:>>
					<a href=<:=Image_Page_URL():>><:=Image_Name():><:img_src(@Next,"align='top'");  print "(next)" unless @Next; :></a>
					</font>
					</div>
				</td>
			</tr>
		</table>

		<table border="0" cellpadding="0" cellspacing="0" width="100%">

<: Set_Image_This() :>//

#c//
#c// The image
#c//
			<tr>
				<td colspan="3" valign="top" width="100%">
					<div align="center"><br />

#c// All corners
<: if (@ThBord_LB) { _:>
						<table border='0' cellpadding='0' cellspacing='0'>
							<tr>
								<td colspan='3'><:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):></td>
							</tr> <tr>
								<td><:img_src(@ThBord_LT):></td>
								<td rowspan='3'><a href=<:=Image_URL():>><:pImage_Src():></a></td>
								<td><:img_src(@ThBord_RT):></td>
							</tr> <tr>
								<td><:img_src(@ThBord_L):></td>
								<td><:img_src(@ThBord_R):></td>
							</tr> <tr>
								<td><:img_src(@ThBord_LB):></td>
								<td><:img_src(@ThBord_RB):></td>
							</tr> <tr>
								<td colspan='3'><:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):></td>
							</tr>
						</table>

#c// Two corners
<: } elsif (@ThBord_TL) { _:>
						<span style="white-space: nowrap"><:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):></span><br />
						<span style="white-space: nowrap"><:img_src(@ThBord_L):><a href=<:=Image_URL():>><:pImage_Src():></a><:img_src(@ThBord_R):></span><br />
						<span style="white-space: nowrap"><:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):></span><br />

#c// No corners
<: } else { _:>
						<a href=<:=Image_URL():>><:pImage_Src():></a><br />
<: } _:>
					</div>
				</td>
			</tr>

			<tr>
				<td height="20"><:img_src("Null.gif",20,20):></td>
			</tr>

			<tr>
				<td height="<:=$bar_H:>">
					<div align="center" style="white-space: nowrap">
						<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
					</div>
				</td>
			</tr>
			<tr>
				<td>
					<div align="center">
						<font <:=$CREDIT_FONT:>><: Credit() :> on <:=scalar localtime:></font></div>
				</td>
			</tr>
			<tr>
				<td></td>
			</tr>
		</table>
		<p></p>
	</body>

</html>
