Computer Science Canada

help ASAP! don't know how to use the click and drag line?

Author:  chibitenshi_03 [ Thu Jan 15, 2004 10:04 pm ]
Post subject:  help ASAP! don't know how to use the click and drag line?

How do i make so that the line doesn't erase?

var x, y, btnNumber, btnUpDown, buttons : int
var nx, ny : int
loop
Mouse.ButtonWait ("down", x, y, btnNumber, btnUpDown)
nx := x
ny := y
loop
Draw.Line (x, y, nx, ny, 0)
exit when Mouse.ButtonMoved ("up")
Mouse.Where (nx, ny, buttons)
Draw.Line (x, y, nx, ny, 1)
end loop
Mouse.ButtonWait ("up", nx, ny, btnNumber, btnUpDown)
Draw.Line (x, y, nx, ny, 2)
end loop

Author:  KukuriChan [ Thu Jan 15, 2004 10:10 pm ]
Post subject: 

Hey Chibi_Tenshi! I think you'll know who this is. Wink


Anyways, try doing this.
%make a temporary drawing of the area

temppic := Pic.New (x, y, x2, y2) <-- Put this after the nx:=x and ny :=y

Pic.Draw (canvas, temppic, 0, 0, picCopy) <-- Put this right before this
Draw.Line (x, y, nx, ny, 1)

Author:  chibitenshi_03 [ Thu Jan 15, 2004 10:27 pm ]
Post subject: 

do YOU know who i am then? Kukuri chan!

Author:  chibitenshi_03 [ Thu Jan 15, 2004 10:29 pm ]
Post subject: 

umm.....wat do i declare tempic as? int? string?

Author:  Neja [ Thu Jan 15, 2004 11:14 pm ]
Post subject: 

int


: