Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

99 lines (78 sloc) 2.284 kb
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 15 23 305 200
%%Creator: Gisle Aas (Copyright 1998)
%require "common.ps"
%require "rect.ps"
%require "ptr.ps"
%require "break.ps"
%require "dist.ps"
/Courier 8 SF
200 62 M (I32) rshow
300 112 M (ANY) rshow
300 162 M (SV*) rshow
/Helvetica-Bold 10 SF
80 52 M (scopestack) rshow 85 55 100 55 ptrn
80 102 M (savestack) rshow 85 105 100 105 ptrn
80 152 M (tmps_stack) rshow 85 155 100 155 ptrn
240 52 M (ENTER/) show
240 40 M (LEAVE) show
/Helvetica 8 SF
80 40 M (scopestack_ix) rshow
80 30 M (scopestack_max) rshow
80 90 M (savestack_ix) rshow
80 80 M (savestack_max) rshow
80 120 M (tmps_max) rshow
/Helvetica-Oblique 8 SF
80 140 M (tmps_floor) rshow
80 130 M (tmps_ix) rshow
% scopestack
gsave 0.8 setgray 120 50 200 60 rect fill grestore
100 50 200 60 rect stroke
100 10 200 { dup 50 M 60 L stroke } for
170 62.5 break
%savestack
gsave palered [120 150 170 200 230] {100 M 10 10 rrect fill } forall grestore
gsave 0.8 setgray 240 100 300 110 rect fill grestore
100 100 300 110 rect stroke
100 10 300 { dup 100 M 110 L stroke } for
270 112.5 break
%tmps_stack
gsave 0.8 setgray 210 150 300 160 rect fill grestore
100 150 300 160 rect stroke
100 10 300 { dup 150 M 160 L stroke } for
270 162.5 break
red
100 42 20 false distance % scopestack_ix
100 32 100 false distance % scopestack_max
100 92 140 false distance % savestack_ix
100 82 200 false distance % savestack_max
100 142 80 true distance % tmps_floor
100 132 100 true distance % tmps_ix
100 122 200 false distance % tmps_max
% draw two scopestack entries
gsave
% erase the savestack lines where the arrows should be
1 setgray
5 setlinewidth
130 98 M 130 70 L stroke
180 98 M 180 70 L stroke
% same for tmps_stack lines while we have this context
120 148 M 120 115 L stroke
150 148 M 150 115 L stroke
grestore
105 55 105 75 130 75 130 102 ptrn
115 55 115 70 180 70 180 102 ptrn
% draw a saved tmps_floor (in savestack)
215 105 215 115 150 115 150 152 ptrn
135 105 135 115 120 115 120 152 ptrn
% draw some SVs pointed to by the tmps_stack
%require "sv.ps"
2 dict begin
/x 50 def
0.5 setgray
105 10 205 {
155 x 180 ptrn
gsave x 5 sub 191 translate 0.35 dup scale 0 0 sv2 grestore
/x x 20 add def
} for
end
Jump to Line
Something went wrong with that request. Please try again.