diff options
Diffstat (limited to 'Master/texmf/doc/tpic2pdftex/example.pic')
-rw-r--r-- | Master/texmf/doc/tpic2pdftex/example.pic | 127 |
1 files changed, 127 insertions, 0 deletions
diff --git a/Master/texmf/doc/tpic2pdftex/example.pic b/Master/texmf/doc/tpic2pdftex/example.pic new file mode 100644 index 00000000000..f0158638bbe --- /dev/null +++ b/Master/texmf/doc/tpic2pdftex/example.pic @@ -0,0 +1,127 @@ +%$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 + |