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.
Viivan piirto
Re: Viivan piirto
Otat framen lopussa talteen hiiren sen hetkiset kordinaatit ja seuraavassa framessa piirrät viivan talteenotetuista kordinaateista hiiren nykyisiin kordinaatteihin. Piirto tietysti kuvaan.
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Re: Viivan piirto
Miten nuo koordinaatit saa otettua talteen?Harakka wrote:Otat framen lopussa talteen hiiren sen hetkiset kordinaatit ja seuraavassa framessa piirrät viivan talteenotetuista kordinaateista hiiren nykyisiin kordinaatteihin. Piirto tietysti kuvaan.
Re: Viivan piirto
Tallennat ne vain muuttujaan, eli siis vaikkapa näin.FuJi wrote:Miten nuo koordinaatit saa otettua talteen?
Code: Select all
wanha_x = MouseX()
wanha_y = MouseY()
Re: Viivan piirto
Näin se ei toimi:
Miten tuon saisi toimimaan?
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
Re: Viivan piirto
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
CoolBasic henkilökuntaa
Kehittäjä
Kehittäjä
Re: Viivan piirto
Joo toi toimii. Kiitti.