home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 3 / Chip_Hitware_Vol_03.iso / chiphit3 / win95 / programm / unicom / bitblt.sc_ / bitblt.sc
Text File  |  1992-08-15  |  401b  |  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