je voudrais savoir

' clic gauche pour tracer
' escape pour sortir, sinon :x
label trace
dim k,x1,y1,x2,y2
width 0,600
height 0 ,700
picture 1
height 1,600
width 1,800

2d_target_is 1
on_click 1,trace
 end

trace:
k=1
while mouse_left_up(1)=0
full_space 1
display
if key_down_code  = 27 then terminate
  if k=1
    x1=mouse_x_position(1)
    y1=mouse_y_position(1)
    k=0
  else
  wait 60

 '  color 1,255,100,120
 
    x2=mouse_x_position(1)
    y2=mouse_y_position(1)
    2d_line x1,y1,x2,y2
  2d_fill_color (100),(15),255
    2d_circle x1,y1,10
    2d_circle x2,y2,20

    x1=x2:y1=y2

  end_if
end_while
return
terminate

' clic gauche pour tracer
' escape pour sortir, sinon :x
label trace
dim k,x1,y1,x2,y2
width 0,600
height 0 ,700
picture 1
height 1,600
width 1,800

2d_target_is 1
on_click 1,trace
 end

trace:
k=1
color 1,255,100,120
2d_fill_color (100),(15),255
full_space 1
while mouse_left_up(1)=0
  if key_down_code  = 27 then terminate
  if k=1
    x1=mouse_x_position(1)
    y1=mouse_y_position(1)
    k=0
  else
    wait 60
    x2=mouse_x_position(1)
    y2=mouse_y_position(1)
    2d_line x1,y1,x2,y2
    2d_circle x1,y1,10
    2d_circle x2,y2,20
    x1=x2:y1=y2
  end_if
end_while
return

terminate