Memory Leak Creating New Pics

[redstarcoder]

If you create many images, despite using Pic.Free, Turing will ultimately consume all the memory it's allowed to and crash. Code:

View.Set ("graphics:1024;600,offscreenonly")

var spinbox, newbox, angle : int
angle := 0

Draw.FillBox (50, 50, 150, 150, brightcyan)
spinbox := Pic.New (0, 0, 200, 200)
newbox := Pic.Rotate (spinbox, angle, 100, 100)

loop
 cls

 angle := angle + 4
 if angle >= 360 then
 angle := 0
 end if
 Pic.Free (newbox)
 newbox := Pic.Rotate (spinbox, angle, 100, 100)
 
 Pic.Draw (newbox, 600, 300, picCopy)
 
 View.Update ()
 delay (10)
end loop