Mouse click --> Draw a shape

Simple

GraphicsWindow.MouseDown = mousedown
Sub mousedown
  a = Shapes.AddEllipse(10,10)
  Shapes.Move(a, GraphicsWindow.mousex, GraphicsWindow.mousey)
EndSub





Complex (Put a litle array)

GraphicsWindow.MouseDown = mousedown
i = 0
Sub mousedown
  a[i]=Shapes.AddEllipse(10,10)
  Shapes.Move(a[i], GraphicsWindow.mousex, GraphicsWindow.mousey)
  TextWindow.WriteLine(a[i])
  i = i + 1
EndSub

Mouse move --> Draw a shape

GraphicsWindow.mousemove = mousemove
Sub mousemove
  x = GraphicsWindow.MouseX
  y = GraphicsWindow.MouseY
  TextWindow.WriteLine(x + " " + y)
  sh = Shapes.AddEllipse(5,5)
  Shapes.Move(sh, x, y)
EndSub