REM Start of BASIC! Program
gr.open 250,0,0,0
gr.bitmap.load v, "img.png"
gr.bitmap.scale v1, v, 30,30
gr.bitmap.draw v11, v1, 240, 170
gr.render

REM load bitmaps
dim frames[36]
for i = 1 to 36 step 1
gr.bitmap.create frames[i], 30, 30
gr.bitmap.drawinto.start frames[i]
gr.rotate.start (i-1)*10, 15, 15
gr.bitmap.draw frames[i], v1, 0, 0
gr.rotate.end
gr.bitmap.drawinto.end
gr.hide v11
gr.bitmap.draw v11, frames[i], 0, 0
next

gr.screen width, height
do
start_time = clock()
for i= 0 to 360 step 10
    gr.cls
    for lx=0 to width step 40
        for ly=0 to 160 step 40
            gr.rotate.start i, lx+15, ly+15
            gr.bitmap.draw v11, v1, lx, ly
            gr.rotate.end
        next
    next
    gr.render
next
print "Cicle 1 " + str$((clock()-start_time)/1000) + " seconds"
start_time = clock()
for i= 1 to 36 step 1
    gr.cls
    for lx=0 to width step 40
        for ly=0 to 160 step 40
            gr.bitmap.draw v11, frames[i], lx, ly
        next
    next
    gr.render
next
print "Cicle 2 " + str$((clock() - start_time)/1000) + " seconds"
until 0