%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 5 100 225 225
%%Creator: Reini Urban (Copyright 2009)

%require "common.ps"
%require "ptr.ps"

%  sassign
% $a   add 
%    $b   42
% => stacked: $b 42 add $a sassign

/Courier 10 SF
10 210 M (ENTER $b 42 ADD $a SASSIGN LEAVE) show

/arcsize 34 def /yscale 0.3 def
/y arcsize yscale mul def

/bubble % <text> <x> <y> bubble -
{ 
  gsave
    /yt exch def
    /xt exch def
    xt yt translate
    0 -2 M
    cshow          % text still on the stack
    newpath
    0.7 yscale scale
    0 0 arcsize 0 360 arc S
    % 0.9 setgray F
  grestore
} def

40 0 translate
/dy 30 def /dx 50 def
/y1 180 def
        /y2 y1 dy sub def /y3 y2 dy sub def
/x1 0 def
        /x2 x1 dx add def /x3 x2 dx add def /x4 x3 dx add def

/Helvetica 9 SF
x2 2 sub y1 y sub  x1 y2 y add ptrn % sassign->a
x2 2 add y1 y sub  x3 y2 y add ptrn % sassign->add
x3 2 sub y2 y sub  x2 y3 y add ptrn % add->b
x3 2 add y2 y sub  x4 y3 y add ptrn % add->42
(SASSIGN)  x2 y1 bubble
($a)       x1 y2 bubble
(ADD) 	   x3 y2 bubble
($b) 	   x2 y3 bubble
(42)	   x4 y3 bubble