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.

Translated by Djamel Grine