#c// ################################################################### #c// Album Theme by David Ljung Madison based on #c// generic SimmerTheme 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 "" if ($_[1]); } # Path setting - this is the path to the images $PATH = Theme_Path(); $TITLE_FONT = "face='Verdana' color='lime' size='5'"; $MAIN_FONT = "face='Verdana' color='#777777'"; $CREDIT_FONT = "face='Verdana' color='#8b4513'"; $BODY = "bgcolor='#000000' text='#777777' link='#33ff00' alink='#33ff00' vlink='#33ff00'"; # Icons/graphics @Bar_L = ("Bar_L.gif", 20, 50); @Bar_M = ("Bar_M.gif", "90%", 50); @Bar_R = ("Bar_R.gif", 20, 50); @Icon = ("Icon.gif", 50, 50); @Back = ("Back.gif", 50, 50); # Thumbnail border $X = Image_Page() ? Image_Width() : Get_Opt('x'); $Y = Image_Page() ? Image_Height() : Get_Opt('y'); @ThBord_L = ("ThBord_L.gif", 10, $Y-0-0); @ThBord_R = ("ThBord_R.gif", 10, $Y-0-0); @ThBord_T = ("ThBord_T.gif", $X+10+10-0-0, 10); @ThBord_B = ("ThBord_B.gif", $X+10+10-0-0, 15); :>// #c// #c// ################################################################### #c// Everything beyond here is the same for the generic DaveWeb theme.. #c// ################################################################### <: # Shorthand for column info specified by -columns $Cols = Get_Opt('columns'); $Col_Perc = int(100/$Cols)."%"; :>// <: Meta() :> Album: <: pAlbum_Name() :> > <: if (isHeader()) { _:> <: } _:> #c// Are there more albums below this one? <: if (Child_Albums()) { _:> #c// Bar after child albums #c// #c// End if albums <: } :> #c// #c// The images <: if (Images()) { while (Images()) { _:>// <: if (!(Image_Cnt() % $Cols) && Images_Left()) { _:>// #c// #c// Start a new row <: } :> #c// #c// End image loop <: Next_Image(); } :>// <:}:>// <: if (isFooter()) { _:> <: } _:>
<:img_src(@Icon,"align='absmiddle'"):>
>     <: pJoin_Parent_Albums(":"); :>
><:@Back ? img_src(@Back,"align='absmiddle'") : print "

Back

"; :>

<:pHeader():>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
<: if (@More) { :> <: } else { :> <: } :> #c// #c// Loop on all the albums <: while (Child_Albums()) { _:> #c// #c// And start a new row every fourth one <: if (!((Child_Album_Cnt()+1) % $Cols) && Child_Albums_Left()) { _:> <: } :> #c// #c// End album loop <: Next_Child_Album() :> <: } :>
<:img_src(@More):>

More albums:

 ><: pChild_Album() :>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
<: if (@ThBord_LB) { _:> #c// The thumbnail is a complicated table for handling all the corners...
<:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):>
<:img_src(@ThBord_LT):> > alt=<:=Image_Alt():> width='<:=Get_Opt('x'):>' height="<:=Get_Opt('y'):>" border="0"> <:img_src(@ThBord_RT):>
<:img_src(@ThBord_L):> <:img_src(@ThBord_R):>
<:img_src(@ThBord_LB):> <:img_src(@ThBord_RB):>
<:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):>
<: } else { _:> <:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):>
<:img_src(@ThBord_L):>><:pImage_Thumb_Src():><:img_src(@ThBord_R):>
<:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):>
<: } _:> > > <:=Image_Name():>
<:pImage_Caption():>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>

<:pFooter():>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
><: Credit() :> on <:=scalar localtime:>