<%

dim CellCount, RandomImage
CellCount = 60

Randomize
RandomImage = "images/" & int (rnd * Cellcount + 1) & ".jpg"

%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Reality (by A. Molotkov)</title>
<meta NAME="description"
CONTENT="A. Molotkov is a writer, composer, filmmaker and visual artist. A founding member of Discord Aggregate, a San Francisco avant garde group, 
A. Molotkov harbors an extreme dedication to innovation in art, and has created a vast gallery of mesmerizing works in various genres.  This one is an online photo gallery.">
<meta NAME="keywords"
Content="A. Molotkov, art,artist,california,arte,oil,canvas,images,contemporary,modern, 20th century, 21 century, intense, collage, experimental, 
innovative, improvisation, discord, aggregate,  a. molotkov, s.b. reda, pamela zero, the attack of the absolute zeros, gospel, 
non-zabda, avant garde, jazz, music, web design, dynamic html, literature, video, film, opera, spoken word, future, conceptual, experiment, 
christ, imagination, power, cutting edge, pushing the envelope, crossing boundaries, new">

<meta name="GENERATOR" content="Microsoft FrontPage 12.0">
<script language="VBScript">
<!--
option explicit
dim HowLong,  t1, t2, t3, t4, FadesOn, CellCount

CellCount = <% = CellCount %>

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub window_onresize

	video.style.height = 512
	video.style.width=600
	
	if document.body.clientheight < 512 then
		video.style.height = document.body.clientheight - 20
		video.style.width = video.style.height * 600 / 512
	end if

	video.style.left= .5 * (document.body.clientwidth - video.offsetwidth)
	video.style.top= .5 * (document.body.clientheight - video.offsetheight)	

end sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub window_onload

	window_onresize
	randomize

end sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub timerer
'on error resume next

dim TheRealDeal, TheOne

	TheOne = Int(CellCount * Rnd + 1)
	TheRealDeal="images\" & TheOne & ".jpg"
	fade TheRealDeal
	t1 = settimeout("timerer",6000)

end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub timerer2
dim TheRealDeal, TheOne


	TheOne = Int(CellCount * Rnd + 1) 
	TheRealDeal="images\" & TheOne & ".jpg"
	video.src=TheRealDeal
	HowLong = .9 * HowLong
	if howlong < 2 then howlong = 2
	t2 = settimeout("timerer2", HowLong)	

end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub timerer3
dim TheRealDeal, TheOne

	HowLong = .9 * HowLong
	TheOne = Int(CellCount * Rnd + 1) 
	TheRealDeal="images\" & TheOne & ".jpg"
	video.src=TheRealDeal
	video.style.height=rnd*document.body.offsetheight
	video.style.width=rnd*document.body.offsetwidth
	video.style.top=rnd*(document.body.offsetheight-video.offsetheight)
	video.style.left=rnd*(document.body.offsetwidth-video.offsetwidth)
	video.style.visibility = "visible"
	t3 = settimeout("timerer3", HowLong)	

end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub Fade(im)
on error resume next

    call video.filters.item(0).Apply()
    video.src = im
    call video.filters.item(0).Play()

end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub reality2_onclick
	StartShow
	FadesOn = true
	timerer
end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub reality1_onclick
	StartShow
	timerer2
	t4 = settimeout ("slow",45000)
end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub reality3_onclick
	StartShow
	timerer3
	t4 = settimeout ("slow",45000)
end sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub slow
	HowLong=3000
	t4 = settimeout ("slow",45000)
end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub StartShow

	header.style.visibility="hidden"
	buttons.style.visibility="hidden"
	ending.style.visibility="hidden"
	video.style.visibility="visible"
	HowLong = 3000

end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub video_onclick

	HowLong = 3000
	if fadeson then video.filters.item(0).stop
	video.style.visibility="hidden"
	buttons.style.visibility="visible"
	header.style.visibility="visible"
	ending.style.visibility="visible"
	window_onresize
	window.clearTimeout t1
	window.clearTimeout t2
	window.clearTimeout t3
	window.clearTimeout t4

end sub


-->
</script>
<script language="JScript">
<!--
var image<% = CellCount %> = new Image()

function load(){
if (b1.value == "Load Images") {
b1.value = "Loading!";

<%

dim n

for n = 1 to CellCount - 1

	%>var image<% = n %> = new Image();
	image<% = n %>.src = "images/<% = n %>.jpg";
	<%
	
next

%>image<% = CellCount %>.src = "images/<% = CellCount %>.jpg";
}}
function remove() {
b1.style.visibility="hidden";
info.style.display="none";
buttons.style.display="";
}
image<% = CellCount %>.onload = new Function("remove()")
-->
</script>

<meta name="Microsoft Border" content="none">
</head>

<body stylesrc="default.asp" bgcolor="#000000" text="#008080" link="#008080" vlink="#008080" alink="#008080">

<%

dim myUA
myUA = Request.ServerVariables("HTTP_USER_AGENT")

if instr(myUA, "MSIE") = 0 then 

	%>
	
	<div id="ending" style="display:block">
	<p align="center"><strong><font face="MS Sans Serif" size="2">
	Sorry: your browser is incapable of advanced Reality.  Please use IE4 or higher to view this page.</font></p>
	<p align="center"><font size="2" face="Century Gothic">&nbsp;<a href="./">Reality<br>
	</a></font><font size="2" face="Century Gothic" color="#FFFF00"><a href="https://amolotkov.com">A.
	Molotkov's home page</a></font></p>
	</div>
	
	<% 

else 

	%>

	<div align="center">
	  <center>
	  <table border="0" cellpadding="0" cellspacing="0" width="100%" height="85%">
	    <tr>
	      <td width="100%">
	      
	 <div id="header" style="display:block">

	<p align="center">
	<font face="Lucida Handwriting" size="6">Reality</font><font size="2" face="Century Gothic" color="#FFFF00"><br>
	by A. Molotkov</font>
	</p>

	<p align="center">
	&nbsp;
	</p>
	</div><div id="info" style="display:block">

	<p align="center"><strong><font face="MS Sans Serif" size="2">To
	ensure optimal viewing, you are asked to download the images first (3 Mb total size).</font></strong></p>

	<p align="center">&nbsp;</p>

	<p align="center"><strong><input align="center" type="button" name="b1"
	value="Load Images"
	style="position: relative; cursor: hand; color: rgb(255,0,255); background-color: rgb(0,255,255)"
	onClick="load()"> </strong></p>
	</div><div style="display:none" id="buttons">

	<p align="center"><font face="MS Sans Serif"><strong>To return to this menu, click on the
	image at any time.</strong></font></p>

	<p align="center"><strong><input align="center" type="button" name="reality1"
	value="Slide Show Reality"
	style="position: relative; cursor: hand; color: rgb(255,0,255); 
	background-color: rgb(0,255,255)">
	</strong></p>

	<p align="center"><strong><input align="center" type="button" name="reality2"
	value="Merged Reality"
	style="position: relative; cursor: hand; color: rgb(255,0,255); 
	background-color: rgb(0,255,255)">
	</strong></p>

	<p align="center"><strong><input align="center" type="button" name="reality3"
	value="Insane Reality"
	style="position: relative; cursor: hand; color: rgb(255,0,255); 
	background-color: rgb(0,255,255)">
	</strong></p>

	</div>
	      
	      </td>
	    </tr>
	  </table>
	  </center>
	</div>


	<div id="ending" style="display:block">
	<p align="center"><font size="2" face="Century Gothic">&nbsp;<a href="./">Reality<br>
	</a></font><font size="2" face="Century Gothic" color="#FFFF00"><a href="https://amolotkov.com">A.
	Molotkov's home page</a></font></p>
	</div>

	<p align="center"><img src="<% = RandomImage %>" id="video"
	style="visibility: hidden; cursor: hand; position: absolute; filter: blendtrans(Duration=5); left: 0; top: 0"
	alt="Reality" border="0" WIDTH="640" HEIGHT="512"></p>


	<% 

end if 

set bc=nothing

%>

</body>
</html>


