-----------------------------------

Nezura

Sun May 02, 2004 3:02 pm


Need help with moving mouse graphic

-----------------------------------

Hi, i can't seem to get the picture i drew with turing to follow the mouse around, took a picture of the  graphic and put it in to the loop with a locate but it comes up with a maxrow error. Any help appreciated

Thanks in advance



Draw.Oval(168,158,10,20,black)%leg 1
Draw.Oval(190,158,10,20,black)%leg 2
Draw.Oval(230,158,10,20,black)%leg 3
Draw.Oval(253,158,10,20,black)%leg 4
Draw.Line(268,211,295,240,black)%tail
Draw.FillOval(295,243,10,10,white)%tail ball
Draw.Oval(295,243,10,10,black)%tail outline
Draw.FillOval(165,143,9,5,black)%paw 1
Draw.FillOval(187,143,9,5,black)%paw 2
Draw.FillOval(227,143,9,5,black)%paw 3
Draw.FillOval(250,143,9,5,black)%paw 4


Draw.FillOval(200,200,70,30,white)%body
Draw.Oval(200,200,70,30,black)%body outline

Draw.FillOval(142,220,40,40,white)%head
Draw.Oval(142,220,40,40,black)%outline of head
Draw.Line(152,232,159,238,black)%right eye part 1
Draw.Line(159,238,165,232,black)%right eye part 2

Draw.Line(128,238,135,232,black)%left eye part 1
Draw.Line(128,238,122,232,black)%left eye part 2

Draw.FillOval(100,200,10,40,black)%left ear
Draw.FillOval(182,200,10,40,black)%right ear
Draw.Line(130,200,162,200,black)%mouth
Draw.FillArc(152,199,5,10,180,0,black)%tongue
Draw.Oval(143,215,7,7,black)%nose

var pic3:=Pic.New (89,137,306,261)
cls

function distance (x1, y1 : int) : int
    result abs (x1 - y1)
end distance

var x1, y1, x2, y2, mb : int := 320
y1 := 200
loop
    mousewhere (x2, y2, mb)
    if x2 > x1 then
        x1 += distance (x1, x2) div 10
    else
        x1 -= distance (x1, x2) div 10
    end if
    if y2 > y1 then
        y1 += distance (y1, y2) div 10
    else
        y1 -= distance (y1, y2) div 10
    end if

    locate(x1,y1)
    put pic3
 
    delay(10)
    cls
    View.Update
    
end loop



-----------------------------------

Paul

Sun May 02, 2004 3:29 pm



-----------------------------------

u forgot the offscreenonly
and u don't need the delay
and why don't u just use pic.draw?
like this:

setscreen ("offscreenonly")
Draw.Oval(168,158,10,20,black)%leg 1 
Draw.Oval(190,158,10,20,black)%leg 2 
Draw.Oval(230,158,10,20,black)%leg 3 
Draw.Oval(253,158,10,20,black)%leg 4 
Draw.Line(268,211,295,240,black)%tail 
Draw.FillOval(295,243,10,10,white)%tail ball 
Draw.Oval(295,243,10,10,black)%tail outline 
Draw.FillOval(165,143,9,5,black)%paw 1 
Draw.FillOval(187,143,9,5,black)%paw 2 
Draw.FillOval(227,143,9,5,black)%paw 3 
Draw.FillOval(250,143,9,5,black)%paw 4 


Draw.FillOval(200,200,70,30,white)%body 
Draw.Oval(200,200,70,30,black)%body outline 

Draw.FillOval(142,220,40,40,white)%head 
Draw.Oval(142,220,40,40,black)%outline of head 
Draw.Line(152,232,159,238,black)%right eye part 1 
Draw.Line(159,238,165,232,black)%right eye part 2 

Draw.Line(128,238,135,232,black)%left eye part 1 
Draw.Line(128,238,122,232,black)%left eye part 2 

Draw.FillOval(100,200,10,40,black)%left ear 
Draw.FillOval(182,200,10,40,black)%right ear 
Draw.Line(130,200,162,200,black)%mouth 
Draw.FillArc(152,199,5,10,180,0,black)%tongue 
Draw.Oval(143,215,7,7,black)%nose 

var pic3:=Pic.New (89,137,306,261) 
cls 

function distance (x1, y1 : int) : int 
    result abs (x1 - y1) 
end distance 

var x1, y1, x2, y2, mb : int := 320 
y1 := 200 
loop 
    mousewhere (x2, y2, mb) 
    if x2 > x1 then 
        x1 += distance (x1, x2) div 10 
    else 
        x1 -= distance (x1, x2) div 10 
    end if 
    if y2 > y1 then 
        y1 += distance (y1, y2) div 10 
    else 
        y1 -= distance (y1, y2) div 10 
    end if 

    Pic.Draw (pic3, x1, y1, picMerge) 
  View.Update 
    cls 
  
    
end loop 



-----------------------------------

Nezura

Sun May 02, 2004 3:49 pm



-----------------------------------

wow I really appreciate the friendly people here...thank you for all your help  :D