ZoomSprite() without Sprite3D

J. Baker · **Posted:** Fri Jul 29, 2011 5:05 am

Here's the procedure and an example to download.

Code:

Structure ZoomSpriteCalculations
  SavedSpriteWidth.f
  SavedSpriteHeight.f
  SaveData.l
EndStructure

Procedure ZoomSprite(Sprite, SpriteWidth.f, SpriteHeight.f)

  Static Dim SpriteZoom.ZoomSpriteCalculations(99)
  
  If SpriteZoom(Sprite)\SaveData = 0
    
      SpriteZoom(Sprite)\SavedSpriteWidth = SpriteWidth
      SpriteZoom(Sprite)\SavedSpriteHeight = SpriteHeight
      
       CreateSprite(Sprite, SpriteWidth, SpriteHeight)
  
        StartDrawing(SpriteOutput(Sprite))
          DrawImage(ImageID(Sprite), 0, 0, SpriteWidth, SpriteHeight)
         StopDrawing()
          
       SpriteZoom(Sprite)\SaveData = 1
  EndIf
  
  If SpriteZoom(Sprite)\SavedSpriteWidth <> SpriteWidth Or SpriteZoom(Sprite)\SavedSpriteHeight <> SpriteHeight
    SpriteZoom(Sprite)\SaveData = 0
  EndIf
  
EndProcedure

J. Baker · **Posted:** Fri Jul 29, 2011 6:24 am

If you are using windows, I just noticed Library Subsystem: DirectX7 gives better results when zooming.

STARGÅTE · **Posted:** Fri Jul 29, 2011 1:15 pm

Not a good trick / tip.
The procedure is much too slow for the application.
The procedure works only with sprite numbers 0-99 ... and there is no check whether sprite is within a range of 0-99
but many use random numbers with #PB_Any
why you not use a Map like SpriteZoom(Str(Sprite))?

J. Baker · **Posted:** Fri Jul 29, 2011 8:38 pm

STARGÅTE wrote:

Not a good trick / tip.
The procedure is much too slow for the application.
The procedure works only with sprite numbers 0-99 ... and there is no check whether sprite is within a range of 0-99
but many use random numbers with #PB_Any
why you not use a Map like SpriteZoom(Str(Sprite))?

I simply showed that it can be done. You are welcome to do with it how ever you want.

PureBasic Forum

ZoomSprite() without Sprite3D

Who is online