gr.open
gr.color ,0
gr.rect r,100,100,200,200
gr.color ,255,0
gr.circle c,100,400,50
gr.color ,,255,0
gr.arc a,300,200,400,300,90,270,1
gr.group g,r,c,a
gr.color ,0,0,0
gr.text.size 25
gr.text.draw txt,25,25,"-- fps"
x=1
t=clock()
do
gr.move g,x,x
z=mod(z+x,100)
if !z then x=-x
if !mod(z,10)
  gr.modify txt,"text",int$(10 000/(clock()-t))+" fps"
  t=clock()
end if
gr.render
until _end
end

onbackkey:
_end = 1
back.resume