<%
list_on=0
myfile=request("f")
myfile2=request("f2")
If myfile2 <> "" Then
	Mylist=Split(myfile2,"|")
	myw=request("w")
	myh=request("h")
	If Not myw <> "" Then myw=300
	If Not myh <> "" Then myh=300
	list_on=1
End If

'If Not myfile <> "" Then myfile="dna-guanine.pdb"

%>
<html>
  <head>
    <title>Simple example</title>
  </head>
  <style type="text/css">
	td {font-family: Tahoma;font-size: 12px;font-weight: normal;}
</style>


  <body>

<table bgcolor="#B6EC84" style="border-collapse: collapse" border="0" bordercolor="#FFCC00"><tr>
	<td bgcolor="#B6EC84" align="center">
	<script>
//Perodic Table
function dispItem(xelem,xeno,xwgt,xmelt,xboil) {
}
</script>
<script>
var mol_z=100;
var mol_spacefill=20;
function efmol_Load(xxmol) {
var xxx='load ' + xxmol +  "; spin true;"
//alert( xxx);
//document.jmol.script('load co2vib.xyz');
document.jmol.script(xxx);

//document.jmol.script('move 0 0 360 0 0 0 0 0 5');
}

function efmol_script(xxscr) {
//alert( xxx);
//document.jmol.script('load co2vib.xyz');
document.jmol.script(xxscr);
//document.jmol.script('move 0 0 360 0 0 0 0 0 5');
}

function efmol_zoom(nz) {
var nz1=mol_z+nz;
//alert(nz1);
if (nz1>0) {
	var xxscr='zoom ' + nz1;
	document.jmol.script(xxscr);
	mol_z=nz1;
}
}

function efmol_spacefill(nz) {
var nz1=mol_spacefill+nz;
if (nz1<0){nz1=0;}
if (nz1>100){nz1=0;}
var xxscr='spacefill ' + nz1 +'%';
document.jmol.script(xxscr);
mol_spacefill=nz1;
}


function efmol_style(xxscr) {
	document.jmol.setStyle(xxscr);
}

</script>

<%=myfile%></td>
	</tr><tr><td>
<applet name="jmol" code="JmolApplet" archive="JmolApplet0.jar" width="<%=myw%>" height="<%=myh%>">
<param name="load" value="<%=myfile%>"/>
<param name="progressbar" value="true">
<param name='boxmessage' value='Downloading JMOL ...' />
<param name='boxbgcolor' value='black' />
<param name='boxfgcolor' value='white' />
<param name="bgcolor" value="blue">
<param name="style" value="shaded">
<param name="label" value="symbol">
<param name="wireframeRotation" value="true">
<param name="perspectiveDepth" value="false">
<param name="script" value="rotate x 90 ; spin true; ">
</applet>
</td>
	</tr><tr>

<td bgcolor="#B6EC84">
<form name="ef_molaclue" style="margin=0" >
<p align="center">
<input type="button" value="El" onClick="javascript:efmol_script('label %e')"><input type="button" value="A" onClick="javascript:efmol_script('label %a')">&nbsp;
<input type="button" value="Z+" onClick="javascript:efmol_zoom(100)"> <input type="button" value="Z-" onClick="javascript:efmol_zoom(-100)">
<input type="button" value="x" onClick="javascript:efmol_script('spin false')"> <input type="button" value="A" onClick="javascript:efmol_script('anim on')">
<input type="button" value="Sf+" onClick="javascript:efmol_spacefill(20)"> <input type="button" value="Sf-" onClick="javascript:efmol_spacefill(-20)"> <input type="button" value="N" style="background-color: #000000" onClick="javascript:efmol_script('background black;')"> <input type="button" value="N" style="background-color: #3399FF" onClick="javascript:efmol_script('background blue;')"><br>
&nbsp; <input type="button" value="O" onClick="javascript:efmol_script('label off')">
<input type="button" value="V+" onClick="javascript:efmol_script('set solvent off; dots on')"><input type="button" value="V-" onClick="javascript:efmol_script('dots off')">
<input type="button" value="Sl+" onClick="javascript:efmol_script('set solvent on; dots on')">
<input type="button" value="WF+" onClick="javascript:efmol_script('wireframe on')">
<input type="button" value="WF-" onClick="javascript:efmol_script('wireframe off')"><input type="button" value="Rh" onClick="javascript:efmol_script('move 0 0 360 0 0 0 0 0 5')"> <input type="button" value="Rv" onClick="javascript:efmol_script('move 360 0 0 0 0 0 0 0 2')">&nbsp;
</p>
<%If list_on=1 Then
for each xfile In Mylist
xname=Split(xfile,".")
%>
<input type="button" value="<%=xname(0)%>" onClick="javascript:efmol_Load('<%=xfile%>')">
<%
Next
End If
%>
</form>
</td>
</tr>
</table>
  </body>
</html>

