Permalink
Fetching contributors…
Cannot retrieve contributors at this time
39 lines (31 sloc) 1.06 KB
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: -5 155 200 305
%%Creator: Reini Urban (Copyright 2009)
%require "common.ps"
%require "box.ps"
%require "rect.ps"
%require "ptr.ps"
%require "mws.ps"
% start and root pointing to the "optree" linked list with args pointing to pads and ops
% enter nextstate gvsv const add gvsv sassign leave
% $b 42 $a
/Courier 10 SF
0 304 15 sub M (main_root) show
0 304 30 sub M (main_start) show
65 292.5 80 292.5 ptrn
65 292.5 15 sub 80 292.5 15 sub ptrn
80 300 9 box %% better would be a small space between, as it is a linked list, no struct
/Helvetica 11 SF
85 303 15 sub M
[()(enter)(nextstate)(gvsv)(const)(add)(gvsv)(sassign)(leave)] {
gsave
currentpoint 30 mws pop
grestore
0 -15 rmoveto
} forall
160 292.5 15 3 mul sub 130 292.5 15 3 mul sub ptrn % gvsv
160 292.5 15 4 mul sub 130 292.5 15 4 mul sub ptrn % const
160 292.5 15 6 mul sub 130 292.5 15 6 mul sub ptrn % const
165 303 15 sub 15 3 mul sub M (SV $b) show
165 303 15 sub 15 4 mul sub M (IV 42) show
165 303 15 sub 15 6 mul sub M (SV $a) show