home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Perseus
/
PERSEUS.iso
/
windows
/
applikat
/
uc3h1.exe
/
BITBLT.SCR
next >
Wrap
Text File
|
1992-08-15
|
401b
|
14 lines
i=0
xStart = 100
yStart = 100
nWidth = 100
nHeight = 100
while(i < nWidth)
GdiEllipse(xStart,yStart,nWidth*2,nHeight*2)
GdiBitBlt(xStart-i,yStart-i,nWidth,nHeight,xStart,yStart)
GdiBitBlt(xStart+i,yStart+i,nWidth,nHeight,xStart,yStart)
GdiBitBlt(xStart+i,yStart-i,nWidth,nHeight,xStart,yStart)
GdiBitBlt(xStart-i,yStart+i,nWidth,nHeight,xStart,yStart)
i = i + 4
endwhile
exit