ATTENTION READERS! Lucky's VB Gaming Site is no longer active. For updated game programming information and tutorials, please visit The Game Programming Wiki!
Zoomen
Wat te doen als je een bitmap wilt afbeelden die 1/2 zo groot is als de originele? Of twee keer zo groot? Zoomen! Dit is zéér simpel, als je dit correct uitvoert:
Dim Zoom as Single
With DestRect
.Bottom = 60 * Zoom
.Left = 0
.Right = 60 * Zoom
.Top = 0
End With
BackBuffer.Blt DestRect, Ship(Facing), SrcRect, DDBLT_KEYSRC Or DDBLT_WAIT
Het enige dat je moet doen is de breedte van de destination rectangle (doel rechthoek) vermenigvuldigen met een factor en de "BackBuffer.Blt" functie zal de afbeelding zelf stretchen (vergroten, verkleinen) naargelang de waarde die je hebt doorgegeven? Pas de "Zoom" variabele aan naargelang het zoom-effect dat verijst is. Een waarde kleiner dan 1 veroorzaakt het uitzoomen (kleiner maken) van de sprite. Een grotere waarde daarentegen, zoomt in (maakt de sprite dus groter).
Klik hier om een voorbeeld te downloaden, dat dit illustreert.
