Grafiikka : funktiot

GETRGB


   KUVAUS

Palauttaa nykyisen piirtovärin punaisen, vihreän tai sinisen komponentin. Eli RGB-arvot. Jos et tiedä mitä tämä tarkoittaa, et tarvitse tätä funktiota :)

   KÄYTTÖ
GETRGB (kanava)

  • kanava = RED, GREEN tai BLUE.

  • Katso myös: PICKCOLOR

       ESIMERKKI
    'THIS PROGRAM WILL CHALLENGE MS PAINT

    FrameLimit 40

    'load palette
    palette= LoadImage("Media\palette.bmp")

    'Make canvas
    canvas= MakeImage(300,300)
    ClsColor cbwhite
    DrawToImage canvas
        Cls
    DrawToScreen

    ClsColor cbwhite
    Color cbblack

    'add info
    Locate 110,10
    AddText "Pick a color via palette right click"
    AddText "Draw using the mouse"

    ClsColor cbwhite

    Repeat

        'draw palette
        DrawImage palette,0,0,0,OFF
        
        'draw preview
        Box 20,220,20,20
        
        Text 20,260,GetRGB(RED)
        Text 20,270,GetRGB(GREEN)
        Text 20,280,GetRGB(BLUE)
        
        'pick colour
        If MouseDown(2)
            If MouseX()<100 And MouseY()<200 Then
                PickColor MouseX(),MouseY()
            EndIf
        EndIf
        
        'draw
        If MouseDown(1)
            If MouseX()>100 Then
                DrawToImage canvas
                    Line oldx-100,oldy,MouseX() -100,MouseY()
                    oldx=MouseX()
                    oldy=MouseY()
                DrawToScreen
            EndIf
        EndIf
        
        'draw canvas
        DrawImage canvas,100,0,0,OFF

        DrawScreen

    Until EscapeKey()

    <<TAKAISIN