% append this in the prologue
%
/disc {GS 1 0.5 Sk 20 0 360 arc F GR} BD
/candle {GS M1 T Ori -20 0 L -20 150 L 20 150 L 20 0 L CP 0.95 0.95 0.8 SRGB F 0 0 disc 0.9 0.9 0.75 SRGB 0 300 disc GR } BD 
/flame {GS M2 bc SRGB f f Sk 0 50 M 50 -10 -50 -10 0 50 curveto F GR} BD
%
% append this in the body after the cake stuff
%
candle 
/bc {1 0.1 0}   D /f 1.5  D flame
/bc {1 0.5 0}   D /f 1.25 D flame
/bc {1 1 0}     D /f 0.9  D flame
/bc {1 1 1}     D /f 0.8  D flame
/bc {0.9 0.9 1} D /f 0.5  D flame
GS M2 0 10 5 15 4 arct 5 SL 0 0 0 SRGB S GR