home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / COMM / UC3C_1.ZIP / BITBLT.SCR next >
Encoding:
Text File  |  1991-12-15  |  401 b   |  14 lines
  1. i=0
  2. xStart = 100
  3. yStart = 100
  4. nWidth =  100
  5. nHeight = 100
  6. while(i < nWidth)
  7.   GdiEllipse(xStart,yStart,nWidth*2,nHeight*2)
  8.   GdiBitBlt(xStart-i,yStart-i,nWidth,nHeight,xStart,yStart)
  9.   GdiBitBlt(xStart+i,yStart+i,nWidth,nHeight,xStart,yStart)
  10.   GdiBitBlt(xStart+i,yStart-i,nWidth,nHeight,xStart,yStart)
  11.   GdiBitBlt(xStart-i,yStart+i,nWidth,nHeight,xStart,yStart)
  12.   i = i + 4
  13. endwhile
  14. exit