lesson4cont

To create a texture for the background with your texturizer, here is how it's done:

make sure that you create a folder for your textures, maybe in C:\Program Files\Paint Shop Pro 5\textures

<HTML>

<HEAD>
<STYLE>
body {font-family: "Comic Sans MS";font-size: 14pt;margin-left:0;margin-right:0;background-color: #ffffff;color: #ffffff}
</STYLE>
</HEAD>

<BODY background="file://C:\Program Files\Common Files\Microsoft Shared\Stationery\rosetext2.jpg">(this is where you add the 150X150texture youjust made)

Sample text.


<IMG id=bkg src="C:\Program Files\Common Files\Microsoft Shared\Stationery\rosepotfinal.jpg" style="position:absolute;left:-1800;height:230;width:600">
(this is where you will add your final topper image and also plug in the height and with)
<BGSOUND src="file://C:\Program Files\Common Files\Microsoft Shared\Stationery\demo3.mid" loop=99 style="display:none">
(this is where you add your midi)

(do not change anything below this line)

__________________________________________________________
<SCRIPT language=VBScript>
REM Edgar V. Poirier
REM moomoo@nbnet.nb.ca
REM Thanks to Tar'Hom for the idea ; )
REM Revised May 20, 1999
Dim w, wW, wH, sH, wx, pW, pH, myTimer, x, xD, Res, calcFlag
Dim picX, picY, bxW, bxH, numPics

Set w=document.body

REM ************* MAKE CHANGES HERE *************

xD=1

REM *********************************************

REM Initialize
sub setUp()
REM Get window dimensions
wW=w.clientWidth
wH=w.offsetHeight
sH=w.scrollHeight
bH=wH
if sH>wH then bH=sH
REM Set margins
w.style.marginTop=pH
REM Limit visible area
container.style.width=wW
container.style.top=0
container.style.left=0
REM Set the size of the scrolling area
box.style.height=pH
box.style.left=-(pW)
box.style.top=0
if calcFlag=1 then
calcFlag=0
setUp
end if
REM Start the scroll.
SF
end sub

REM universal scrolling routine.
sub SF()
ClearTimeOut(myTimer)
x=x+xD
if xD>0 and x>=0 then x=-(pW)
if xD<0 and x<-(pW) then x=0
REM Position the background image.
box.style.left = x
REM repeat (larger numbers give slower scroll below)
myTimer=SetTimeOut("SF",24)
end sub

REM Everything starts here
sub Window_OnLoad()
REM Get window dimensions
wW=w.clientWidth
wH=w.offsetHeight
REM Get users screen resolution
wx=window.screen.width
REM and adjust font size to match.
Res=INT(wx/128)
w.style.fontSize = 14+Res
REM Set flag to force one extra calculation
calcFlag=1
x=-(pW)
REM Get dimensions of background image.
pW=bkg.style.posWidth
pH=bkg.style.posHeight
REM Number of images across
numPics=INT((wx)/pW)+2
REM "Tile" the background (NOTE: Image is not positioned.)
for j=1 to numPics
data=""
data="<IMG src='" & document.all("bkg"&i).src & "'>"
box.insertAdjacentHTML "beforeEnd", data
next
REM Lets get started.
setUp
end sub

REM This runs if the window size is changed.
sub Window_OnResize()
setUp
end sub

</SCRIPT>


<DIV id=container style="position:absolute;top:0;left:-1400;width:800;height:600;z-index:-1;filter:BlendTrans(Duration=0)">
<SPAN id=box style="HEIGHT: 4000px; POSITION: absolute; WIDTH: 3000px"></SPAN>
</DIV>

</BODY></HTML>