ImageFillRect()

[MaGetzUb]

ImageFillRect on funktio, jolla voit piirtää yhtäkuvaa haluamasi kokoiselle alueelle.
Parametrit: Kuvamuuttuja, X-Akseli, Y-Akseli, Leveys, Korkeus.

Funktio:

Code: Select all

Function ImageFillRect(img, x, y, w, h)
    iw = ImageWidth(img)
    ih = ImageHeight(img)
    For ix = 0 To w / iw
        For iy = 0 To h / ih
            DrawImageBox img, x+ix*iw, y+iy*ih, 0, 0, (w - ix*iw), (h - iy*ih)
        Next iy
    Next ix
EndFunction

Esimerkki koodi:

Code: Select all

SCREEN 800, 600

img = LoadImage("Media\Grass.BMP")
Repeat 
    
    ImageFillRect(img, 400, 300, MouseX(), MouseY())

DrawScreen
Forever 


Function ImageFillRect(img, x, y, w, h)
    iw = ImageWidth(img)
    ih = ImageHeight(img)
    For ix = 0 To w / iw
        For iy = 0 To h / ih
            DrawImageBox img, x+ix*iw, y+iy*ih, 0, 0, (w - ix*iw), (h - iy*ih)
        Next iy
    Next ix
EndFunction

[Ruuttu]

Kutsut esimerkkikoodin loopissa väärää funktiota. Muuten ihan hieno ja toimii nopeasti.

[MaGetzUb]

Kutsut esimerkkikoodin loopissa väärää funktiota. Muuten ihan hieno ja toimii nopeasti.

Ohoh, joo vaihdoinkin ekassa postauksessa tuon funktion nimen. Yleensä semmoisia päähänpistoja tulee. Mutta joo vaihdanpa sen nyt oikeaksi.

[Henkru]

Kuvan korkeus ja leveys kannattee ottaa alussa suoraan talteen. Säästyttäisiin turhilta funktiokutsuilta.