#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_URL();
$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 = "";
# Image arrays are: name, width, height
sub img_src { print "
" if ($_[1]); }
# Thumbnail border
$X = Image_Page() ? Image_Width() : Option('x');
$Y = Image_Page() ? Image_Height() : Option('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);
:>//
<: Meta() :>
Image: <:=Image_Name() :>
>
|
>
<: pJoin_Parent_Albums(":"); :>
|
|
<:=$SEP_BAR:>
#c//
#c// Prev/caption/next
#c//
|
<:
if (Image_Cnt() > 1) {
Set_Image_Prev();
:>// PREV
>
<: } :>
|
<: Set_Image_This() :>// CAPTION
|
<:
if (Images_Left() > 1) {
Set_Image_Next();
:>// NEXT
>
<: } :>
|
<: Set_Image_This() :>//
#c//
#c// The image
#c//
<:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):>
<:img_src(@ThBord_L):>><:pImage_Src():><:img_src(@ThBord_R):>
<:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):>
<:=$SEP_BAR:>
><: Credit() :> on <:=scalar localtime:>
