CoolBasic Forums

Code: Select all

Type IMAGEMAP
    Field x
    Field y
    Field r
    Field g
    Field b
EndType 
asd=LoadImage("media\map.bmp")
Lock Image(asd)
    For x=1 To ImageWidth(asd)
        For y=1 To ImageHeight(asd)
            PickImageColor2 asd,x,y
            Newa.IMAGEMAP=New(IMAGEMAP)
            Newa\x=x
            Newa\y=y
            Newa\r=getRGB(RED)
            Newa\g=getRGB(GREEN)
            Newa\b=getRGB(BLUE )
        Next y
    Next x
Unlock Image(asd)
Repeat 
    SetWindow ""+FPS()
    x=MouseX()
    y=MouseY()
    For iMap.IMAGEMAP=Each IMAGEMAP
        If Distance(x,y,iMap\x,iMap\y)<50 Then 
            Color iMap\r, iMap\g, iMap\b
            Dot iMap\x,iMap\y
        EndIf 
    Next iMap 
    DrawScreen 
Forever 

Code: Select all

Type IMAGEMAP
    Field x
    Field y
    Field pix
EndType 
asd=LoadImage("media\map.bmp")
Lock Image(asd)
    For x=1 To ImageWidth(asd)-1
        For y=1 To ImageHeight(asd)-1
            PickImageColor2 asd,x,y
            Newa.IMAGEMAP=New(IMAGEMAP)
            Newa\x=x
            Newa\y=y
            Newa\pix = GetPixel2(x, y, Image(asd))
        Next y
    Next x
Unlock Image(asd)
Repeat 
    SetWindow ""+FPS()
    x=MouseX()
    y=MouseY()
    Lock SCREEN()
        'seuraava rivi, JOS käytetään suoraan kuvasta lukua
        'Lock Image(asd)
            For iMap.IMAGEMAP=Each IMAGEMAP
                If Distance(x,y,iMap\x,iMap\y)<50 Then 
                    PutPixel2 imap\x,imap\y,iMap\pix
                    'Seuraava rivi lukee värit suoraan kuvasta (vaihtoehto)
                    'PutPixel2 imap\x,imap\y,GetPixel2(imap\x,imap\y,Image(asd))
                EndIf 
            Next iMap 
        'seuraava rivi, jos kuvasta luku
        'Unlock Image(asd)
    Unlock SCREEN()
    DrawScreen 
Forever

Code: Select all

// ympyrän halkaisija 
Const diameter = 200

// Ladataan lähdekuva
source = LoadImage("media\map.bmp")

// Tehdään maski
mask = MakeImage(diameter,diameter)
    DrawToImage mask
        Color cbMagenta
        Circle 0, 0, diameter, True
    DrawToScreen
    MaskImage mask, cbMagenta
// Tehdään kuva mihin pala piirretään
circ = MakeImage(diameter,diameter)


// Pääluuppi
Repeat
    SetWindow ""+FPS()
    x = MouseX()
    y = MouseY()

    DrawToImage circ
        // piirretään neliö alue
       DrawImageBox source, 0,0, x - diameter/2,y - diameter/2, diameter,diameter
        // laitetaan maski päälle, ni syntyy ympyrä
       DrawImage mask, 0,0
    DrawToScreen

    DrawImage circ, x - diameter/2,y - diameter/2

    DrawScreen
Forever