CoolBasic Forums

Posted: **Fri Oct 12, 2007 6:53 pm**

Nyt olisi sellainen ongelma, että tarvitsisi saada piirrettyä 1px viiva vapaalla kädellä. Eli siis sellattiin,
kun paintissa on se kynä. Tämä siis tarvitsisi saada tehtyä linellä ja niin, että siitä tulee yhtenäistä viivaa.

Posted: **Fri Oct 12, 2007 7:16 pm**

Otat framen lopussa talteen hiiren sen hetkiset kordinaatit ja seuraavassa framessa piirrät viivan talteenotetuista kordinaateista hiiren nykyisiin kordinaatteihin. Piirto tietysti kuvaan.

Posted: **Fri Oct 12, 2007 7:20 pm**

Harakka wrote:Otat framen lopussa talteen hiiren sen hetkiset kordinaatit ja seuraavassa framessa piirrät viivan talteenotetuista kordinaateista hiiren nykyisiin kordinaatteihin. Piirto tietysti kuvaan.

Miten nuo koordinaatit saa otettua talteen?

Posted: **Fri Oct 12, 2007 7:49 pm**

FuJi wrote:Miten nuo koordinaatit saa otettua talteen?

Tallennat ne vain muuttujaan, eli siis vaikkapa näin.

Code: Select all

wanha_x = MouseX()
wanha_y = MouseY()

Posted: **Fri Oct 12, 2007 8:00 pm**

Näin se ei toimi:

Code: Select all

SCREEN 400,300
kuva=MakeImage(400,300)
Repeat 
    wanha_x = MouseX()
    wanha_y = MouseY()
    DrawToImage kuva
    If MouseDown(1) Then 
        Line wanha_x,wanha_y,MouseX(),MouseY()
    EndIf 
    DrawToScreen
    DrawImage kuva,0,0
    DrawScreen
Forever

Miten tuon saisi toimimaan?

Posted: **Fri Oct 12, 2007 8:22 pm**

Näin:

Code: Select all

SCREEN 400,300
kuva=MakeImage(400,300)
Repeat 
    DrawToImage kuva
    If MouseDown(1) Then 
        Line wanha_x,wanha_y,MouseX(),MouseY()
    EndIf 
    DrawToScreen
    DrawImage kuva,0,0
    wanha_x = MouseX()
    wanha_y = MouseY()
    DrawScreen
Forever

Posted: **Fri Oct 12, 2007 8:26 pm**

Joo toi toimii. Kiitti.

CoolBasic Forums

Viivan piirto

Viivan piirto

Re: Viivan piirto

Re: Viivan piirto

Re: Viivan piirto

Re: Viivan piirto

Re: Viivan piirto

Re: Viivan piirto