|
|
<! Draaiende
prentjes met foto
Ga hierboven naar "bewerken" en kies voor "alles selecteren". Terug "bewerken" en dan "kopiëren"?. Open nu outlook express en neem "nieuw bericht". Onderaan open je de "bron" en klik onderaan tussen </BODY><!</HTML> <! Dat is daar waar het groene tekens staan en klik daarna met de rechtermuisknop. Kies nu voor "plakken" en onderaan op "voorbeeld". Je ziet dat je mail klaar is behalve je foto's en tekst. De tekst kun je in de stand "bewerken", of zie rode tekst hieronder, aan passen en de foto's moet je in de "bron" vervangen. En dat 7 maal, zie het blauwe deel: <IMG id=pic1 src="cirkelendezwaantjes_bestanden/………" ><! Waar de XXXXX staan kun je het pad van je muziek invullen, net als bij je beelden.>
<HEAD>
<META
content=text/html;charset=iso-8859-1
http-equiv=Content-Type>
<STYLE
type=text/css>BODY {
COLOR: #000080; FONT-FAMILY: "Comic sans ms"; FONT-SIZE: 14pt;
MARGIN-LEFT: 20px; MARGIN-RIGHT: 5px
}
</STYLE>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2014.210" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.3013.2600" name=GENERATOR>
<META
content="MSHTML 5.00.3013.2600" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500"
name=GENERATOR></HEAD>
<BODY
background="" bgColor=#ffffff bgProperties=fixed>
<DIV> </DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000080 0px solid;
MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT:
0px">
<DIV style="FONT: 10pt
arial"> </DIV>
<DIV><BR></DIV>
<DIV><FONT color=#008080
size=4>Hallo
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT color=#008080 size=4>Hartelijke groeten </FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV><BGSOUND
balance=0 src="XXXXX"
volume=-1>
<DIV><IMG align=baseline alt=""
border=0 height=93 hspace=0
src="cirkelendezwaantjes_bestanden/zwaan.gif" width=132></DIV>
<DIV> </DIV>
<DIV></DIV><!--
These are the bouncing images. Enter the
filenames between the quotes
Start with id=pic0 and sequentially
number images.
The smaller the images, the smoother the
effect.
--><IMG height=70 id=pic0 src="cirkelendezwaantjes_bestanden/zwaankl.gif"
style="LEFT:
-200px; POSITION: absolute; TOP: 0px" width=99> <IMG id=pic1
src="cirkelendezwaantjes_bestanden/zwaankl.gif"
style="LEFT:
-200px; POSITION: absolute; TOP: 0px"> <IMG id=pic2
src="cirkelendezwaantjes_bestanden/zwaankl.gif"
style="LEFT:
-200px; POSITION: absolute; TOP: 0px"> <IMG id=pic3
src="cirkelendezwaantjes_bestanden/zwaankl.gif"
style="LEFT:
-200px; POSITION: absolute; TOP: 0px"> <IMG id=pic4
src="cirkelendezwaantjes_bestanden/zwaankl.gif"
style="LEFT:
-200px; POSITION: absolute; TOP: 0px"> <IMG id=pic5
src="cirkelendezwaantjes_bestanden/zwaankl.gif"
style="LEFT:
-200px; POSITION: absolute; TOP: 0px">
<SCRIPT
language=VBSCRIPT>
'
'
IMPORTANT: Value in brackets for the arrays below taken from last image
number.
Dim w, wW,
wH, an(5), x(5), y(5), ox(5), oy(5), c(5), cW, cH, sL, sT, numPics,
capture
Set
w=document.body
'
Initialize
sub
setUp()
'
Get window dimensions
cW=w.clientWidth
cH=w.clientHeight
sL=w.scrollLeft
sT=w.scrollTop
capture=153
'
IMPORTANT: Enter number of last image here
numPics=5
for
i=0 to numPics
randomize
c(i)=0
' Number of pixels to move image per step
ox(i)=4
oy(i)=-4
' Initial coordinates
an(i)=3.14159-i
x(i)=Int(SIN(an(i))* 50)+70
y(i)=Int(COS(an(i))* 50)+70
document.all("pic"&i).style.top=y(i)
document.all("pic"&i).style.left=x(i)
next
'
start bouncing
bnce
end
sub
sub
bnce()
ClearTimeOut(myTimer)
'
VBScript version of bounce routine
'
Loop for each object
for
i=0 to numPics
if c(i)=1 then
if
x(i)<50 and y(i)<50 then
c(i)=0
ox(i)=4
oy(i)=-4
end if
p="pic"&i
Set
bal=document.all(p)
' Increment position
x(i)=x(i)+ox(i)
y(i)=y(i)+oy(i)
' Check for walls on right or left
if (x(i) + bal.offsetWidth > cW + sL) OR (x(i) <= sL)
then
ox(i)=-ox(i)
if (x(i) < sL) then x(i) = sL
if (x(i) + bal.width > cW + sL) then x(i) = cW - bal.offsetWidth +
sL
end if
' Check for walls on bottom or top
if (y(i) + bal.offsetHeight > cH + sT) OR (y(i) <= sT+R)
then
oy(i)=-oy(i)
if (y(i) < sT+R) then y(i) = sT+R
if (y(i) + bal.offsetHeight > cH + sT) then y(i) = cH -
bal.offsetHeight + sT
end if
' Position object
bal.style.posTop = y(i)
bal.style.posLeft = x(i)
else
an(i)=an(i)-.1
x(i)=Int(SIN(an(i))* 50)+70+sL
y(i)=Int(COS(an(i))* 50)+70+sT
document.all("pic"&i).style.top=y(i)
document.all("pic"&i).style.left=x(i)
sw=INT(rnd*1000)
if sw mod 333 = 0 then c(i)=1
end if
next
'
Repeat. If bounce is too fast, increase the number
' in
the line below from the default value of 2.
myTimer=SetTimeOut("bnce",2)
end
sub
' This sub
starts the action as soon as the message is received.
sub
window_OnLoad()
setUp
end
sub
' In case
window is re-sized
sub
window_OnResize()
setUp
end
sub
' In case
text is scrolled this keeps the bouncing inside the
window.
sub
window_OnScroll()
sL=w.scrollLeft
sT=w.scrollTop
end
sub
</SCRIPT>
</BLOCKQUOTE></BODY>