Sub drawpointer(angle as float, offset as integer)
local integer last_x, last_y, last_w, last_h, i
for i=0 to nt-1
'rotate the pointer into the drawing array for each triangle
rotatetriangle(i,pcolour,angle,X_point+X_left,Y_point+Y_top,ptr(0),ptr(1),ptr(2),ptr(3),ptr(4),ptr(5))
NEXT i
last_x=x: last_y=y: last_w=w: last_h=h
getlimits(x, y, w, h)
blit WRITE #1, last_x, last_y, last_w, last_h 'update old rectangle with saved data
blit close #1 'free buffer
blit read #1, x, y, w, h 'save the new rectangle to memory
local integer k
do
k=getscanline()
loop while (k>0 AND k<500)
for i=0 to nt-1
'write new triangle for each triangle
triangle xx0(i), yy0(i)+offset, xx1(i), yy1(i)+offset, xx2(i), yy2(i)+offset, tcol(i),tcol(i)
NEXT i
drawpivot(offset)
End Sub