/drift { % x y w h event => - (scale, translate, launch an event)
        5 1 roll		% event x y w h
        4 2 roll		% event w h x y
        translate		% event w h
        scale		% event
        dup begin		% event event
            /Name   /Repaired def		% set /Name field
            /Canvas currentcanvas def	% set /Canvas field
        end		% event
        ...
 } def