Viivan piirto

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
FuJi
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Viivan piirto

Post by FuJi »

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.
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viivan piirto

Post by Harakka »

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)
FuJi
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Re: Viivan piirto

Post by FuJi »

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?
User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Viivan piirto

Post by CCE »

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()
FuJi
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Re: Viivan piirto

Post by FuJi »

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?
TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: Viivan piirto

Post by TheFish »

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ä
FuJi
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Re: Viivan piirto

Post by FuJi »

Joo toi toimii. Kiitti.
Post Reply