Permalink
Fetching contributors…
Cannot retrieve contributors at this time
70 lines (57 sloc) 969 Bytes
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: -5 -5 88 70
%%Creator: Gisle Aas (Copyright 1998)
%require "common.ps"
%require "mws.ps"
%require "rect.ps"
% shadow
gsave
3 -3 translate 0.5 setgray
0 0 80 60 rect fill
grestore
% Get rid of shadow inside box
0 0 80 60 rect
gsave 1 setgray fill grestore
% ANY color box
gsave
paleblue
0 40 80 60 rect F
grestore
% type color box
gsave
palered 60 0 80 20 rect F
grestore
% flag bit marks
gsave
0.5 setgray
0.2 setlinewidth
0 60 24 div 60 {
dup 20 M 16 L S
} for
0.7 setlinewidth
20 20 M 20 15 L S
40 20 M 40 15 L S
grestore
%box
S
% dividers
0 20 M 80 20 L S
0 40 M 80 40 L S
60 0 M 60 20 L S
% text
/Helvetia 12 SF
5 45 M (ANY) show
5 25 M (REFCNT) show
5 04 M (FLAGS) show
(TYPE) 62 5 16 mws
/Courier 8 SF
80 62 M (SV) rshow
% ANY pointer
gsave
newpath 70 50 3 0 360 arc fill
%1.5 setlinewidth
%70 50 M 90 50 L S
%90 45 M 90 55 L S
%93 47 M 93 53 L S
%96 49 M 96 51 L S
grestore