PureBasic Forums - English

Posted: **Fri Jul 29, 2011 5:05 am**

Here's the procedure and an example to download.

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

Posted: **Fri Jul 29, 2011 6:24 am**

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

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))?

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 Forums - English

ZoomSprite() without Sprite3D

ZoomSprite() without Sprite3D

Re: ZoomSprite() without Sprite3D

Re: ZoomSprite() without Sprite3D

Re: ZoomSprite() without Sprite3D