home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows
/
1993_Aces_Research_Dr._Windows_UPC_765872322017_shareware.iso
/
util
/
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