je bulle dans mon coin

' dessiner des cercles avec un click droit
 ' escape pour sortir
 dim a
 width 0,900
 height 0,900
  repeat
    if key_down_code  = 27 then terminate
    if mouse_right_down(0)=1
    if key_down_code  = 27 then terminate
 print mouse_x_right_down(0)
print mouse_y_right_down(0)
2d_fill_color rnd(255),rnd(255),rnd(255)
2d_circle  mouse_x_right_down(0), mouse_y_right_down(0),rnd (80)
  end_if
 until a=10

' je promene ma souris
'  escape pour sortir
  border_hide 0
 dim a,s ,c(100),x ,v  ,d(100)
  full_space 0
  width 0 ,1650
  height 0,1100
  v=1
  2d_target_is 0
  for x= 1 to 5
repeat

      if key_down_code  = 27 then terminate
      if mouse_right_down(0)=0
      c(v)=  mouse_x_position(0)
     
      print_locate 50,10
print "............c(v)......",c(v)
      print_locate 50,30
      d(v)=    mouse_y_position(0)
     
print  "........d(v).........." ,d(v)
2d_fill_color  rnd(255), rnd(255),rnd (255)
 2d_circle c(v),d(v),rnd (80)
 end_if
 wait 250
 until v=5
  v=v+1
    print c(v),d(v)

  next x

    dim a,s ,c(1000),x ,v  ,d(1000),k
  2d_fill_color 255,0,0
  color 0,125,192,47
  2d_pen_color 255,0,0
  width 0 ,800

 height 0,1000
 form 1
 height 1,1000
 width 1,800
 left 1, 800
 s=100
 v=0
 wait 1000
 for k = 1 to 900
 wait 10
  if key_down_code  = 27 then terminate







v=v+1
print "vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv",v
c(v)=  mouse_x_position(0)
print_locate 50,10
print "ccccccccccvvvvvvvvvv",c(v)

d(v)=    mouse_y_position(0)
print  "dddddddddddddddddddd" ,d(v)
2d_circle c(v), d(v),5
if mouse_right_down(0)=0
end_if
next k
' "................................................................."
  2d_target_is 0

 print_locate 20,150
 print mouse_x_position(0)
  print_locate 20,170
  print mouse_y_position(0)
  ' ...........................................................
 c(v)=c(1) :' on boucle?
 d(v)=d(1)
 v=0
  ' .....................................................
  2d_target_is 1
  2d_pen_width 2

  color 1,54,218,226
  for k= 2 to 900
    2d_fill_color rnd(255),0,rnd(255)
  print c(k) ," .................. ",d(k)

  if c(k)= 0 then c(k)=80
  if d(k)= 0 then d(k)=80
    if key_down_code  = 27 then terminate
  if c(k)= 0 then c(k)=c(1)
  if d(k)= 0 then d(k)=d(1)

    2d_circle  c(k),d(k),12
    2d_line  c(k),d(k), c(k-1),d(k-1)
  wait 10
  next k
 end