- XPos = (SpritePos % mXSpriteCount) + 1;
- YPos = (SpritePos / mXSpriteCount) + 1;
-
-#if 0
- if (TEST_flag)
- printf("::: DDSpriteBuffer_BltEx(): %d, %d [%d]\n",
- pX, pY, SpritePos);
-#endif
-
- Blt(pX, pY, XPos, YPos);
-}
-
-// Public Function GetStretchCopy(Stretch!) As DDSpriteBuffer
-// Dim SR As RECT, DR As RECT, Y%, X%, pX%, pY%, Tmp&
-// // Set GetStretchCopy = New DDSpriteBuffer // (handle this later, if needed)
-// If Not GetStretchCopy.CreateAtSize(Stretch * Width, Stretch * Height, mXSpriteCount, mYSpriteCount) Then
-// Set GetStretchCopy = Nothing
-// Else
-// For Y = 0 To mYSpriteCount - 1
-// pY = Y * Stretch * mSpriteHeight
-// For X = 0 To mXSpriteCount - 1
-// pX = X * Stretch * mSpriteWidth
-// With DR
-// .left = pX
-// .top = pY
-// .right = pX + mSpriteWidth * Stretch
-// .bottom = pY + mSpriteHeight * Stretch
-// End With
-// With SR
-// .left = mSpriteWidth * X
-// .top = mSpriteHeight * Y
-// .right = .left + mSpriteWidth
-// .bottom = .top + mSpriteHeight
-// End With
-// Tmp = GetStretchCopy.Surface.Blt(DR, Buffer, SR, DDBLT_WAIT)
-// Next X
-// Next Y
-// 'GetStretchCopy.Surface.Blt DR, Buffer, DR, DDBLT_WAIT
-// End If
-// End Function