#c// options: -image_sizes
#c// ###################################################################
#c// Image Theme by Ed Maste, updated by DaveSource
#c// ###################################################################
#c//
<:
  # Path setting - this is the path to the images
  $PATH = Theme_Path();

  $MAX_IMG_WIDTH = 760;
  $MAX_IMG_HEIGHT = 550;
  $BORDER_WIDTH = "0";

  # Font/color settings for the document
  $TITLE_FONT = "face='Verdana,Arial,Helvetica' color='black' size='-1'";
  $MAIN_FONT = "face='Verdana,Arial,Helvetica' color='#777777' size='-2'";
  $CREDIT_FONT = "face='Verdana,Arial,Helvetica' color='blue' size='-2'";
  $BODY = "bgcolor='#ffffff' text='#777777' link='blue' alink='blue' vlink='purple'";
  $SEP_BAR = "<div align='center'><img src='$PATH/Null.gif' height='5' width='1'><br><img src='$PATH/Bar.gif' width='95%' height='3' border='0'><br><img src='$PATH/Null.gif' height='5' width='1'></div>";

  # Image arrays are: name, width, height
  sub img_src { print "<img src='$PATH/$_[0]' width='$_[1]' height='$_[2]' $_[3] border='0'>" if ($_[1]); }

  # Thumbnail border
  $X = Image_Page() ? Image_Width() : Get_Opt('x');
  $Y = Image_Page() ? Image_Height() : Get_Opt('y');

# Not anymore - just use -medium option
#  # If the picture's too big to fit in a 1024x768ish browser window,
#  # apply height and width tags to have the browser scale it.
#  # This theme was originally created for a CD album, so using tags to
#  # scale a full-size image is fine, and it saves disk space over -medium.
#  if ($X > $MAX_IMG_WIDTH) {
#    $Y /= ($X/$MAX_IMG_WIDTH);
#    $X = $MAX_IMG_WIDTH;
#  }
#  if ($Y > $MAX_IMG_HEIGHT) {
#    $X /= ($Y/$MAX_IMG_HEIGHT);
#    $Y = $MAX_IMG_HEIGHT;
#  }
#  $Y = int($Y);
#  $X = int($X);

  @ThBord_L =   ("ThBord_L.gif", 11, $Y-0-0);
  @ThBord_R =   ("ThBord_R.gif", 13, $Y-0-0);
  @ThBord_TL =  ("ThBord_TL.gif", 11, 11);
  @ThBord_TR =  ("ThBord_TR.gif", 13, 11);
  @ThBord_BL =  ("ThBord_BL.gif", 11, 13);
  @ThBord_BR =  ("ThBord_BR.gif", 13, 13);
  @ThBord_T =   ("ThBord_T.gif", $X+11+13-11-13, 11);
  @ThBord_B =   ("ThBord_B.gif", $X+11+13-11-13, 13);
:>//
<html>

<head>
  <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
  <: Meta() :>
  <title>Image: <:=Image_Name() :></title>
</head>

<body <:=$BODY:>>
<div align="center">
  <table border="<:=$BORDER_WIDTH:>" cellpadding="0" cellspacing="0" width="95%">
    <tr>
      <td colspan="2">
        <font <:=$TITLE_FONT:>>
        <: pJoin_Parent_Albums(":"); :>
        </font>
      </td>

      <td width="25%">
        <div align="right">
          <a href='../index.html'><font <:=$TITLE_FONT:>>Up</font></a></div>
      </td>
    </tr>
  </table>

  <:=$SEP_BAR:>

#c//
#c// Prev/caption/next
#c//

  <table border="<:=$BORDER_WIDTH:>" width='95%' cellpadding='0' cellspacing='0'>
    <tr>
      <td width='33%'>
<: 
  if (Image_Cnt() > 1) { 
  Set_Image_Prev(); 
:>//	PREV
        <font <:=$MAIN_FONT:>>
        <div align="left">
          &lt;&lt;&nbsp;<a href=<:=Image_Page_URL():>><:=Image_Name():></a>
        </div>
        </font>
<: } :>
      </td>

      <td width='34%'>
<: 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='33%'>
<:
  if (Images_Left() > 1) {
  Set_Image_Next(); 
:>//	NEXT
        <font <:=$MAIN_FONT:>>
          <div align="right">
            <a href=<:=Image_Page_URL():>><:=Image_Name():></a>&nbsp;&gt;&gt;
          </div>
        </font>
<: } :>
      </td>
    </tr>
<: Set_Image_This() :>//
  </table>
</div>
#c//
#c// The image
#c//
  <div align="center"><br />
    <nobr><:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):></nobr><br />
    <nobr><:img_src(@ThBord_L):><a href=<:=Image_URL():>><:pImage_Src():></a><:img_src(@ThBord_R):></nobr><br />
    <nobr><:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):></nobr><br />
  </div>

  <:=$SEP_BAR:>    

  <div align="center">
    <font <:=$CREDIT_FONT:>><: Credit() :> on <:=scalar localtime:></font></div>
  <p></p>

  </body>

</html>
