Pelukis1

GraphicsWindow.MouseDown = catat
GraphicsWindow.MouseMove = gambar
Sub catat
  x1 = GraphicsWindow.MouseX
  x2 = GraphicsWindow.MouseY
EndSub

Sub gambar
  If Mouse.IsLeftButtonDown Then
    GraphicsWindow.DrawLine(x1,x2,GraphicsWindow.mousex,GraphicsWindow.mousey)
  EndIf
EndSub