/usr/share/doc/texlive-doc/tpic2pdftex/example.pic is in texlive-extra-utils 2017.20180305-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 | %$Id: example.pic,v 1.19 2007/01/14 14:03:51 hahe Exp hahe $
%***********************************************************************
\pdfcompresslevel=0
\def\gpicbox#1{\vbox{\unvbox\csname #1\endcsname\kern0pt}}
\newcount\piccount\piccount=0
\def\sep{\advance\piccount by 1%
\kern5pt\hrule\kern5pt\rlap{\smash{\lower10pt\hbox{\the\piccount}}}}
\sep
%***********************************************************************
% 1
.PS
box dotted thickness 1; arrow;
circle dotted 0.02 fill 0.1 "Hello"; arrowhead = 7; arrow; circle fill 0.1;
arrowhead = 2; arrow; circle fill 0.9; arrow; box dashed 0.1
.PE
\centerline{A\gpicbox{graph}B}
\sep
%***********************************************************************
% 2
.PS
ellipse; arrow;
\pdfliteral {q 1 0 0 RG}
ellipse dotted thickness 2;
\pdfliteral {Q}
arrow;
ellipse dashed "$\sqrt{3/7\cdot{2\over5}}$" "No.~2"; arrow;
\pdfliteral {q 0 0 1 RG}
\pdfliteral { 0.5 0.5 0.0 rg}
box rad 0.25 fill 0.05 "Hello"; arrow;
\pdfliteral {Q}
box dotted fill 0.2
.PE
\centerline{A\gpicbox{graph}B}
\sep
%***********************************************************************
% 3
.PS
line; arc; arc cw; line
.PE
\centerline{A\gpicbox{graph}B}
\sep
%***********************************************************************
% 4
.PS
spline right 1 then down .5 left 1 then right 1 ->;
line dashed right 1 then down .5 left 1 then right 1 -> at last spline
.PE
\centerline{A\gpicbox{graph}B}
\sep
%***********************************************************************
% 5
.PS
\pdfliteral {q 0 1 0 RG}
spline dashed right 1 then down .5 left 1 then down ->
\pdfliteral {Q}
line dotted 0.02 right 1 then down .5 left 1 then down -> at last spline
.PE
\centerline{A\gpicbox{graph}B}
\sep
%***********************************************************************
% 6
.PS
spline left then up right then down right ->
.PE
\centerline{A\vrule\gpicbox{graph}\vrule B}
\sep
%***********************************************************************
% 7
.PS
spline right then up then left then down ->
line dotted right then up then left then down -> at last spline
.PE
\centerline{A\gpicbox{graph}B}
\sep
%***********************************************************************
% 8
.PS
circle "x"
circle "y" at 1st circle - (0.4, 0.6)
circle "z" at 1st circle + (0.4, -0.6)
arrow from 1st circle to 2nd circle chop
arrow from 2st circle to 3rd circle chop
arrow from 3rd circle to 1st circle chop
.PE
\centerline{A\gpicbox{graph}B}
\sep
%***********************************************************************
% 9
% example borrowed from file cstr116.pdf or cstr116.ps:
% PIC --- A Graphics Language for Typesetting, User Manual,
% Brian W. Kernighan, Revised, May, 1991
.PS
define ndblock{
box wid boxwid/2 ht boxht/2
down; box same with .t at bottom of last box; box same
}
boxht = .2; boxwid = .3; circlerad = .3; dx = 0.05
down; box; box; box; box ht 3*boxht "." "." "."
L: box; box; box invis wid 2*boxwid "hashtab:" with .e at 1st box .w
right
Start: box wid .5 with .sw at 1st box.ne + (.4,.2) "..."
N1: box wid .2 "n1"; D1: box wid .3 "d1"
N3: box wid .4 "n3"; D3: box wid .3 "d3"
box wid .4 "..."
N2: box wid .5 "n2"; D2: box wid .2 "d2"
arrow right from 2nd box
ndblock
spline -> right .2 from 3rd last box then to N1.sw + (dx,0)
spline -> right .3 from 2nd last box then to D1.sw + (dx,0)
arrow right from last box
ndblock
spline -> right .2 from 3rd last box to N2.sw - (dx,.2) to N2.sw + (dx,0)
spline -> right .3 from 2nd last box to D2.sw - (dx,.2) to D2.sw + (dx,0)
arrow right 2* linewid from L
ndblock
spline -> right .2 from 3rd last box to N3.sw + (dx,0)
spline -> right .3 from 2nd last box to D3.sw + (dx,0)
circlerad=.3
circle invis "ndblock" at last box.e + (1.2,.2)
arrow dashed from last circle.w to last box chop 0 chop .3
box invis wid 2*boxwid "ndtable:" with .e at Start.w
.PE
\centerline{A\gpicbox{graph}B}
\sep
%***********************************************************************
\end
|