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 » 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.

User avatar
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Viivan piirto

Post by Harakka » 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.
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 » 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?

User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Viivan piirto

Post by CCE » 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()

FuJi
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Re: Viivan piirto

Post by FuJi » 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?

TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: Viivan piirto

Post by TheFish » 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 
CoolBasic henkilökuntaa
Kehittäjä

FuJi
Member
Posts: 70
Joined: Tue Aug 28, 2007 3:09 pm

Re: Viivan piirto

Post by FuJi » Fri Oct 12, 2007 8:26 pm

Joo toi toimii. Kiitti.

Post Reply