|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T t
Length: 1790 (0x6fe)
Types: TextFile
Names: »tpic-example-1.pic«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z«
└─⟦ca79c7339⟧
└─⟦this⟧ »DVIware/laser-setters/dvi-to-ps/TeXPS/doc/tpic-example-1.pic«
\def\ShowGraphBox#1{\par\hbox{#1:\qquad\vtop{\box\graph}}}
% see "PIC --- A Graphics Language for Typesetting", page 23
.PS
define Initialize X
boxwid=0.75i; boxht=0.5i
circlerad=0.25i
ellipsewid=0.75i; ellipseht=0.5i
arcrad=0.25i
linewid=0.5i; lineht=0.5i
movewid=0.5i; moveht=0.5i
arrowwid=0.05i; arrowwht=0.1i
dashwid=0.1i
scale=1
X
.PE
.PS
Initialize()
define ndblock X
box wid boxwid/2 ht boxht/2
down; box same with .t at bottom of last box; box same
X
boxht = .2i; boxwid = .3i; circlerad = .3i
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 .5i with .sw at 1st box.ne + (.4i,.2i) "..."
N1: box wid .2i "n1"; D1: box wid .3i "d1"
N3: box wid .4i "n3"; D3: box wid .3i "d3"
box wid .4i "..."
N2: box wid .5i "n2"; D2: box wid .2i "d2"
arrow right from 2nd box
ndblock
spline -> right .2i from 3rd last box then to N1.sw + (0.05i,0)
spline -> right .3i from 2nd last box then to D1.sw + (0.05i,0)
arrow right from last box
ndblock
spline -> right .2i from 3nd last box then to N2.sw-(0.05i,.2i) to N2.sw+(0.05i,0)
spline -> right .3i from 2nd last box then to D2.sw-(0.05i,.2i) to D2.sw+(0.05i,0)
arrow right 2*linewid from L
ndblock
spline -> right .2i from 3rd last box to N3.sw + (0.05i,0)
spline -> right .3i from 2nd last box to D3.sw + (0.05i,0)
circle invis "ndblock" at last box.e + (.7i,.2i)
arrow dotted from last circle to last box chop
box invis wid 2*boxwid "ndtable:" with .e at Start.w
.PE
\ShowGraphBox{17.1}