Grafiikka : komennot

SMOOTH2D


   KUVAUS

Asettaa pehmeät kuvamanipulaatiot käyttöön tai pois käytöstä.

Kun kuvaa käsitellään komennoilla RotateImage ja ResizeImage, CoolBasic suorittaa ne mahdollisimman nopeasti. Tämä voi jättää kuvaan karkeutta, ja esimerkiksi venytetyn kuvan pikselit suurenevat ja jäävät näkyviin.

Jos tämä toiminto kytketään päälle, CoolBasic silottaa kuvaa, ja antaa pehmennetyn vaikutelman. Toiminnot käyttävät silloin lineaarista suodatusta, joka on kuitenkin hieman raskaampi toteuttaa.

Komento vaikuttaa myös objekteihin.

Toiminto on oletuksellisesti pois päältä.

   KÄYTTÖ
SMOOTH2D päällä

  • päällä
    ON = piirrä pehmeästi
    OFF = piirrä karkeasti

    •    ESIMERKKI
    FrameLimit 40

    Text 0,0,"Loading..."
    DrawScreen

    Dim images(2,360)

    obj1=LoadImage("Media\cow.bmp"): ResizeImage obj1,60,50
    obj2=LoadImage("Media\cow.bmp"): ResizeImage obj2,60,50

    'operate obj1
    For i=0 To 360
        img=CloneImage(obj1)
        RotateImage img, -i
        images(1,i)=img
    Next i

    Smooth2D ON

    'operate obj2
    For i=0 To 360
        img=CloneImage(obj2)
        RotateImage img, -i
        images(2,i)=img
    Next i

    'THE MAIN LOOP
    '----------------------------------------------

    ClsColor cbwhite
    Color cbblack

    Locate 20,200

    AddText "The first one isn't so smooth"
    AddText "The second one is smoother"

    ClsColor cbwhite

    Repeat

        angle=WrapAngle(angle+1)
        
        DrawImage images(1,angle),140,40
        
        DrawImage images(2,angle),240,40
        
        DrawScreen

    Until EscapeKey()

    <<TAKAISIN