a = timer()
for x = 1 to 100000
x1 = rnd(screen width())
y1 = rnd(screen height())
x2 = rnd(screen width())
y2 = rnd(screen height())
x3 = rnd(screen width())
y3 = rnd(screen height())
a2FillTriangle x1, y1, x2, y2, x3, y3, rgb(rnd(255), rnd(255), rnd(255))
next x
t1 = timer()-a
a = timer()
a2StartTriangleBatch 100000
for x = 1 to 100000
x1 = rnd(screen width())
y1 = rnd(screen height())
x2 = rnd(screen width())
y2 = rnd(screen height())
x3 = rnd(screen width())
y3 = rnd(screen height())
a2FillTriangle x1, y1, x2, y2, x3, y3, rgb(rnd(255), rnd(255), rnd(255))
next x
a2EndBatch
t2 = timer()-a
set text opaque
print "No batch:";t1;" milliseconds"
print " Batched:";t2;" milliseconds"
WAIT KEY