DrawImageFrame - Ei enää erillistä LoadAnimImage kutsua!

[MaGetzUb]

Kehittelimpä funktion, joka piirtää kuvasta tietyn palasen, kun sille vain antaa kuvan, sijainnit vaaka että pystyakselilla, framen järjestysnumeron, sekä framen leveyden ja korkeuden. Jos framearvo menee yli kuvassa olevien framejen määrän, aloitetaan ensimmäisestä framesta.

Funktio

Code: Select all

Function DrawImageFrame(img, x, y, frame, framew, frameh) 
    frame = Int(frame)
    framesrowx = Int(ImageWidth(img) / framew) 
    framecx = (frame Mod framesrowx) * framew
    framecy = ((Int(frame / framesrowx) * frameh) Mod ImageHeight(img))
    
    DrawImageBox img, x - camx, y - camy, framecx, framecy, framew, frameh
End Function

Esimerkki + Funktio

Code: Select all

SCREEN 512, 512

img = LoadImage("Media\Tileset.BMP")
Repeat 

    
    If Timer() > h + 250 Then h = Timer() : f = f + 1
    d = -1
    For i = 0 To 15
        For j = 0 To 15
            d = d + 1
            DrawImageFrame(img, j*32, i*32, d+f, 32, 32)
        Next j
    Next i

    DrawImageFrame(img, MouseX(), MouseY(), f, 32, 32)

DrawScreen
Forever

Function DrawImageFrame(img, x, y, frame, framew, frameh) 
    frame = Int(frame)
    framesrowx = Int(ImageWidth(img) / framew) 
    framecx = (frame Mod framesrowx) * framew
    framecy = ((Int(frame / framesrowx) * frameh) Mod ImageHeight(img))
    
    DrawImageBox img, x - camx, y - camy, framecx, framecy, framew, frameh
End Function

[KilledWhale]

Muuten hyvä idea mutta tuo funktiokutsu aiheuttaa turhaa viivettä. LoadAnimImagella pääsee huomattavasti tehokkaampaan lopputulokseen.

[MaGetzUb]

Muuten hyvä idea mutta tuo funktiokutsu aiheuttaa turhaa viivettä. LoadAnimImagella pääsee huomattavasti tehokkaampaan lopputulokseen.

Totta, mutta tämä on helppo kääntää vaikka sitten C++:le kun käyttää esim SDL kirjastoa.