home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
WINDOWS
/
UTILS
/
UC3D.EXE
/
BITBLT.SCR
next >
Wrap
Text File
|
1992-06-05
|
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