CB Repository

//==================================================================
// LoadImage2-funktio [ Bagard ]
// -----------------------------
// Lataa palan isosta kuvasta.
// * Funktion parametrit:
//   -   1: Ison kuvan tiedostopolku merkkijonona
//   - 2&3: Palasen vasemman ylänurkan koordinaatit isossa kuvassa
//   - 4&5: Palasen leveys ja korkeus
// * Funktio palauttaa kuvanpalasen muuttujan CB:n kuvafunktioita
//   ja -komentoja varten.
//==================================================================

// -----------------------------
// ESIMERKKI
// -----------------------------

kompassi = LoadImage2( "Media/map.bmp", 315, 210, 85, 90 )

DrawImage kompassi, 10, 10
DrawScreen

WaitKey

// -----------------------------
// FUNKTIO
// -----------------------------

Function LoadImage2( _file$, _x, _y, _width, _height )
    newImg  = MakeImage(_width, _height)
    origImg = LoadImage(_file$)
    
    // Kopioi pala isosta kuvasta toiseen, uuteen kuvaan
    CopyBox _x, _y, _width, _height, 0, 0, Image(origImg), Image(newImg)
    
    // Poistetaan alkuperäinen iso kuva muistista
    DeleteImage origImg
    
    Return newImg // Palautetaan luotu kuva
EndFunction