import graphics, sdl, sdl_image, colors
import os, strutils

var surface: graphics.PSurface = newScreenSurface(640, 480)
withEvents(surface, event):
  var x:int
  x=0
  while true:
    x++
    surface.drawCircle((x, 100), 60, colRed)
    SDL.UpdateRect(surface.s, 0, 0, 640, 480)
    sleep(50)

  case event.kind
  of sdl.QUITEV:
    break
    else: nil