event timer;
integer liTransparency
liTransparency = integer ( dw_1.Describe ( 'p_1.transparency' ))
if liTransparency < 100 then liTransparency ++
dw_1.Modify ( 'p_1.transparency=' + string ( liTransparency ))
end event
event open;
timer ( .02 , this )
end event