Kuvat : komennot

RESIZEIMAGE


   KUVAUS

Tämä komento suurentaa tai pienentää kuvaa. Komennolle välitetään uusi koko pikseleinä.

Voit skaalata kuvaa myös negatiivisilla arvoilla. Näin voit peilata kuvan vaaka- tai pystysuunnassa.

Nopeuden säästämiseksi CoolBasic ei filtteröi kuvaa millään tavalla. Siksi venytetyn kuvan pikselit näkyvät. Blineaarisen filtteröinnin saa päälle komennolla Smooth2D, jolloin skaalatut kuvat pehmenevät.

HUOM! Tämä operaatio on suhteellisen raskas, eikä sitä voi käyttää reaaliajassa. Hyvä tapa on venyttää kuvat valmiiksi ohjelman alussa. Muuten pelisi hidastuu huomattavasti.

   KÄYTTÖ
RESIZEIMAGE kuvamuuttuja, leveys, korkeus

  • kuvamuuttuja = Se muuttuja, joka sisältää kuvan.
  • leveys = Kokonaisluku. Uusi leveys pikseleinä.
  • korkeus = Kokonaisluku. Uusi korkeus pikseleinä.

    • Katso myös: SMOOTH2D

       ESIMERKKI
    Dim images(80)


    FrameLimit 40

    Text 0,0,"Pre-calculating.. Please wait"
    DrawScreen


    'First Pre-calculate all images
    masterimage= LoadImage("Media\cow.bmp")

    'Generate 80 resized versions from the master Image
    For i=1 To 80
        images(i)=CloneImage(masterimage)
        
        newwidth#=ImageWidth(masterimage)*(i/10.0)
        newheight#=ImageHeight(masterimage)*(i/10.0)
        
        ResizeImage images(i),newwidth,newheight
    Next i


    'The actual game-loop
    plus=1
    i=1
    Repeat

        DrawImage images(i),0,0

        'animate
        i=i+plus
        If i<1 Then i=1: plus= -plus
        If i>80 Then i=80: plus= -plus

        DrawScreen

    Until EscapeKey()

    <<TAKAISIN