Question: Parabolic reflections - can the code be faster

This excellent application www.maplesoft.com/applications/view.aspx?SID=5523&view

demonstrates the paths of light rays against various surfaces.  Can the initialization code be made more efficient and faster?  The only thing I could think of was to remove the call to plottools and replace it with just plot and adding an extra set of square brackets around the point in the loop. 

In Maple 12 the first parabolic animation consumes 22 Mb's and 45sec. which I think is fairly normal but I have found using the same application in M15 consumes about 217Mb's and 160s!  Which suggests the code could be adjusted to be better suited for M15.  Perhaps it handles / stores loop structures more aggressively than M12 ? 

Please Wait...