V8/usr/src/cmd/pic/pictest.a
!<arch>
pt.arc 465852571 9 1 100666 1461 `
.nf
This should be a circle
.PS
arc;arc;arc;arc
.PE
This should be a wave
.PS
arc; arc cw; arc cw; arc
.PE
This should be an oval
.PS
arc; arc; line left; arc; arc; line right
.PE
This should be a ()
.PS
arc from 0,0 to 0,1.0 rad 1.0
arc from 0,1.0 to 0,0 rad 1.0
.PE
This ought to be the same
.PS
arc to 0,1.0 rad 1.
arc to 0,0
.PE
Arc down with arrow
.PS
arc cw ->
.PE
Arc up with arrow
.PS
arc ->
.PE
.bp
.ps 18
.vs 24
.PS
A: circle radius .50i "A"
circle radius .4i at A
move to A.e
move right 2i
B: circle radius .50i "B"
move down 1.5i from B.s
C: circle radius .50i "C"
move left 2i from C.w
D: circle radius .50i "D"
arc -> cw from A.e + 0,.1i to B.w + 0,.1i radius 3i
"a" at last arc.c + 0,3i + .1i
arc -> cw from B.w - 0,.1i to A.e - 0,.1i radius 3i
"a" at last arc.c - 0,3i - .1i
arc -> cw from D.e + 0,.1i to C.w + 0,.1i radius 3i
"a" at last arc.c + 0,3i + .1i
arc -> cw from C.w - 0,.1i to D.e - 0,.1i radius 3i
"a" at last arc.c - 0,3i - .1i
arc -> from A.s - .3i,0 to D.n - .3i,0 radius 3i
"b" at last arc.c - 3i + .2i,0
arc -> from D.n + .3i,0 to A.s + .3i,0 radius 3i
"b" at last arc.c + 3i + .2i,0
arc -> from B.s - .3i,0 to C.n - .3i,0 radius 3i
"b" at last arc.c - 3i + .2i,0
arc -> from C.n + .3i,0 to B.s + .3i,0 radius 3i
"b" at last arc.c + 3i + .2i,0
.PE
.PS 6i
circlerad = .5
A: circle "A"
arrow "i" above
circle "B"
arrow "g" above
circle "C"
arrow "e" above
circle "D"
arrow "\en" above
E: circle "E"
circle radius .4i at E
.PE
pt.ava 463689278 9 1 100666 407 `
.EQ
delim $$
.EN
Pictures from the dragon book.
.sp
Page 96:
.nf
.sp
.nf
.PS
w = 1.; h = .75; # for the ellipse
Center: circle rad 0.025;
move left .375; # left ellipse
ellipse wid w ht h;
move up .1; "$N sub 1$"; move down .1;
move left .25; circle diam .2; "$i$";
move to Center + .375,0; # right ellipse
move up .1; "$N sub 2$"; move down .1;
move right .25; circle diam .2; circle diam .25; "$f$";
.PE
pt.ava1 463689278 9 1 100666 1188 `
.po .25i
.PS
h = .5i
w = .75i
dh = .02i
dw = .1i
r1 = .05i
circlerad = r1
define part /
line from Start \
up dh \
then right w \
then down h \
then left dw
line from Start + (dh,dh) to Root chop 0 chop r1
Start: start of 2nd last line + (dw,dh)
/
define space /
Start: Start + (dw,dh)
/
Origin: box ht h wid w
Start: last box.nw - (0,dh)
Top: Start + (3*w,6*h)
circle at Top
fixh = h/4
define node X
Root: Start + (h/2, 3*h-fixh)
fixh = fixh + h/4
circle at Root
line from Root to Top chop
part; part; part; part; part; space; part
X
Left: node; node; node; space; space; node; node; node
right
circle rad 2*r1 at Left
circle rad 5*w/4 with .e at Origin + (-h, 6*h)
arrow from 2nd last circle to last circle \
chop 2*r1 chop last circle.rad
[
Ptr: [
boxht = h; boxwid = dw
A: box
B: box
C: box
box wid 2*boxwid "..."
D: box
]
Block: [
boxht = 2*dw; boxwid = 2*dw
movewid = 2*dh
A: box; move
B: box; move
C: box; move
box invis "..." wid 2*boxwid; move
D: box
] with .t at Ptr.s - (0,h/2)
arrow from Ptr.A to Block.A.nw
arrow from Ptr.B to Block.B.nw
arrow from Ptr.C to Block.C.nw
arrow from Ptr.D to Block.D.nw
] at last circle
.PE
pt.bsb 463689278 9 1 100664 3524 `
.EQ
delim ``
.EN
.KS
.PS 4.5i
define Colbx %box "COL"%
define BLbx %box "BL"%
define Nbx %box "N"%
u=1.
w=6*u; t=11*u
h = u
e = .05
line down t from 0,t
Bot: line right w
line up t
Box0: BLbx wid 4*w/5 ht 3*h/2 with .sw at 0,0
Box1: BLbx wid 3*w/4 ht h with .sw at Box0.nw
Box2: BLbx wid w/2 +2*e ht 3*h/2 with .sw at Box1.nw
Line1: line right w from Box2.nw
Col1: Colbx wid 5*w/12 ht h+e with .ne at Line1.end
Col2: Colbx wid w/3+e ht h/4 with .ne at Col1.se
Col3: Colbx wid w/5+e ht h+e with .ne at Col2.se
Two1: BLbx wid w/2-e ht h with .sw at Line1.start
Two2: BLbx wid 5*w/12 ht 5*h/8 with .sw at Two1.se
Two3: BLbx wid w/3+e ht h with .sw at Two2.nw
Two4: BLbx wid w/3+e ht 3*h/4 with .sw at Two1.nw
Two5: BLbx wid w/3+e ht h with .sw at Two4.r.x,Two3.t.y
Line2: line right w from 0,Two5.t.y
Col21: Colbx wid w/4+2*e ht h/2 with .ne at Line2.end
Col22: Colbx wid w/4+e ht h/4+2*e with .ne at Col21.se
Thr1: BLbx wid w/3-e ht h/2 with .sw at Line2.start
Thr2: BLbx wid w/3-e ht 3*h/4 with .sw at Thr1.se
Thr3: BLbx wid w/4+e ht h/4 with .sw at Thr2.se
Thr4: BLbx wid w/4+e ht h/2 with .sw at Thr3.nw
Thr5: BLbx wid w/4+e ht 3*h/2 with .sw at Thr1.nw
Line3: line right w from Thr5.nw
Col31: Colbx wid w/4-2*e ht h/2 with .ne at Line3.end
Col32: Colbx wid w/5+e ht h/2 with .ne at Col31.se
F1: BLbx wid w/4-e ht h/4 with .sw at Line3.start
F2: BLbx wid w/5+e ht h/2 with .sw at F1.se
F3: BLbx wid w/5+e ht 3*h/4 with .sw at F2.se
F4: BLbx wid w/5+e ht h/2-2*e with .sw at F3.se
Line4: line right w from 0,F3.nw.y
hh = 3*h/2+2*e
N1: Nbx wid w/8 ht hh with .sw at Box0.se
hh=hh-2*e
N2: Nbx wid w/16 ht hh with .sw at N1.se
hh = h
N3: Nbx wid w/20 ht hh with .sw at Box2.r.x,N1.t.y+hh
N21: Nbx wid w/15 ht hh with .sw at Two2.se
hh = 3*h/4
N22: Nbx wid w/20 ht hh with .sw at Two3.r.x,N21.t.y
hh = hh-2*e
N23: Nbx wid w/12 ht hh with .sw at N22.se
N24: Nbx wid w/35 ht hh with .sw at Two5.r.x,N22.t.y
N31: Nbx wid w/20 ht hh with .sw at Thr3.se
N32: Nbx wid w/40 ht hh with .sw at N31.se
N33: Nbx wid w/4 ht hh with .sw at Thr5.r.x,N31.t.y+hh
N34: Nbx wid w/8 ht hh-e with .sw at N33.se
N35: Nbx wid w/12 ht hh-2*e with .sw at N34.se
hh=hh-2*e
N41: Nbx wid w/12 ht hh with .sw at F4.se
N51: Nbx wid w/5 ht hh with .sw at Line4.start
N52: Nbx wid w/12 ht hh with .sw at N51.se
hh = hh - e
N53: Nbx wid w/5 ht hh with .sw at N52.se
hh = hh - e
N54: Nbx wid w/6 ht hh with .sw at N53.se
N55: Nbx wid w/20 ht hh with .sw at N54.se
hh = hh -e
N56: Nbx wid w/8 ht hh with .sw at N55.se
N57: Nbx wid w/6 ht hh with .sw at N56.se
hh = hh-e
N58: Nbx wid w/8 ht hh with .sw at N51.nw
N59: Nbx wid w/40 ht hh with .sw at N58.se
hh = hh-e
N510: Nbx wid w/5 ht hh with .sw at N59.se
Line5: line right w-N59.r.x dashed from N59.ne
H0: line right u/2 dashed from Bot.end
" `h sub 0`" at H0.end ljust
H1: line right u/2 dashed from Line1.end
" `h sub 1`" at H1.end ljust
H2: line right u/2 dashed from Line2.end
" `h sub 2`" at H2.end ljust
H3: line right u/2 dashed from Line3.end
" `h sub 3`" at H3.end ljust
H4: line right u/2 dashed from Line4.end
" `h sub 4`" at H4.end ljust
H5: line right u/2 dashed from Line5.end
" `h sub 5`" at H5.end ljust
R1: line invis from H0.start to H1.start " `R sub 1`" ljust
R2: line invis from H1.start to H2.start " `R sub 2`" ljust
R3: line invis from H2.start to H3.start " `R sub 3`" ljust
R4: line invis from H3.start to H4.start " `R sub 4`" ljust
R5: line invis from H4.start to H5.start " `R sub 5`" ljust
.PE
.sp
.ce
Figure 2. A UD packing.
.KE
pt.chop 485493360 9 1 100666 355 `
.PS
circle at .25,.25
circle at .5,1.
line from 1st circle to last circle chop
.PE
.PS
circle at 0,0
circle at -1i,-2i
line from 1st circle to last circle chop
circle at 1i,-2i
line from 1st circle to last circle chop
.PE
.PS
line from 0,0 to 0,1 to 1,1 to 1,0 to 0,0 chop
"x" at 0,0
"y" at 1,0
.PE
.PS
line from 0,0 to 1,1 chop
"x" at 0,0
"y" at 1,0
.PE
pt.corner 463689278 9 1 100666 303 `
.PS 3i
circle
line from last circle.ne "ne"
line from last circle.nw "nw" left
line from last circle.sw "sw"
line from last circle.se "se" right
.PE
.PS 3i
ellipse
line from last ellipse.ne "ne"
line from last ellipse.nw "nw" left
line from last ellipse.sw "sw"
line from last ellipse.se "se" right
.PE
pt.ellipse 463689278 9 1 100666 273 `
.PS
ellipse wid 1i ht .1i
.PE
.PS
ellipse wid 1i ht .25i
.PE
.PS
ellipse wid 1i ht .5i
.PE
.PS
ellipse wid 1i ht .75i
.PE
.PS
ellipse wid 1i ht 1i
.PE
.PS
ellipse wid .1i ht 1i
.PE
.PS
ellipse wid .25i ht 1i
.PE
.PS
ellipse wid .5i ht 1i
.PE
.PS
ellipse wid .75i ht 1i
.PE
pt.karen 463689279 9 1 100666 557 `
.EQ
delim $$
.EN
+
.PS
x = .5
# this is the start of the bottom row of box + ellipse
arrow right x
box wid x ht x/2 "$lambda sub n$"
arrow
ellipse width x ht x/2 "$mu sub n$"
arrow
# now start the top outer part
line up 3*x
arrow left 3*x/2
box wid 2*x ht x "+++ big box +++"
arrow left 3*x/2
line down 3*x
# this brings us back to A
move up 2*x
arrow right x
box wid x ht x/2 "$lambda sub 1$"
arrow
ellipse width x ht x/2 "$mu sub 1$"
arrow
# this finishes the inner row
#now to middle
# buggy: move to 5*x/2, x
"\s-2\(bu \(bu \(bu\s0" at 3*x/2, x
.PE
+
pt.knuth 463689279 9 1 100666 493 `
.PS
define ur "then up right"
define ul "then up left"
define dr "then down right"
define dl "then down left"
Center: 0,0
move down down left left
Start: spline down right dr ur ur ur ur ul ul ul ul dl dl dl dl dr dr
move down right
line down down
move left left
line right right right right right right
move left left
line up up
move to Start up up up up right
.ps 36
[ spline right right right down \
then left left left left left down down \
then right right right down ] at Center
.PE
pt.lasts 463689279 9 1 100666 4551 `
.PS 3i
.ps 8
box invis wid .5i ht .3i "System" at 0,0
box invis wid .2i ht .3i "User" at 2i, 3.5i
box invis ht .3i "Builder" at 4i,0
line -> from 1st box.t - .05i, 0 to 2nd box.sw - 0.05i, 0
box invis "user" "learning" with .se at last line.c
line <- from 1st box.t + .05i, 0 to 2nd box.sw + 0.05i, 0
box invis " personalized" " uses" with .nw at last line.c
line -> from 2nd box.se + .05i, 0 to 3rd box.t + .05i,0
box invis "middle-out" "design" with .sw at last line.c
line <- from 2nd box.se - .05i, 0 to 3rd box.t - .05i,0
box invis "facilitates" "implementation" with .ne at last line.c
line -> from 1st box.e + 0,0.05i to 3rd box.w + 0,0.05i \
"pressure for evolution" above
line <- from 1st box.e - 0,0.05i to 3rd box.w - 0,0.05i \
"evolution of system function" below
.ps
.PE
.PS
box invis "System" ht .25i wid .4i
move up .5i right .5i
box invis "User" ht .25i wid .4i
arc cw -> from top of 1st box to left of last box
arc cw -> from bottom of last box to east of 1st box
move to bottom of last box down .25i left .2i
right; line right .25i
.PE
.PS
circlerad = .1i
movewid = .4i
circle invis "S"; move; circle invis " U"
arc cw -> from top of 1st circle to top of 2nd circle
arc cw -> from bottom of 2nd circle to bottom of 1st circle
move to last circle.e + .6i,0
circle invis "U"; move; circle invis " B"; A:;
arc cw -> from top of 2nd last circle to top of last circle
arc cw -> from bottom of last circle to bottom of 2nd last circle
move to last circle.e + .6i,0
circle invis "S"; move; circle invis " B"
arc cw -> from top of 2nd last circle to top of last circle
arc cw -> from bottom of last circle to bottom of 2nd last circle
.PE
.PS
circlerad = .1i
movewid = .4i
circle invis "S"; move; circle invis " U"
arc cw -> from top of 1st circle to top of 2nd circle
arc cw -> from bottom of 2nd circle to bottom of 1st circle
.PE
.PS
circlerad = .1i
movewid = .4i
circle invis "U"; move; circle invis " B"
arc cw -> from top of 1st circle to top of 2nd circle
arc cw -> from bottom of 2nd circle to bottom of 1st circle
.PE
.PS
circlerad = .1i
movewid = .4i
circle invis "S"; move; circle invis " B"
arc cw -> from top of 1st circle to top of 2nd circle
arc cw -> from bottom of 2nd circle to bottom of 1st circle
.PE
.PS
circlerad = .1i
movewid = .4i
circle invis "U"; move; circle invis " S"
arc cw -> from top of 1st circle to top of 2nd circle
arc cw -> from bottom of 2nd circle to bottom of 1st circle
.PE
.PS 3.5i
.ps 8
arcrad = 4i
box invis wid .45i ht .3i "System" at 0,0
box invis wid .4i ht .2i "User" at 2i, 3.5i
box invis wid .45i ht .3i "Builder" at 4i,0
box invis ht .4i "Task" "Representation" at 2i, 2i
arc cw -> from 1st box.t - .05i, 0 to 2nd box.sw - 0.05i, 0
arc cw <- from 1st box.t + .05i, 0 to 2nd box.sw + 0.05i, 0
arc cw -> from 2nd box.se + .05i, 0 to 3rd box.t + .05i,0
arc cw <- from 2nd box.se - .05i, 0 to 3rd box.t - .05i,0
arc -> from 1st box.e + 0,0.05i to 3rd box.w + 0,0.05i
arc <- from 1st box.e - 0,0.05i to 3rd box.w - 0,0.05i
line <- from 2nd box.b to 4th box.t
box invis "Descriptive map of" "user processes" at last line.c
arrow from 4th box.sw to 1st box.ne
box invis "design of" "DSS functions" "commands" with .nw at last arrow.c
arrow from 4th box.se to 3rd box.nw
box invis "Prescriptive map " "of task performance" with .ne at last arrow.c
.ps
.PE
.PS 4i
.ps 8
arcrad = 4i
box invis wid .5i ht .3i "System" at 0,0
box invis wid .4i ht .25i "User" at 2i, 3.5i
box invis ht .3i "Builder" at 4i,0
box invis "Task" "Representation" at 2i, 2i
box invis ht .4i "Organization's" "Technology (T)" at -1i, -1i
arrow dashed from last box.t - .1i,0 to 1st box.b - .1i,0
arrow dashed from 1st box.b + .1i,0 to last box.t + .1i, 0
box invis ht .7i "Organizational" "Procedures and" "Systems (O)" at 2i, 4.5i
arrow dashed from last box.b - .1i,0 to 2nd box.t - .1i, 0
arrow <- dashed from last box.b + .1i,0 to 2nd box.t + .1i, 0
box invis ht .75i "Organization" "Charter and" "Location" at 5i, -1i
arrow dashed from last box.t - .1i,0 to 3rd box.b - .1i,0
arrow dashed <- from last box.t + .1i,0 to 3rd box.b + .1i,0
arc cw -> from 1st box.t - .05i, 0 to 2nd box.sw - 0.05i, 0
arc cw <- from 1st box.t + .05i, 0 to 2nd box.sw + 0.05i, 0
arc cw -> from 2nd box.se + .05i, 0 to 3rd box.t + .05i,0
arc cw <- from 2nd box.se - .05i, 0 to 3rd box.t - .05i,0
arc -> from 1st box.e + 0,0.05i to 3rd box.w + 0,0.05i
arc <- from 1st box.e - 0,0.05i to 3rd box.w - 0,0.05i
line from 2nd box.b to 4th box.t
arrow from 4th box.sw to 1st box.ne
arrow from 4th box.se to 3rd box.nw
.ps
.PE
pt.line 468782912 9 1 100666 262 `
.sp 3i
.PS
line
.PE
.PS
line right
.PE
.PS
line right up
.PE
.PS
line up then right then down right
.PE
.PS
line
line dotted
line dashed
line
.PE
.PS
line right 6i dashed 1i
.PE
.PS
line right 6i dashed 2i
.PE
.PS
line from 0,0 by 1,0 by 0,1 by -1,0 by 0,-1
.PE
pt.parser 463689279 9 1 100666 901 `
.nf
.ll 5i
Dragon book, page 388:
.sp
.PS
x = .5; y = .325; # dimensions of the boxes
LA:
box wid x ht y "lexical" "analyzer";
arrow right x/2 from LA.w - x/2,0 "" "" "source" "code";
Parser:
box at LA + 2*x, 0 "parser";
arrow from LA.e to Parser.w "" "tokens";
Sem:
box at Parser + 5*x/2, 0 "semantic" "checker";
arrow from Parser.e to Sem.w "" "" "intermediate" "code";
arrow from Sem.e right x/2;
LC:
box at LA + 0, 2*y "lexical" "corrector";
arrow from LA.t to LC.b <->;
Syn:
box at LC + 2*x, 0 "syntactic" "corrector";
arrow from Parser.t to Syn.b <->;
DMP:
box wid x ht x at Syn + 0,2*y "diagnostic" "message" "printer";
arrow from LC.ne to DMP.sw;
arrow from Syn.t to DMP.b;
arrow from Sem.nw to DMP.se;
ST:
box at DMP + 5*x/2,0 "symbol" "table";
arrow <-> from Sem.t to ST.b;
arrow <-> from DMP.r to ST.l;
.PE
.sp 2
.ce
\f3Fig. 11.1.\fP Plan of an error detector/corrector
pt.ravi 463689279 9 1 100664 1311 `
.PP
this is figure 3
.KS
.nf
.PS 6i
"$upd$" at 100,300;
line from 80,280 to 20,220;
arc cw to 0,220;
line to 0,360;
arc cw to 40,400 radius 40;
line -> to 180,400;
"$upd$" at 200,400;
line -> from 180,380 to 120,320;
line -> from 100,280 to 120,220;
"\f2L2\fP" at 100,200;
line from 120,280 to 180,220;
arc to 220,200;
line to 280,200;
arc to 320,220;
line to 580,560;
arc cw to 620,580;
line -> to 680,520;
line -> from 200,380 to 220,320;
"\f2L1\fP" at 200,320;
line from 220,380 to 280,320;
arc to 320,320;
line to 580,660;
arc cw to 620,680;
line -> to 680,620;
"$a sub 1$" at 700,600;
line -> from 700,580 to 700,520;
"$a sub 2$" at 700,500;
line from 700,480 to 700,420;
"$b sub 1$" at 700,400;
line -> from 680,380 to 620,320;
"$app$" at 600,300;
line from 580,280 to 520,220;
arc cw to 480,220;
line to 320,480;
arc to 280,480;
line -> to 220,420;
line -> from 620,280 to 680,220;
"\f2L1\fP" at 700,200;
line -> from 720,380 to 780,320;
"$a sub 3$" at 800,300;
line -> from 800,280 to 800,220;
"$b sub 2$" at 800,200;
line -> from 780,180 to 720,120;
"$app$" at 700,100;
line from 680,80 to 620,20;
arc cw to 580,0;
line to 520,0;
arc cw to 480,20;
line to 320,480;
line -> from 820,180 to 880,120;
"$I$" at 900,100;
line -> from 720,80 to 780,20;
"\f2L2\fP" at 800,0;
.PE
.sp 2
.ce
Figure 3.
.sp 2
.KE
pt.ravi.1 463689280 9 1 100664 2637 `
.KS
.PS
scale = 225;
"$e$";
line <- from Here + 20,20 up 60 right 60;
"\f4upd\fP" at Here + 20,20;
{
line -> from Here + 0,-20 down 60 right 20;
"\f2L2\fP" at Here + 0,-20;
}
{
line -> from Here + 20,-20 down 60 right 60;
"\f4app\fP" at Here + 20,-20;
{ line -> from Here + 20,-20 down 60 right 60; "\f2L2\fP" at Here + 20,-20; }
line -> from Here + -20,-20 down 60 left 60;
"$e sub m$" at Here + -20,-20;
}
line <- from Here + 20,20 up 60 right 60;
"\f4upd\fP" at Here + 20,20;
{
line -> from Here + 0,-20 down 60 right 20;
"\f2L1\fP" at Here + 0,-20;
}
{
line -> from Here + 20,-20 down 160 right 60;
"\f4app\fP" at Here + 20,-20;
{ line -> from Here + 20,-20 down 60 right 60; "\f2L1\fP" at Here + 20,-20; }
line -> from Here + -20,-20 down 60 left 160;
}
move to Here + 500,200;
{
"$a sub 1$";
line -> from Here + 0,-20 down 60;
"$a sub 2$" at Here + 0,-20;
line -> from Here + 0,-20 down 60;
"$b sub 1$" at Here + 0,-20;
{
line -> from Here + -20,-20 down 60 left 60;
"\f4app\fP" at Here + -20,-20;
{
line -> from Here + 20,-20 down 60 right 60;
"\f2L1\fP" at Here + 20,-20;
}
spline -> from Here + -20,-20 to Here + -100,-100 to Here + -200,200 to Here + -380,120;
}
line -> from Here + 20,-20 down 60 right 60;
"$a sub 3$" at Here + 20,-20;
line -> from Here + 0,-20 down 60;
"$b sub 2$" at Here + 0,-20;
{
line -> from Here + -20,-20 down 60 left 60;
"\f4app\fP" at Here + -20,-20;
{
line -> from Here + 20,-20 down 60 right 60;
"\f2L2\fP" at Here + 20,-20;
}
spline -> from Here + -20,-20 to Here + -100,-100 to Here + -300,100 to Here + -400,400 to Here + -480,320;
}
line -> from Here + 20,-20 down 60 right 60;
"$I$" at Here + 20,-20;
}
arc <- from Here + 0,20 to Here + -80,180 radius 200;
"\f4upd\fP" at Here + -20,20;
{
{
line -> from Here + 0,-20 down 60 right 20;
"\f2L1\fP" at Here + 0,-20;
}
line -> from Here + -20,-20 down 60 left 60;
"\f4upd\fP" at Here + -20,-20;
{
line -> from Here + 0,-20 down 60 right 20;
"\f2L2\fP" at Here + 0,-20;
}
{ line -> from Here + 20,-20 down 160 right 160; }
line -> from Here + -20,-20 down 60 left 60;
"\f4nil\fP" at Here + -20,-20;
}
line dashed from Here + -40,0 left 640;
arc to Here + -20,-20 rad 20;
line dashed down 660;
arc to Here + 20,-20 rad 20;
line dashed to Here + 160,0;
.PE
.sp 2
.FI 5
The dashed line connects vertices that are merged when an
instance of the least fixed point operator is eliminated, as in
Figure 2.
.KE
pt.sally 463689280 9 1 100666 1669 `
.PS 5.5i
circlerad = 0.05i
define pin | "\(bu" at end of last line |
define node |circle|
define chip |
[ N1: node
N2: node at N1 + (-.15i,-.2i); line from N1.c to last circle chop
N3: node at N1 + (.15i,-.2i); line from N1.c to last circle chop
N4: node at N2.c + (-.075i,-.2i); line from N2.c to last circle chop
N5: node at N2.c + (.075i,-.2i); line from N2.c to last circle chop
N6: node at N3 + (-.075i,-.2i); line from N3.c to last circle chop
N7: node at N3 + (.075i,-.2i); line from N3.c to last circle chop
N0: node at N1 + (.4i,0)
Bll: (N4.w,N4.s) - (.1i,.1i)
Bul: (Bll, N1.n) + (0,.1i)
Bur: (N0.e,Bul) + (.1i,0)
Blr: (Bur, Bll)
line from Bll to Bul to Bur to Blr to Bll
line from N1.n up .1i; SP: pin
line from N0.n up .1i; P: pin
line from N0.sw to N0.s - (.1i,0); line up .2i; L: pin
line from N0.se to N0.s + (.1i,0); line up .2i; R: pin
] |
define twochips |
[ A: chip
BLL: A.Bll - (.1i,.1i)
BUL: BLL + (0,1i)
B: chip with .w at A.e + (.15i,0)
BLR: B.Blr + (.1i,-.1i);
BUR: (BLR,BUL);
arc cw from A.SP to A.L
arc from B.SP to A.R
line dashed from BLL to BUL to BUR to BLR to BLL
line from A.P to (A.P,BUL); SP: pin
line from B.L to (B.L,BUL); L: pin
line from B.R to (B.R,BUL); R: pin
line from B.P to (B.P,BUL); P: pin
] |
C: twochips
OBLL: C.BLL - (.1i,.1i)
OBUL: OBLL + (0,1.5i)
D: twochips with .w at C.e + (.25i,0)
OBLR: D.BLR + (.1i,-.1i)
OBUR: (OBLR, OBUL)
arc cw from C.SP to C.L
arc from D.SP to C.R
line dotted from OBLL to OBUL to OBUR to OBLR to OBLL
line from C.P to (C.P,OBUL); SP: pin
line from D.L to (D.L,OBUL); L: pin
line from D.R to (D.R,OBUL); R: pin
line from D.P to (D.P,OBUL); P: pin
.PE
pt.spline 463689280 9 1 100666 223 `
.nf
.PS
box "thing 1"
spline -> right 1.5 down .2 then left 1 down .2 then down .2 right 1.5
box "thing 2"
.PE
.PS 4i
box "thing 1"
spline -> right 1.5 down .2 then left 1 down .2 then down .2 right 1.5
box "thing 2"
.PE
pt.statediag 463689280 9 1 100664 275 `
.po .3i
.fp 8 US
.ft US
.ps 20
.PS
circlerad = .8i
circle
arrow right 3i
circle
arc -> from top of last circle to top of last circle + -1.5i,1.5i rad 3i
left
circle
arc -> to top of 1st circle rad 3i
.ps 60
"d" at 1st circle.c
"D" at 2nd circle.c
"v" at 3rd circle.c
.ps
.PE
pt.tbl 463689280 9 1 100666 185 `
.EQ
delim $$
.EN
xxxx
.TS
center, expand, doublebox;
c c c.
box circle ellipse
T{
.PS
box "$b sub 1$"
.PE
T} T{
.PS
circle "$c sub 1$"
.PE
T} T{
.PS
ellipse "$e sub 1$"
.PE
T}
.TE
yyyy
pt.tree 463689280 9 1 100666 849 `
.EQ
delim $$
.EN
.PS
circlerad = .15i
d = .5i
s = .3i
define tree X
{ R: $1; move to R
{ line from R to R - $4,d chop; line from R to R + $4,-d chop }
{ move left $4 down d - circlerad; $2; }
{ move right $4 down d - circlerad; $3; }
}
X
.PE
This is a simple tree:
.PS
tree(circle "root", circle "left", circle "right", .3i)
.PE
This one is harder.
.PS
tree(circle "+", circle "$op sub 1$", tree(circle "*", circle "$op sub 2$", circle "$op sub 3$", .3i) , .3i)
.PE
This one is even worse:
.PS
tree(circle "+", tree(circle "*", circle "$op sub 1$", circle "$op sub 2$",.3i), tree(circle "+", circle "$op sub 3$", circle "$op sub 4$",.3i),.6i)
.PE
.PS
tree(circle invis "+", tree(circle invis "*", circle invis "$op sub 1$", circle invis "$op sub 2$",.3i), tree(circle invis "+", circle invis "$op sub 3$", circle invis "$op sub 4$",.3i),.6i)
.PE
pt.with 463689280 9 1 100666 243 `
.PS
ellipse
ellipse with .ne at last ellipse.sw
.PE
.PS
box with .sw at 0,0
box with .ne at last box.sw
.PE
.PS
box
box ht .25i width .25i with .sw at last box.se
box ht .15i width .5 with .sw at last box.se
circle with .sw at last box.ne
.PE
pt.jap 463689280 9 1 100666 8856 `
!<arch>
j.a 323723756 9 1 100666 132 `
.PS
scale = 200
line from 0,220 to 116,220
arc cw to 140,152 rad 38
arc cw to 63,108 rad 134
line from 63,168 to 63,58
arc cw to 7,0 rad 60
.PE
j.cdot 323887266 9 1 100666 82 `
.PS
line from 52,137 to 52,103
line to 102,103
line to 102,137
line to 52,137
.PE
j.chi 323885532 9 1 100666 120 `
.PS
arc cw from 144,240 to 8,219 rad 402
line from 0,131 to 154,131
line from 88,225 to 88,89
arc cw to 28,0 rad 97
.PE
j.circle 323989443 9 3 100666 32 `
.PS
circle at 51,189 rad 51
.PE
j.comma 323887201 9 1 100666 94 `
.PS
line from 24,-51 to 84,49
line to 124,49
line to 124,39
line to 34,-51
line to 24,-51
.PE
j.ddot 323887068 9 1 100666 62 `
.PS
line from 0,240 to 46,144
line from 80,234 to 126,140
.PE
j.e 323883213 9 1 100666 86 `
.PS
line from 9,170 to 145,170
line from 77,170 to 77,12
line from 0,12 to 154,12
.PE
j.elong 323887237 9 1 100666 79 `
.PS
line from 7,125 to 7,115
line to 147,115
line to 147,125
line to 7,125
.PE
j.fu 323886062 9 1 100666 83 `
.PS
line from 0,224 to 120,224
arc cw to 148,196 rad 28
arc cw to 32,0 rad 228
.PE
j.ha 323885981 9 1 100666 94 `
.PS
arc cw from 28,198 to 0,0 rad 426
arc cw from 108,228 to 154,44 rad 424
line to 154,0
.PE
j.he 323886097 9 1 100666 83 `
.PS
line from 0,144 to 23,197
arc cw to 72,204 rad 28
arc cw to 154,13 rad 400
.PE
j.hi 323958989 9 1 100666 116 `
.PS
line from 23,176 to 154,176
line from 23,240 to 23,37
arc to 60,0 rad 37
line to 78,0
arc to 154,20 rad 160
.PE
j.ho 323886148 9 1 100666 133 `
.PS
line from 0,184 to 154,184
line from 77,240 to 77,0
arc cw from 20,122 to 0,27 rad 258
arc cw from 136,115 to 154,26 rad 255
.PE
j.i 323724624 9 1 100666 70 `
.PS
arc cw from 154,240 to 0,130 rad 352
line from 92,179 to 92,0
.PE
j.ka 323883396 9 1 100666 169 `
.PS
line from 0,184 to 130,184
arc cw to 154,160 rad 24
line to 154,30
arc cw to 124,0 rad 30
arc cw to 89,8 rad 70
line from 55,240 to 55,185
arc cw to 0,8 rad 332
.PE
j.ke 323958345 9 1 100666 122 `
.PS
arc cw from 34,240 to 0,136 rad 176
line from 23,178 to 154,178
line from 105,178 to 105,89
arc cw to 16,0 rad 89
.PE
j.ki 323883440 9 1 100666 87 `
.PS
line from 8,184 to 145,184
line from 0,104 to 154,104
line from 73,240 to 83,0
.PE
j.ko 323958455 9 1 100666 88 `
.PS
line from 4,203 to 108,203
arc cw to 136,175 rad 28
line to 136,14
line to 0,14
.PE
j.ku 323958154 9 1 100666 104 `
.PS
arc from 0,136 to 46,224 rad 146
line to 132,224
arc cw to 154,202 rad 22
arc cw to 0,6 rad 247
.PE
j.lquote 323887297 9 1 100666 63 `
.PS
line from 47,240 to 47,100
line from 47,240 to 154,240
.PE
j.ma 323886194 9 1 100666 108 `
.PS
line from 0,227 to 124,227
arc cw to 148,179 rad 30
line to 65,63
arc cw from 0,96 to 108,0 rad 153
.PE
j.me 323886329 9 1 100666 80 `
.PS
arc cw from 122,232 to 0,0 rad 252
arc cw from 32,146 to 144,58 rad 243
.PE
j.mi 323886246 9 1 100666 118 `
.PS
arc cw from 13,223 to 136,220 rad 252
arc cw from 24,136 to 119,132 rad 255
arc cw from 0,24 to 154,0 rad 256
.PE
j.mo 323886381 9 1 100666 130 `
.PS
line from 8,226 to 143,226
line from 0,142 to 154,142
line from 68,226 to 68,36
arc to 104,0 rad 36
arc to 154,12 rad 108
.PE
j.mu 323959801 9 1 100666 102 `
.PS
line from 79,228 to 3,41
arc to 22,8 rad 22
line to 133,8
arc to 152,39 rad 21
line to 132,83
.PE
j.n 323970403 9 1 100666 118 `
.PS
arc cw from 6,185 to 82,178 rad 204
line from 3,24 to 0,0
line to 30,0
arc to 154,124 rad 124
line to 154,144
.PE
j.na 323885746 9 1 100666 83 `
.PS
line from 0,180 to 154,180
line from 91,240 to 91,80
arc cw to 22,0 rad 80
.PE
j.ne 323885877 9 1 100666 163 `
.PS
line from 77,240 to 77,196
line from 12,196 to 116,196
arc cw to 131,152 rad 25
line to 0,44
line from 77,107 to 77,0
arc cw from 95,122 to 154,62 rad 211
.PE
j.ni 323885775 9 1 100666 65 `
.PS
line from 12,186 to 142,186
line from 0,12 to 154,12
.PE
.PE
j.no 323885910 9 1 100666 43 `
.PS
arc cw from 145,218 to 0,0 rad 270
.PE
j.nu 323958864 9 1 100666 108 `
.PS
line from 10,231 to 120,231
arc cw to 140,191 rad 25
line to 0,0
arc cw from 0,146 to 154,0 rad 244
.PE
j.o 323958066 9 1 100666 98 `
.PS
line from 0,182 to 154,182
line from 100,240 to 100,0
arc cw from 100,169 to 0,49 rad 384
.PE
j.period 323887158 9 1 100666 75 `
.PS
line from 52,34 to 52,0
line to 102,0
line to 102,34
line to 52,34
.PE
j.ra 323886583 9 1 100666 111 `
.PS
line from 12,228 to 142,228
line from 0,158 to 135,158
arc cw to 154,139 rad 19
arc cw to 36,0 rad 143
.PE
j.re 323886707 9 1 100666 85 `
.PS
line from 12,230 to 12,0
line to 26,0
arc to 154,128 rad 128
line to 154,144
.PE
j.ri 323886611 9 1 100666 87 `
.PS
line from 30,222 to 30, 94
line from 120,228 to 120,80
arc cw to 84, 0 rad 108
.PE
j.ro 323962149 9 1 100666 127 `
.PS
line from 12,12 to 4,162
arc cw to 26,184 rad 22
line to 128,184
arc cw to 150,162 rad 22
line to 142,12
line to 12,12
.PE
j.rquote 323887313 9 1 100666 47 `
.PS
line from 107,140 to 107,0
line to 0,0
.PE
j.ru 323886674 9 1 100666 116 `
.PS
line from 7,230 to 7,51
arc cw to 0,0 rad 192
line from 77,232 to 77,0
arc to 154,90 rad 90
line to 154,131
.PE
j.sa 323883672 9 1 100666 113 `
.PS
line from 0,184 to 154,184
line from 36,240 to 36,116
line from 120,240 to 120,98
arc cw to 56,0 rad 108
.PE
j.se 323883897 9 1 100666 154 `
.PS
line from 0,184 to 124,184
arc cw to 140,129 rad 30
arc cw to 106,107 rad 165
line from 41,240 to 41, 38
arc to 78,0 rad 38
arc to 150,14 rad 151
.PE
j.shi 323883758 9 1 100666 154 `
.PS
line from 6,211 to 68,211
line from 0,136 to 63,136
line from 0,34 to 0,15
arc to 15,0 rad 15
line to 22,0
arc to 154,132 rad 132
line to 154,164
.PE
j.so 323885362 9 1 100666 86 `
.PS
line from 0,206 to 34,139
line from 154,240 to 154,207
arc cw to 40,0 rad 245
.PE
j.su 323883820 9 1 100666 107 `
.PS
line from 8,232 to 97,232
arc cw to 117,196 rad 24
line to 0,0
arc cw from 79,131 to 154,0 rad 164
.PE
j.ta 323885470 9 1 100666 156 `
.PS
arc from 0,140 to 40,231 rad 90
line to 138,231
arc cw to 154,215 rad 16
line to 154,196
arc cw to 0,0 rad 202
arc cw from 68,136 to 150,62 rad 172
.PE
j.te 323958735 9 1 100666 111 `
.PS
line from 10,221 to 144,221
line from 0,156 to 154,156
line from 88,156 to 88,80
arc cw to 20,0 rad 81
.PE
j.to 323885716 9 1 100666 71 `
.PS
line from 48,240 to 48,0
arc cw from 48,157 to 143,111 rad 122
.PE
j.tsu 323885569 9 1 100666 113 `
.PS
line from 0,222 to 12,146
line from 68,229 to 78,160
line from 154,234 to 154,161
arc cw to 32,0 rad 167
.PE
j.u 323725379 9 1 100666 149 `
.PS
line from 77,240 to 77,184
line from 0,116 to 0, 160
arc cw to 24,184 rad 24
line to 130,184
arc cw to 154,160 rad 24
arc cw to 46,0 rad 148
.PE
j.wa 323886797 9 1 100666 137 `
.PS
line from 0,128 to 0,198
arc cw to 24,222 rad 24
line to 130,222
arc cw to 154,198 rad 24
line to 154,124
arc cw to 85,0 rad 146
.PE
j.wo 323886893 9 1 100666 127 `
.PS
line from 0,226 to 134,226
arc cw to 146,214 rad 12
line to 146,165
arc cw to 54,0 rad 195
line from 21,128 to 143,128
.PE
j.ya 323886415 9 1 100666 101 `
.PS
line from 0,184 to 124,184
arc cw to 143,130 rad 30
line to 116,105
line from 44,240 to 64,0
.PE
j.yo 323886530 9 1 100666 128 `
.PS
line from 6,209 to 126,209
arc cw to 150,185 rad 24
line to 150,12
line from 12,119 to 150,119
line from 0,12 to 150,12
.PE
j.yu 323960001 9 3 100666 99 `
.PS
line from 14,207 to 82,207
arc cw to 108,168 rad 28
line to 68,12
line from 0,12 to 154,12
.PE
pt.hartwell 463689281 9 1 100666 2524 `
.PS
boxwid=2.0i
psize=.06
.ps 9
#
define memsect X box ht $3 $4 $5 $6 $7 $8 $9 ; \
move to last box.nw ; \
move left psize/2 then down psize*3/2 ; \
$1 rjust ; \
move to last box.sw ; \
move left psize/2 then up psize ; \
$2 rjust ; \
move to last box.s ; \
down ; \
X
#
define filler X box ht $1 $2 $3 $4 $5 $6 $7 $8 $9 ; \
move to last box.s ; \
down ; \
X
#
define bracket X move to $1.ne then down psize*2 ; \
line <- right psize*5 ; \
move to $2.se then up psize*2 ; \
line <- right psize*5 ; \
line from 2nd last line.r to last line.r ; \
line right from last line.c ; \
$3 ljust ; \
move to $2.s ; \
down ; \
X
#
#
#
Traps: memsect("0", "034", 0.4i, "Processor Traps")
filler(0.25i)
memsect("060-4", "", psize*3, "Console Interrupts")
filler(0.25i)
memsect("0100", "", psize*3, "60 Hz Line Clock")
EndT: memsect("0104", "0776", 0.6i)
#
bracket(Traps, EndT, " Low Core Vectors")
#
move down 0.1i
Start: memsect("01000", "", 0.25i, "start:")
filler(0.75i, "main()", ".", ".", "goto start;")
filler(0.35i, "user subroutines")
filler(0.35i, "device drivers")
filler(0.75i, "standard libraries")
filler(0.75i, "initialized data", "and", "BSS data")
filler(0.5i invis, "Available memory")
line <- from last box.sw to last box.nw
line <- from last box.se to last box.ne
line <- from last box.s to last box.n
move to last box.s
move down 0.2i
EndS: memsect("", "157776", 0.5i invis, "stack")
line -> from last box.sw to last box.nw
line -> from last box.se to last box.ne
line <- from last box.n to last box.s
line from last box.sw to last box.se
#
bracket(Start, EndS, " Downloaded Program (Max 56Kb)")
#
move down 0.1i
Devs: memsect("160000", "", 0.5i)
memsect("173000", "173776", 0.35i, "ROM Boot")
filler(0.25i)
memsect("177560-6", "", psize*3, "Console registers")
EndD: memsect("", "177776", 0.5i)
#
bracket(Devs, EndD, " Device Registers")
#
.PE
.PS
Locore: box "Low Core" "Vectors"
line -> right from Locore.e
DevDr: box "Device" "Drivers"
move to Locore.s
move down
Init: box "Initialize"
line <- left from Init.w
Start: circle "Start"
move to Init.s
line -> down
Main: box ht 2*boxht "User" "Program"
move to Main.ne then down Main.ht/8
line <-> right
DevLib: box "Device" "Libraries"
move to DevLib.n
line <-> to DevDr.s
move to Main.se then up Main.ht/8
line <-> right
Libs: box "Standard" "Libraries"
move to Main.s
line -> down
Reset: box "reset"
line down then left Reset.x - Start.x
line -> to Start.s
.PE
pt.ravi.2 463689281 9 1 100666 6395 `
.PS
# u = 40;
u = 40/200;
boxwid = 2*u; boxht = u;
ellipsewid = 2*u; ellipseht = u;
d = 6*u/5;
define test % line down u left u; line down u right u; line up u right u; line up u left u; %
down;
ellipse "$bi start$";
line down d/2;
P0: "$\(bu$"; { move right u/2; "$p sub 0$"; }; line -> down d/2;
box "$f$";
line down d/2;
P1: "$\(bu$"; { move left u/2; "$p sub 1$"; }; line -> down d/2;
B1: test();
move down u;
"$b sub 1$";
{ move left u;
spline -> from Here to Here + -2*u,0 to Here + -2*u,2*u+3*d/2 to P0.w;
}
move right u;
spline -> from Here to Here + 2*u,0 to Here + 2*u,-u-d/2;
P2: "$\(bu$"; {move right u/2; "$p sub 2$";}
line down d/2;
box "$g$";
line -> down d;
B2: test();
move down u;
"$b sub 2$";
{ move right u;
spline -> from Here to Here + 2*u,0 to Here + 2*u,3*d/2+5*u to P1.e;
}
move left u;
spline -> from Here to Here + -d,0 to Here + -d,-d;
down;
box "$h$";
line down d/2; "$\(bu$"; { move right u/2; "$p sub 3$"; }; line -> down d/2;
B3: test();
move down u;
"$b sub 3$";
{ move left u;
spline -> from Here to Here + -d,0 to Here + -d,7*d/2+4*u to P2.w;
}
move right u;
spline -> from Here to Here + d,0 to Here + d,-d;
down;
box "$bi out$";
.PE
.bp
.PS
.ps 9
.sp
u = 40;
u = 40/200
boxwid = 3*u; boxht = 2*u;
ellipsewid = 3*u; ellipseht = 2*u;
linewid = 2*u; lineht = 2*u;
movewid = 2*u; moveht = 2*u;
LA: box "lexical" "analyzer"
arrow
P: box "parser," "graph" "builder"
arrow
box "reducer"
arrow
box "code" "generator"
arrow
ellipse "code"
arrow <- from LA.n up
LX: box "\f1LEX\fP"
arrow <- from LX.w left
Tok: ellipse "Ltok.r"
move to Tok.n
move up
Sem: ellipse "Lsem.d"
arrow -> from Sem.e right
D: box "d2y"
arrow -> right "Lsem.y" above
Y2: box "\f1YACC\fP"
arrow from Y2.s to P.n
arrow <- from LA.w left
Prog: ellipse "prog.L"
move to Prog.e
move right u down 2*u
LC: Here
line dotted right 15*u
line dotted up 12*u
line dotted left 15*u
line dotted down 12*u
.PE
.bp
.PS
scale = 225;
x = 15/225; y = 3*x; z = 5*x;
define dr % move down x right x; line -> down y right y; move down x right x; %
define dl % move down x left x; line -> down y left y; move down x left x; %
define ur % move up x right x; line <- up y right y; move up x right x; %
define ul % move up x left x; line <- up y left y; move up x left x; %
move to Here + 5*z,z;
{
"#b sub 1#";
line -> from Here + 0,-x down y;
"#b sub 2#" at Here + 0,-x;
{
dl;
"#bi app#";
{
dr; "L1";
}
spline -> from Here + -x,-x to Here + -z,-z to Here + -2*z,2*z to Here + x-4*z,x+z;
}
spline -> from Here + x,-x to Here + z,-z to Here + z,x-2*z;
move down x;
"#b sub 3#";
{
dr; "fall";
}
{
dl; "#bi app#";
{
dr; "L2";
}
spline -> from Here + -x,-x to Here + -z,-z to Here + -3*z,z to Here + -4*z,4*z to Here + x-5*z,x+3*z;
}
}
.PE
.bp
.PS
scale = 225;
x = 15/225; y = 3*x; z = 5*x;
define dr % move down x right x; line -> down y right y; move down x right x; %
define dl % move down x left x; line -> down y left y; move down x left x; %
define ur % move up x right x; line <- up y right y; move up x right x; %
define ul % move up x left x; line <- up y left y; move up x left x; %
"e";
ur;
"e' #bi updl#";
{ line -> from Here + x,-x down y+z right y;
"list" at Here + x,-x;
}
move to Here + 5*z,z;
{
"#b sub 1#";
line -> from Here + 0,-x down y;
"#b sub 2#" at Here + 0,-x;
{
dl;
"#bi app#";
{
dr; "L1";
}
spline -> from Here + -x,-x to Here + -z,-z to Here + -2*z,2*z to Here + x-4*z,x+z;
}
spline -> from Here + x,-x to Here + z,-z to Here + z,x-2*z;
move down x;
"#b sub 3#";
{
dr; "fall";
}
{
dl; "#bi app#";
{
dr; "L2";
}
spline -> from Here + -x,-x to Here + -z,-z to Here + -3*z,z to Here + -4*z,4*z to Here + x-5*z,x+3*z;
}
}
move up z;
"L1";
move up x right x;
line <- up y/2 right y/2;
"#\(bu#";
{
spline -> from Here to Here + z/2,-z/2 to Here + -y/2,x-3*z/2;
}
line <- up z/2 right z/2;
"#\(bu#";
{
line -> down z right z;
"#\(bu#";
{
line -> down y/2 right y/2;
move down x right x;
"#bi nil#";
}
line down z/2 left z/2;
"#\(bu#";
{
line -> down y/2 left y/2;
move down x left x;
"L2";
}
spline -> from Here to Here + z/2,-z/2 to Here + -z-y/2,x-3*z/2;
}
line dashed from Here + -x,0 to Here + x-8*z,0;
arc to Here + -x,-x rad x;
line dashed down 5*z-2*x;
arc to Here + x,-x rad x;
line dashed right y/2+2*z;
.PE
.bp
.PS
scale = 225;
x = 15/225; y = 3*x; z = 5*x;
define dr % move down x right x; line -> down y right y; move down x right x; %
define dl % move down x left x; line -> down y left y; move down x left x; %
define ur % move up x right x; line <- up y right y; move up x right x; %
define ul % move up x left x; line <- up y left y; move up x left x; %
"e";
ur;
"#bi upd#";
{
line -> from Here + 0,-x down y right x;
"L2" at Here + 0,-x;
}
{
spline -> from Here + x,-x to Here + z,-z to Here + 2*z,-z to Here + 5*z,2*z to Here + 6*z-x,z+x;
}
ur;
"#bi upd#";
{
line -> from Here + 0,-x down y right x;
"L1" at Here + 0,-x;
}
{
spline -> from Here + x,-x to Here + z,-z to Here + 4*z,2*z to Here +5*z-x,z+x;
}
move to Here + 5*z,z;
{
"#b sub 1#";
line -> from Here + 0,-x down y;
"#b sub 2#" at Here + 0,-x;
{
dl;
"#bi app#";
{
dr; "L1";
}
spline -> from Here + -x,-x to Here + -z,-z to Here + -2*z,2*z to Here + x-4*z,x+z;
}
spline -> from Here + x,-x to Here + z,-z to Here + z,x-2*z;
move down x;
"#b sub 3#";
{
dr; "fall";
}
{
dl; "#bi app#";
{
dr; "L2";
}
spline -> from Here + -x,-x to Here + -z,-z to Here + -3*z,z to Here + -4*z,4*z to Here + x-5*z,x+3*z;
}
}
.PE
.bp
.PS
scale = 225;
x = 15/225; y = 3*x; z = 5*x;
define dr % move down x right x; line -> down y right y; move down x right x; %
define dl % move down x left x; line -> down y left y; move down x left x; %
define ur % move up x right x; line <- up y right y; move up x right x; %
define ul % move up x left x; line <- up y left y; move up x left x; %
{
"#b sub 1#";
line -> from Here + 0,-x down y;
"#b sub 2#" at Here + 0,-x;
{
spline -> from Here + -x,-x to Here + -z,-z to Here + -2*z,0 to Here + -2*z,z to Here + -z,2*z to Here + -x,z+x;
}
spline -> from Here + x,-x to Here + z,-z to Here + z,x-2*z;
move down x;
"#b sub 3#";
{
dr; "fall";
}
{
spline -> from Here + -x,-x to Here + -z,-z to Here + -4*z,-z to Here + -4*z,3*z to Here + -2*z,3*z to Here + -x-z,x+2*z;
}
}
.PE
pt.memo 465853475 9 1 100666 5935 `
.PS
box invis wid .25
ellipse "document"
arrow
box "PIC"
arrow
box "TBL/EQN" "(optional)" dashed
arrow
box "TROFF"
arrow
ellipse "typesetter"
.PE
.PS
box "box"
move
line "line" above
move
arrow "arrow" above
move
circle "circle"
move
ellipse "ellipse"
move
arc cw "arc"
.PE
.PS
box "this is" "a box"
.PE
.PS
circle "this is" "a box"
move; move
ellipse "this is" "a box"
.PE
.PS
arrow "this is" "an arrow"
.PE
.PS
line "this is" "a line"
.PE
.PS
line; arc; arc cw; arrow
.PE
.PS
arrow; box "input"; arrow; box "process"; arrow; box "output"; arrow
.PE
.PS
box; move; box; move; box
.PE
.PS
down; box; arrow; ellipse; arrow; circle
.PE
.PS
left; box; arrow; ellipse; arrow; circle
.PE
.PS
box wid 3i ht 0.1i
.PE
.PS
line up 1i right 2i
arrow left 2i
move left 0.1i
line <-> down 1i "height"
.PE
.PS
line up right; line down; line down left; line up
.PE
.PS
box dotted; line dotted; move; line dashed
.PE
.PS
line right 5i dashed
.PE
.PS
line right 5i dashed 0.25i
.PE
.PS
line right 5i dashed 0.5i
.PE
.PS
line right 5i dashed 1i
.PE
.PS
arrow "on top of"; move
arrow "above" "below"; move
arrow "above" above; move
arrow "below" below; move
arrow "above" "on top of" "below"
.PE
.PS
down; box ht 0.2i wid 1.5i; move down 0.15i;
box ht 0.2i wid 1.5i; move down 0.15i; box ht 0.2i wid 1.5i
.PE
.PS
x = boxwid; y = boxht
boxwid = 0.1i; boxht = 1i
movewid = 0.2i
box; move; box; move; box
boxwid = x; boxht = y
.PE
.PS 2
box ht 0.2 wid 0.2 at 0,0 "1"
move to 0.5,0 # or "move right 0.5"
box "2" ht 0.2 wid 0.2 # use same dimensions as last box
move right .5 # use same motion as before
box "3" ht 0.2 wid 0.2
.PE
.PS
arc from 0.5i, 0 to 0, 0.5i
arc at 2i,0 from 2i,0.5i to 2.5i,0
circle rad .5i invis at 2i,0 # cheating
.PE
.PS
arc -> cw from 0,0 to 2i,0 rad 15i
.PE
.PS
arrow left; box; arrow; circle; arrow
.PE
.PS 1.5
B: box "B.c"
" B.e" at B.e ljust
" B.ne" at B.ne ljust
" B.se" at B.se ljust
"B.s" at B.s below
"B.n" at B.n above
"B.sw " at B.sw rjust
"B.w " at B.w rjust
"B.nw " at B.nw rjust
.PE
.PS
box ht 0.75i wid 0.75i
box ht 0.5i wid 0.5i with .sw at last box.se
.PE
.PS
ellipse; ellipse with .nw at last ellipse.se
.PE
.PS
circle "a"
circle "b" at 1st circle - (0.75i, 1i)
circle "c" at 1st circle + (0.75i, -1i)
line from 1st circle to 2nd circle chop
line from 1st circle to 3rd circle chop
.PE
.PS
box
arrow right from 1/3 of the way between last box.ne and last box.se
arrow right from 2/3 <last box.ne, last box.se>
.PE
.PS
line right 1i then down .5i left 1i then right 1i
.PE
.PS
line dashed right 1i then down .5i left 1i then right 1i
spline from start of last line\
right 1i then down .5i left 1i then right 1i
.PE
.PS
box "1"
[ box "2"; arrow "3" above; box "4" ] with .n at last box.s - (0,0.1)
"thing" at last [].s
.PE
.PS
h = .5i
dh = .02i
dw = .1i
[
Ptr: [
boxht = h; boxwid = dw
A: box
B: box
C: box
box wid 2*boxwid "..."
D: box
]
Block: [
boxht = 2*dw; boxwid = 2*dw
movewid = 2*dh
A: box; move
B: box; move
C: box; move
box invis "..." wid 2*boxwid; move
D: box
] with .t at Ptr.s - (0,h/2)
arrow from Ptr.A to Block.A.nw
arrow from Ptr.B to Block.B.nw
arrow from Ptr.C to Block.C.nw
arrow from Ptr.D to Block.D.nw
]
box dashed ht last [].ht+dw wid last [].wid+dw at last []
.PE
.PS
define square X box ht $1 wid $1 $2 X
square(1i, "one" "inch")
square(0.5i)
.PE
.PS
.ps 24
circle radius .4i at 0,0
.ps 12
circle radius .2i at 0,0
.ps 8
circle radius .1i at 0,0
.ps 6
circle radius .05i at 0,0
.ps 10 \" don't forget to restore size
.PE
.PS
ellipse "\s8\f(OESmile!\fP\s0"
.PE
.PS
arrow
box "$space 0 {H( omega )} over {1 - H( omega )}$"
arrow
.PE
.PS
define ndblock X
box wid boxwid/2 ht boxht/2
down; box wid boxwid/2 ht boxht/2 with .t at bottom of last box;
box wid boxwid/2 ht boxht/2
X
.ps -2
.ft PO
boxht = .2i; boxwid = .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 3rd last box to N2.sw-(0.05i,.2i) to N2.sw+(0.05i,0)
spline -> right .3i from 2nd last box 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)
circlerad = .3i
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
.ps
.ft
.PE
.PS 5
.ps 8
boxht = .5i; boxwid = .75i
circlerad = .25i
arrow "source" "code"
LA: box "lexical" "analyzer"
arrow "tokens" above
P: box "parser"
arrow "intermediate" "code"
Sem: box "semantic" "checker"
arrow
arrow <-> up from top of LA
LC: box "lexical" "corrector"
arrow <-> up from top of P
Syn: box "syntactic" "corrector"
arrow up
DMP: box "diagnostic" "message" "printer"
arrow <-> right from right of DMP
ST: box "symbol" "table"
arrow from LC.ne to DMP.sw
arrow from Sem.nw to DMP.se
arrow <-> from Sem.top to ST.bot
.PE
.PS 5i
circle "DISK"
arrow "character" "defns"
box "CPU" "(16-bit mini)"
{ arrow <- from top of last box up "input " rjust }
arrow
CRT: " CRT" ljust
line from CRT - 0,0.075 up 0.15 \
then right 0.5 \
then right 0.5 up 0.25 \
then down 0.5+0.15 \
then left 0.5 up 0.25 \
then left 0.5
Paper: CRT + 1.0+0.05,0
arrow from Paper + 0,0.75 to Paper - 0,0.5
{ move to start of last arrow down 0.25
{ move left 0.015; circle rad 0.05 }
{ move right 0.015; circle rad 0.05; " rollers" ljust }
}
" paper" ljust at end of last arrow + 0.25, 0.25
line left 0.2 dotted
.PE
pt.bugs 471899675 9 1 100666 1652 `
.PS
box
arrow right from 2/3 <last box.ne, last box.se>
.PE
.PS
"x" at .5 < (0,0),(1,1) >
.PE
.PS 5i
CRT: circle "DISK"
" paper" ljust at 0.25, 0.25
.PE
.PS
define ur "then up right"
define ul "then up left"
define dr "then down right"
define dl "then down left"
spline down right dr ur ur ur ul ul ul ul dl dl dl dl dr dr
.PE
.PS
box
.PF
.PS
arrow
.PE
.PS
"abc" with .w at 1,2
.PE
.PS
line from 1,0 to 0,0
X: 1,0
"x"
.PE
.PS
define L {
if "$2" == "" then || else | x = $2; |
if "$3" == "" then || else | y = $3; |
if "$4" == "" then | n = m; | else | n = $4; |
xx=x*hu; vx=xx*(1-n)/2; yy=y*vu; vy=yy*(1+n)/2
spline $1 to Here + vx,vy to Here + xx,yy
kx = vx/2; ky = vy/2;
mx = (vx+xx)/2; my = (vy+yy)/2;
mxk = mx-kx; myk = my-ky;
vxk = vx-kx; vyk = vy-ky;
b = 2*vxk; a = mxk-b;
d = 2*vyk; c = myk-d;
bcad = b*c - a*d;
k = .5*bcad*(a*b+c*d)/(a*a+c*c);
ksq = k*k;
ta = d*bcad-2*c*k;
tb = -b*bcad+2*a*k;
ey = (ksq+k*ta/c)/(tb+a*ta/c);
ex = (ksq-tb*ey)/ta;
{ move to kx+ex,ky+ey; sprintf("%g",n);
}
} x=0; y=0; m=0; # initially
hu = 0.3i; vu = hu;
define T % { L(,6,3,$1);} %
T(-1.5)
T(-1)
T(-.5)
T(0)
T(.5)
T(1)
T(1.5);
.PE
.PS 4
define L %
if "$2" == "" then || else | x = $2 * hu; |
if "$3" == "" then || else | y = $3 * hu; |
{ line $1 to Here + x,y chop c
} move to Here + x,y
%
x = 0; y = 0; c = 0
.PE
.PS
define S % "$1"; { circle rad .12i at Here; } %
define F % S($1); { circle rad .1i at Here; } %
define T % L(-> "$1" above,$2,$3); %
c = .12; hu = .75; vu = .5
T(start,1,0); S(0);
{ T(<,1,1); F(1);
{ T(=,1,.75); F(2);
}{ T(>,1,-.75); F(3);
}
}{ T(=,1,0); F(4);
}{ T(>,1,-1); F(5); T(=,1,0); F(6);
}
.PE
pt.for 463689281 9 1 100666 425 `
.PS
copy thru / box "$3" at $1,$2 /
0 0 middle
1 1 upper.right
-1 -1 lower.left
.PE
===================================================================================
.PS
for i = 1 to 5 do X box ht i wid i at 0,0 X
.PE
===================================================================================
.PS
for i = 1 to 5 do X
if i % 2 == 0 then Y
circle rad i/2 at 0,0
Y else Y
box ht i wid i at 0,0
Y
X
.PE
pt.ravi.b1 463689282 9 1 100666 581 `
.PS
u = 0.1i;
h = 2*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*1.4;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
define expr %
"expression";
{ ln(-2,-1); $1; }
{ ln(0,-1); "operator"; ln(0,-1); "\f8$2\f1"; }
{ ln(2,-1); $3; }
%
define id %
{
"expression"
ln(0,-1);
"identifier";
ln(0,-1); "\f8$1\f1";
}
%
"assignment"; move down 1.5*u; "statement";
{
ln(-1,-1); "identifier";
ln(0,-1); "\f8position\f1";
}{
ln(2,-1);
expr(
id(initial),+,expr( id(distance),*,id(time) )
);
}
.PE
pt.ravi.b2 463689282 9 1 100666 8387 `
.PS
b = 0.1i
a = 1.5*b
d = a+2*b
define lleft % move down b left b; line down a left a; move down b left b %
define ldown % move down b; line down a; move down b %
define lright % move down b right b; line down a right a; move down b right b %
"$list$";
{
move down b left 2*b;
line down a left a+d; move down b left b; "$list$";
{
lleft; "$list$"; ldown; "$digit$"; ldown; "$9$";
}
{
move down b; line down a+2*d; move down b; "$-$";
}
{
lright; "$digit$";
move down b; line down a+d; move down b; "$5$";
}
}
{
move down b; line down a+3*d; move down b; "$-$";
}
{
move right b;
lright; "$digit$";
move down b; line down a+2*d; move down b; "$2$";
}
.PE
.PS
u = 0.08i;
h = 3*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*1.4;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
"$A$"; { ln(-1,-1); "$X$";
}{ ln(0,-1); "$Y$";
}{ ln(1,-1); "$Z$";
}
.PE
.PS
"$string$";
{
lleft; "$string$";
{ lleft; "$string$"; ldown; "$9$"; }
{ ldown; "$-$"; }
{ lright; "$string$"; ldown; "$5$"; }
}
{
ldown; "$-$";
}
{
lright; "$string$";
ldown; "$2$";
}
move right 20*b;
"$string$";
{
lleft; "$string$";
ldown; "$9$";
}
{
ldown; "$-$";
}
{
lright; "$string$";
{
lleft; "$string$";
ldown; "$5$";
}
{
ldown; "$-$";
}
{
lright; "$string$";
ldown; "$2$";
}
}
.PE
.PS
b = 0.1i
a = 1.5*b
d = a+2*b
define lleft % move down b left b; line down a left a; move down b left b %
define ldown % move down b; line down a; move down b %
define lright % move down b right b; line down a right a; move down b right b %
"$list$";
{
lleft; "$list$";
{
lleft; "$list$";
ldown; "$digit$"; ldown; "$9$";
}
{
ldown; "$-$";
}
{
lright; "$digit$"; ldown; "$5$";
}
}
{
ldown; "$-$";
}
{
lright; "$digit$"; ldown; "$2$";
}
move right 20*b;
"\f2right\fP";
{
lleft; "$letter$"; ldown; "$bd a $";
}
{
ldown; "$=$";
}
{
lright; "\f2right\fP";
{
lleft; "$letter$"; ldown; "$bd b$";
}
{
ldown; "$=$";
}
{
lright; "\f2right\fP";
ldown; "$letter$"; ldown; "$ bd c$";
}
}
.PE
.PS
b = 0.1i
a = 2*b
h = 6*b; hf = h+2*b;
d = a+2*b
define lleft % move down b left b; line down a left h; move down b left b %
define ldown % move down b; line down a; move down b %
define lright % move down b right b; line down a right h; move down b right b %
"$expr.t^=^95-2-$";
{
move down b left 2*b;
line down a left 2*h+2*b; move down b left 2*b;
"$expr.t^=^95-$";
{
lleft; "$expr.t^=^9$";
ldown; "$term.t^=^9$";
ldown; "$9$";
}
{
move down b; line down a+2*d; move down b; "$-$";
}
{
lright; "$term.t^=^5$";
move down b; line down a+d; move down b; "$5$";
}
}
{
move down b; line down a+3*d; move down b; "$-$";
}
{
move right b;
lright; "$term.t^=^2$";
move down b; line down a+2*d; move down b; "$2$";
}
.PE
.PS
scale = 50
{
line down 5
line left 6
line up 7
line right 8
}
move right 50;
{
line down 5
line left 6
line up 7
line right 8
line down 9
line left 10
line up 11
line right 12
line down 13
line left 14
line up 15
line right 16
line down 17
line left 18
line up 19
line right 20
}
move right 100
{
line down 5
line left 6
line up 7
line right 8
line down 9
line left 10
line up 11
line right 12
line down 13
line left 14
line up 15
line right 16
line down 17
line left 18
line up 19
line right 20
line down 21
line left 22
line up 23
line right 24
line down 25
line left 26
line up 27
line right 28
line down 29
line left 30
line up 31
line right 32
line down 33
line left 34
line up 35
line right 36
line down 37
line left 38
line up 39
line right 40
line down 41
line left 42
line up 43
line right 44
line down 45
line left 46
line up 47
line right 48
line down 49
line left 50
line up 51
line right 52
line down 53
line left 54
line up 55
line right 56
line down 57
line left 58
line up 59
line right 60
line down 61
line left 62
line up 63
line right 64
line down 65
line left 66
line up 67
line right 68
}
.PE
.PS
scale = 1;
b = 0.1i
a = 1.5*b
d = a+2*b
define lleft % move down b left 2*b; line down 2*a+b left 2*d-b; move down b left b %
define ldown % move down b; line down a; move down b %
define lright % move down b right 2*b; line down 2*a+b right 2*d-b; move down b right b %
"$expr$"; { move right b; " {print $-$}" ljust; }
{
ldown; "$-$";
}
{
lright;
"$term$"; { move right b; " {print $5$}" ljust; }
ldown; "$9$";
}
lleft;
"$expr$"; { move right b; " {print $-$}" ljust; }
{
ldown; "$-$";
}
{
lright;
"$term$"; { move right b; " {print $5$}" ljust; }
ldown; "$5$";
}
lleft;
"$expr$";
ldown; "$term$"; { move right b; " {print $2$}" ljust; }
ldown; "$2$";
.PE
.PS
b = 0.1i
a = 2*b
h = 6*b; hf = h+2*b;
d = a+2*b
define lleft % move down b left b; line down a left h; move down b left b %
define ldown % move down b; line down a; move down b %
define lright % move down b right b; line down a right h; move down b right b %
"$expr.t^=^95-2-$";
{
move down b left 2*b;
line down a left 2*h+2*b; move down b left 2*b;
"$expr.t^=^95-$";
{
lleft; "$expr.t^=^9$";
ldown; "$term.t^=^9$";
ldown; "$9$";
}
{
move down b; line down a+2*d; move down b; "$-$";
}
{
lright; "$term.t^=^5$";
move down b; line down a+d; move down b; "$5$";
}
}
{
move down b; line down a+3*d; move down b; "$-$";
}
{
move right b;
lright; "$term.t^=^2$";
move down b; line down a+2*d; move down b; "$2$";
}
.PE
.PS
u=0.02i;
{
line to Here + 0*u,-5*u
line to Here + -6*u,0*u
line to Here + 0*u,7*u
line to Here + 8*u,0*u
}
move right 1.0i;
{
line to Here + 0*u,-5*u
line to Here + -6*u,0*u
line to Here + 0*u,7*u
line to Here + 8*u,0*u
line to Here + 0*u,-9*u
line to Here + -10*u,0*u
line to Here + 0*u,11*u
line to Here + 12*u,0*u
line to Here + 0*u,-13*u
line to Here + -14*u,0*u
line to Here + 0*u,15*u
line to Here + 16*u,0*u
line to Here + 0*u,-17*u
line to Here + -18*u,0*u
line to Here + 0*u,19*u
line to Here + 20*u,0*u
}
move right 2.0i
{
line to Here + 0*u,-5*u
line to Here + -6*u,0*u
line to Here + 0*u,7*u
line to Here + 8*u,0*u
line to Here + 0*u,-9*u
line to Here + -10*u,0*u
line to Here + 0*u,11*u
line to Here + 12*u,0*u
line to Here + 0*u,-13*u
line to Here + -14*u,0*u
line to Here + 0*u,15*u
line to Here + 16*u,0*u
line to Here + 0*u,-17*u
line to Here + -18*u,0*u
line to Here + 0*u,19*u
line to Here + 20*u,0*u
line to Here + 0*u,-21*u
line to Here + -22*u,0*u
line to Here + 0*u,23*u
line to Here + 24*u,0*u
line to Here + 0*u,-25*u
line to Here + -26*u,0*u
line to Here + 0*u,27*u
line to Here + 28*u,0*u
line to Here + 0*u,-29*u
line to Here + -30*u,0*u
line to Here + 0*u,31*u
line to Here + 32*u,0*u
line to Here + 0*u,-33*u
line to Here + -34*u,0*u
line to Here + 0*u,35*u
line to Here + 36*u,0*u
line to Here + 0*u,-37*u
line to Here + -38*u,0*u
line to Here + 0*u,39*u
line to Here + 40*u,0*u
line to Here + 0*u,-41*u
line to Here + -42*u,0*u
line to Here + 0*u,43*u
line to Here + 44*u,0*u
line to Here + 0*u,-45*u
line to Here + -46*u,0*u
line to Here + 0*u,47*u
line to Here + 48*u,0*u
line to Here + 0*u,-49*u
line to Here + -50*u,0*u
line to Here + 0*u,51*u
line to Here + 52*u,0*u
line to Here + 0*u,-53*u
line to Here + -54*u,0*u
line to Here + 0*u,55*u
line to Here + 56*u,0*u
line to Here + 0*u,-57*u
line to Here + -58*u,0*u
line to Here + 0*u,59*u
line to Here + 60*u,0*u
line to Here + 0*u,-61*u
line to Here + -62*u,0*u
line to Here + 0*u,63*u
line to Here + 64*u,0*u
line to Here + 0*u,-65*u
line to Here + -66*u,0*u
line to Here + 0*u,67*u
line to Here + 68*u,0*u
}
.PE
.PS
b = 0.1i
a = 1.5*b
d = a+2*b
define lleft % move down b left 2*b; line down 2*a+b left 2*d-b; move down b left b %
define ldown % move down b; line down a; move down b %
define lright % move down b right 2*b; line down 2*a+b right 2*d-b; move down b right b %
"$expr$"; { move right b; "\f8 {\f1print\f8'-'}\fP" ljust; }
{
ldown; "\f8-\fP";
}
{
lright;
"$term$"; { move right b; "\f8 {\f1print\f8'5'}\fP" ljust; }
ldown; "\f82\fP";
}
lleft;
"$expr$"; { move right b; "\f8 {\f1print\f8'-'}\fP" ljust; }
{
ldown; "\f8-\fP";
}
{
lright;
"$term$";"$term$"; { move right b; "\f8 {\f1print\f8'3'}\fP" ljust; }
ldown; "\f85\fP";
}
lleft;
"$expr$";
ldown; "$term$"; { move right b; "\f8 {\f1print\f8'2'}\fP" ljust; }
ldown; "\f82\fP";
.PE
pt.ravi.b4 463689282 9 1 100666 3966 `
.PS
u = 0.08i;
h = 3*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*1.4;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
.PE
.PS
"$A$"; { ln(-1,-1); "$X$";
}{ ln(0,-1); "$Y$";
}{ ln(1,-1); "$Z$";
}
.PE
.PS
define uminus %
"$E$"; { ln(-1,-1); "$-$"; }; ln(1,-1);
%
define parens %
"$E$"; { ln(-1,-1); "\f8(\f1"; }{ ln(1,-1); "\f8)\f1"; };
ln(0,-1);
%
define id %
"$E$"; ln(0,-1); "$ID$";
%
uminus();
parens();
"$E$"; { ln(0,-1); "$+$";
}{ ln(-1,-1); id();
}{ ln(1,-1); id();
}
.PE
.PS
{ move right 2*hs;
"$E$"
}
{ move right 5*hs; "$=>$"; move right 2*hs;
uminus(); "$E$";
}
move down 2*vs;
{ "$=>$"; move right 2*hs;
uminus(); parens(); "$E$";
}
{ move right 5*hs; "$=>$"; move right 2*hs;
uminus(); parens();
"$E$"; { ln(0,-1); "$+$";
}{ ln(-1,-1); "$E$";
}{ ln(1,-1); "$E$";
}
}
move down 4*vs;
{ "$=>$"; move right 2*hs;
uminus(); parens();
"$E$"; { ln(0,-1); "$+$";
}{ ln(-1,-1); id();
}{ ln(1,-1); "$E$";
}
}
{ move right 5*hs; "$=>$"; move right 2*hs;
uminus(); parens();
"$E$"; { ln(0,-1); "$+$";
}{ ln(-1,-1); id();
}{ ln(1,-1); id();
}
}
.PE
.PS
{
"$E$"; { ln(0,-1); "$+$";
}{ ln(-1,-1); id();
}{ ln(1,-1);"$E$";
{ ln(0,-1); "$star$";
}{ ln(-1,-1); id();
}{ ln(1,-1); id();
}
}
move down 4*vs; "(a)"
}
move right 6*hs;
{
"$E$"; { ln(0,-1); "$star$";
}{ ln(1,-1); id();
}{ ln(-1,-1);"$E$";
{ ln(0,-1); "$+$";
}{ ln(-1,-1); id();
}{ ln(1,-1); id();
}
}
move down 4*vs; "(b)"
}
.PE
.PS
u = 0.08i;
h = 3*u; hs = h+2*u;
v = 4*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*(1.4 $4);}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
.PE
.PS
define tree %
{ "`$1`";
}{ move down u left 0.5*u;
line left 0.6*h down 1.75*u;
line right 0.6*h+0.5*u;
{ move down 1.2*u; "`$2 sub $3`";
}
line right 0.6*h+0.5*u;
line left 0.6*h up 1.75*u;
}
%
define ifthen %
"`stmt`";
{ ln(-1.5,-1); "`IF`";
}{ ln(-0.5,-1); tree(cond,C,$1);
}{ ln(0.5,-1); "`THEN`";
}
ln(1.5,-1);
%
define ifelse %
"`stmt`";
{ ln(-1.5,-1); "`IF`";
}{ ln(-0.5,-1); tree(cond,C,$1);
}{ ln(0.5,-1); "`THEN`";
}{ ln(1.5,-1);
}{ ln(2.5,-1); "`ELSE`";
}{ ln(3.5,-1);
}
{ move right (3.5-$3*2)*hs down vs; tree(stmt,S,$2)
}
move right (1.5+$3*2)*hs down vs;
%
ifelse(1,1,1);
ifelse(2,2,1);
tree(stmt,S,3);
.PE
.PS
ifthen(1);
ifelse(2,1,1);
tree(stmt,S,2);
.PE
.PS
ifelse(1,2,0);
ifthen(2);
tree(stmt,S,1);
.PE
.PS
define wiggle %
spline $1 to Here + u/2,u/2 to Here + u,-u/2 to Here + 3*u/2,0
%
{ circle radius 1.3*u at Here;
}{ "$s sub 0$";
}{ move up vs right 2*hs; "path labeled $a sup i$";
}{ move down vs right 2*hs; "path labeled $a sup j$";
}
move right 4*hs;
{ ellipse wid 1.5*hs ht vs at Here;
}{ "$s sub i~=~s sub j$";
}
move right 0.75*hs;
wiggle();wiggle();wiggle();wiggle();wiggle();wiggle();
spline -> to Here + u/2,u/2 to Here + u,-u/2 to Here + 3*u/2,0 to Here + 2*u,0 to Here +5*u/2,0 to Here +7*u/2,0;
move right 0.8*u;
{ circle radius 1.2*u at Here;
}{ circle radius 1.4*u at Here;
}{ "$f$";
}
.PE
.PS
u = 0.08i;
h = 3*u; hs = h+2*u;
v = 4*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*(1.4 $4);}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
.PE
.PS
define ifthen %
"`S`";
{ ln(-1.5,-1); "`i`";
}{ ln(-0.5,-1); "`C`"; $1
}{ ln(0.5,-1); "`t`";
}
ln(1.5,-1);
%
define ifelse %
"`stmt`";
{ ln(-1.5,-1); "`i`";
}{ ln(-0.5,-1); "`C`"; $1
}{ ln(0.5,-1); "`t`";
}{ ln(1.5,-1); "`S`"; $2
}{ ln(2.5,-1); "`e`";
}{ ln(3.5,-1); "`S`"; $3
}
%
ifthen(ln(0,-0.5);"`b`";);
ifelse(ln(0,-0.5);"`b`";,ln(0,-0.5);"`a`";,ln(0,-0.5);"`a`";);
.PE
.PS
ifthen(); "`S`";
.PE
.PS
ifthen(ln(0,-0.5); "\f8b\f1";); "`S`";
.PE
.PS
ifthen(ln(0,-0.5); "\f8b\f1";);
ifelse();
.PE
.PS
ifthen( ln(0,-0.5);"\f8b\f1"; );
ifelse( ln(0,-0.5);"\f8a\f1"; );
.PE
pt.ravi.b5 463689282 9 1 100666 2289 `
.PS
u = 0.1i;
h = 2*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop 1.4*u;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
define digit %
"`bd digit`";
{
move right 2*u; "`d = $1`" ljust;
}
%
define nont %
"`$1`";
{
move right 2*u; "`v = $2`" ljust;
}
%
define chain %
nont(exp,$1);
ln(0,-0.6);
nont(num,$2);
ln(0,-0.6);
digit($3)
%
nont(exp,119); {ln(0,-0.6); "\f8+\fP";}
{
ln(1.5,-0.6);
chain(4,4,4);
}
ln(-2.5,-1.2);
nont(exp,115); {ln(0,-0.6); "\f8*\fP";}
{
ln(1.5,-0.6);
chain(5,5,5);
}
ln(-2,-1.2);
nont(exp,23);
ln(0,-0.6);
nont(num,23);
{
ln(1,-0.6);
digit(3);
}
ln(-1.2,-1.2);
nont(num,2);
ln(0,-0.6);
digit(2);
.PE
.PS
u = 0.1i;
h = 3*u; hs = h+2*u;
v = 4*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop 1.5*u;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
"\f8;\f1"
{
ln(-2,-0.6); "\f8:=\f1";
{
ln(-0.6,-0.6); "\f8r\f1"
}
{
ln(0.6,-0.6); "\f8m\f1"
}
}
ln(2,-0.6); "\f8while\f1"
{
ln(-1.2,-0.6); "\f8>\f1";
{
ln(-0.6,-0.6); "\f8r\f1"
}
{
ln(0.6,-0.6); "\f8n\f1"
}
}
ln(1.2,-0.6); "\f8:=\f1"
{
ln(-0.6,-0.6); "\f8r\f1"
}
ln(0.6,-0.6); "\f8-\f1";
{
ln(-0.6,-0.6); "\f8r\f1";
}
ln(0.6,-0.6); "\f8n\f1"
.PE
.PS
u = 0.1i;
h = 5*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*($1*$1+$2*$2+4.75)/5;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
bs = 3*u;
define stmt %
"\f8;\f1";
{
move left bs; "\(bu"; move left u; "\f2b\f1" rjust;
}
%
define while %
"\f8while\f1"
{
move left bs; "\(bu"; move left u; "\f2b\f1" rjust;
}
{
move right bs; "\(bu"; move right u; "\f2out\f1" ljust;
}
%
define pwhile %
while;
{
ln(1,-1,dotted);
move left bs;
line <- to Here + -hs+2*bs,vs;
}
{
ln(-1,-1,dotted);
"\f8EXP\f1";
}
%
define pseq %
stmt;
{
ln(-1,-1,dotted);
move left bs;
lf(1,1,<-);
lf(1,-1,->);
move right bs;
ln(-1,1,dotted);
}
%
pwhile;
move down vs right hs;
pseq;
{
move down vs left hs; stmt;
}
move down vs right hs;
pseq;
{
move down vs right hs; stmt;
}
move down vs left hs;
pwhile;
move down vs right hs;
pseq;
{
move down vs right hs; stmt;
}
move down vs left hs;
stmt;
.PE
pt.ravi.b6 463689283 9 1 100666 5675 `
.PS
u = 0.25i;
boxwid = 3*u; boxht = 2*u;
ellipsewid = 3*u; ellipseht = 2*u;
linewid = 2*u; lineht = 2*u;
movewid = 2*u; moveht = 2*u;
P: box "parsing"
arrow
box "static" "checking"
arrow dotted
CG: box "code" "generation"
.PE
.PS
u = 0.1i;
h = 2*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*($1*$1+$2*$2+4.75)/5;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
{
"\f2array\f1";
{ ln(-1,-1); "\f8NUM\f1" }
{ ln(1,-1); "\f2T\f1" }
move down 1.5*vs; "(a)"
}
move right 5*hs
{
"\f2pointer\f1"
{ ln(0,-1); "\f2T\f1" }
move down 1.5*vs; "(b)"
}
.PE
.PS
u = 0.1i;
h = 2*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*($1*$1+$2*$2+4.75)/5;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
{
"\f8p\f1"; ln(1,-1,dotted);
{ ln(1,1,dotted); "\f8q\f1"; }
"\f2pointer\f1"; ln(1,-1);
"\f8cell\f1"; ln(1,1);
"\f2pointer\f1"; ln(0,1,dotted);
"\f8r\f1"
}
move right 5*hs
{
"\f8next\f1"; ln(1,-1,dotted);
"\f8link\f1";
ln(1,1,dotted);
"\f8last\f1"
}
.PE
.PS
u = 0.08i;
h = 2*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*($1*$1+$2*$2+4.75)/5;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
{
S: "\f2record\f1";
{ ln(-1,-1); "\f8cell\f1"; }
ln(1,-1); "$times$";
{
ln(-1,-1); "\f2field\f1";
{ ln(-1,-1); "\f8info\f1";}
ln(1,-1); "\f2integer\f1";
}
ln(2,-2); "$times$";
{
ln(-1,-1); "\f2field\f1";
{ ln(-1,-1); "\f8next\f1";}
ln(1,-1); "\f2pointer\f1";
move down u;
spline -> to Here + 0,-vs+u to Here + -5*hs,-vs+u to Here + -5*hs,5*vs to S + -2*u,0;
}
ln(1,-1); "\f2nil\f1";
}
.PE
.PS
u = 0.1i;
h = 3*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
"\f8constructor\f1";
move right hs up v; line down 2*v; move right hs up v;
"\f8child1\f1";
{ move right 3*u; "\(bu"; line -> down vs left hs; }
move right hs up v; line down 2*v; move right hs up v;
"\f8child2\f1";
{ move right 3*u; "\(bu"; line -> down vs right hs; }
move right hs up v; line down 2*v; move right hs up v;
"\f8set\f1";
{
move right 2*u; "\(bu";
spline -> to Here + 2*u,0 to Here + 2*u,vs to Here + 4*u,vs;
}
move right hs up v;
line down 2*v;
line left 8*hs;
line up 2*v;
line right 8*hs;
.PE
.PS
u = 0.1i;
h = 2*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*($1*$1+$2*$2+4.75)/5;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
"$E~:$"; { move right 2*u; "\f1{$i,c$}" ljust; }
{
ln(0,-1);
"$E~:$"; {move right 2*u; "\f1{$i$}" ljust; }
ln(0,-1);
"\f83$~:$\f1"; {move right 2*u; "\f1{$i$}" ljust; }
}
{
ln(2,-1);
"$E~:$"; {move right 2*u; "\f1{$i$}" ljust; }
ln(0,-1);
"\f85$~:$\f1"; {move right 2*u; "\f1{$i$}" ljust; }
}
{
ln(-2,-1);
move left hs down 2*u;
"\f8*$~:~left { lpile { {c times c~->~c,} above {i times i~->~i,} above {i times i~->~c} } right }$"
}
.PE
.PS
u = 0.1i;
h = 4*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*($1*$1+$2*$2+4.75)/5;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
move left hs;
{ move left 2*u; "$apply~:~integer$" ljust; }
{
ln(-1,-1);
"$cw deref sub o~:$";
move down 1.5*u;
"$pointer( alpha sub o ) -> alpha sub o$"
}
ln(1,-1);
{ move left 2*u; "$apply~:~pointer(integer)$" ljust; }
{
ln(-1,-1);
"$cw deref sub i~:$";
move down 1.5*u;
"$pointer( alpha sub i ) -> alpha sub i$"
}
ln(1,-1);
"$cw q~:~pointer(pointer(integer))$" ljust;
.PE
.PS
u = 0.1i;
h = 2*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*($1*$1+$2*$2+4.75)/5;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
"\f8+";
{
ln(2,-1);
"\f8*"; { ln(1,-1); "\f8d"; }
ln(-2,-2);
"\f8-"; { ln(1,-1); "\f8c"; }
ln(-1,-1); "\f8b";
}
ln(-2,-1);
"\f8+";
{
spline from Here + -u,-u to Here + -hs,-vs to Here + -u,-2*vs+u;
}
ln(1,-1);
"\f8*"; { ln(-1,-1); "\f8a"; }
ln(1,-1);
.PE
.PS
u = 0.1i; c = u;
h = 3*u;
v = 3*u;
define pearl %
{ arc cw to Here + 0,-v;}
arc to Here + 0,-v;
"\(bu";
%
define b1 %
{ line down v left h-$1*c; "\(bu"; }
{ line down v right h-$2*c; "\(bu"; }
%
define b2 %
{ line down v left h; "\(bu"; b1($1,1); }
{ line down v right h; "\(bu"; b1(1,$2); }
%
define b3 %
{ line down v left 2*h; "\(bu"; b2($1,1); }
{ line down v right 2*h; "\(bu"; b2(1,$2); }
%
"\(bu";
pearl();
move down v;
"\(bu";
pearl(); pearl();
move down v;
"\(bu";
pearl(); pearl(); pearl();
move right h up 1.5*v;
"$=>$";
move up 3.5*v;
"$=>$";
move up 2.5*v;
"$=>$";
move up v/2;
move right 5*h;
"\(bu";
b1(0,0);
move down 2*v;
"\(bu";
b2(0,0);
move down 3*v;
"\(bu";
b3(0,0);
.PE
.PS
u = 0.1i;
h = 2*u; hs = h+2*u;
v = 2*u; vs = v+2*u;
define ln %
{line $3 from Here to Here + $1*hs,$2*vs chop u*1.4;}
move to Here + $1*hs,$2*vs
%
define lf %
line $3 to Here + $1*hs,$2*vs
%
define spmm %
{spline $3 from Here + -u,-u to Here + -hs,-vs to Here + hs*$1,vs*$2+u;}
move to Here + $1*hs,$2*vs
%
define sppm %
{spline $3 from Here + u,-u to Here + hs,-vs to Here + hs*$1,vs*$2+u;}
move to Here + $1*hs,$2*vs
%
"$->^:^1$"
{ ln(-1,-1); "$times^:^2$";
{ ln(-1,-1); "$->^:^3$";
{ ln(-1,-1); "$alpha sub 1^:^4$";
}{ ln(2,-1); "$alpha sub 2^:^4$";
}
}{ ln(1,-1); "$list^:^6$"; ln(3,-1);
}
}{ ln(1.5,-1.5); "$list^:^7$"; ln(-1.5,-1.5);
}
move right 6*hs;
"$->^:^1$"
{ ln(-1,-1); "$times^:^2$";
{ ln(-1,-1); "$->^:^3$";
{ ln(-1,-1); "$beta^:^4$";
}{ ln(1,-1); "$gamma^:^4$";
}
}{ ln(1,-1); "$list^:^6$"; ln(-1,-1);
}
}{ ln(1,-1); "$delta^:^7$";
}
.PE
pt.ravi.3 463689283 9 1 100664 773 `
define L %
if "$2" != "" then | x = $2; |
if "$3" != "" then | y = $3; |
if "$4" != "" then | n = $4; | else | n = m; |
if "$5" != "" then | co = cos(2*$5); si = sin(2*$5); |\
else | co = cos(2*theta); si = sin(2*theta); |
px=x*hu; py=y*vu;
vx=(px+n*(px*co+py*si))/2; vy=(py+n*(px*si-py*co))/2;
alpha = atan2(vy,vx); beta = atan2(py-vy,px-vx);
{ spline $1 from Here + c*cos(alpha),c*sin(alpha)\
to Here + vx,vy\
to Here + px-c*cos(beta),py-c*sin(beta);
}
move to Here + px,py
% x=0; y=0; m=0; theta=0; c=0; # initially
define E %
{ move to Here + .25*(px/2+vx)-px,.25*(py/2+vx)-py;
$1;
}
%
pi = 3.1415926535; hu = 0.3i; vu = hu;
for i = 0 to 7 do | { L(,4,4,1,i*pi/8); E(plot i);} |
move down 2i;
for i = 0 to 7 do | { L(,6,3,1,i*pi/8); E(plot i);} |
pt.stereo 465512017 9 1 100666 1282 `
.sp 1i
.po .3i
.ps 12
.vs 14p
.PS 7
lpicx=2
rpicx=0
gs=3.8
planez=-.5
eyey=.5
eyez=-1
leyex=.44
reyex=1-leyex
define bullet X "\s-4\(bu\s+4" X
define circle X "\s-4\(de\s+4" X
define p X
tx=$1; ty=$2; tz=$3
sf=gs*(planez-eyez)/(tz-eyez)
bullet at (lpicx,0) + (sf*(tx-leyex),sf*(ty-eyey))
bullet at (rpicx,0) + (sf*(tx-reyex),sf*(ty-eyey))
X
define l X
ax=$1; ay=$2; az=$3; bx=$4; bby=$5; bz=$6
sfa=gs*(planez-eyez)/(az-eyez)
sfb=gs*(planez-eyez)/(bz-eyez)
line $7 from (lpicx,0)+(sfa*(ax-leyex),sfa*(ay-eyey))\
to (lpicx,0)+(sfb*(bx-leyex),sfb*(bby-eyey))
line $7 from (rpicx,0)+(sfa*(ax-reyex),sfa*(ay-eyey))\
to (rpicx,0)+(sfb*(bx-reyex),sfb*(bby-eyey))
X
define frame Y
l(0,0,0, 0,1,0)
l(0,1,0, 1,1,0)
l(1,1,0, 1,0,0)
l(1,0,0, 0,0,0)
l(0,0,1, 0,1,1, dashed)
l(0,1,1, 1,1,1, dashed)
l(1,1,1, 1,0,1, dashed)
l(1,0,1, 0,0,1, dashed)
l(0,0,0, 0,0,1, dashed)
l(0,1,0, 0,1,1, dashed)
l(1,0,0, 1,0,1, dashed)
l(1,1,0, 1,1,1, dashed)
Y
frame
tp=2*3.1415926535
dx=.05
ub=3
if 1 then Y
for x=0 to ub by dx do X
p(.5+.5*cos(tp*x),x/ub,.5+.5*sin(tp*x))
X
Y
if 1 then Y
for x=0 to ub-dx by dx do X
l(.5+.5*cos(tp*x), x/ub, .5+.5*sin(tp*x), \
.5+.5*cos(tp*(x+dx)),(x+dx)/ub,.5+.5*sin(tp*(x+dx)))
X
Y
.PE
pt.bigdef 463689283 9 1 100666 1086 `
.EQ
delim $$
.EN
.PS
define Flight2 %
# recompute eta because we now want to find the midpoint
# of the flight. however, now the flight must take off
# in the direction of tau, not the direction given by h
# and eta, computed using sin(eta) and sin(tau)
eta = atan2(h,r/2);
seta = sin(eta); stau = sin(tau);
if seta*stau >= 0 then | side = 1 | else | side = -1 |
teta = h/seta; teta = max(teta,-teta);
ma = eta*side+theta;
O : "";
P : "" at O + px,py
G : "" at O + teta*cos(ma),teta*sin(ma);
if ctau*ceta >= 0 then
|
# take-off fly and land
ttau = h/stau; ttau = max(ttau,-ttau);
A : [ GuidePP(teta,eta*side+theta,ttau,tau+theta);
] with .O at O;
B : [ GuidePP(teta,pi-eta*side+theta,ttau,pi-tau+theta);
] with .O at Here + px,py;
spline $1 from A.B to A.G to B.G to B.B
|else
|
# take-off backwards
ceiling = max(h,-h);
A : [ GuidePP(ceiling,pi*side/2+theta,ceiling,tau+theta);
] with .O at O;
B : [ GuidePP(ceiling,pi*side/2+theta,ceiling,pi-tau+theta);
] with .O at Here + px,py;
spline $1 from A.B to A.G to G to B.G to B.B
|
%
.PE
pt.arrow 470626330 9 1 100666 416 `
.sp 1i
.PS
define foo X
.ps $1
box "$1"
arrow down .25 right .25; move right .05
arrow right .25; move right .05
arrow up .25; move right .05
arc cw ->; move right .05
arc ->; move right .05
arc <-; move right .05
arc cw <-; move right .05
X
.PE
.PS
foo(24)
.PE
.PS
foo(16)
.PE
.PS
foo(10)
.PE
.PS
foo(9)
.PE
.PS
foo(8)
.PE
.PS
arrowhead = 7
foo(24)
.PE
.PS
foo(16)
.PE
.PS
foo(10)
.PE
.PS
foo(9)
.PE
.PS
foo(8)
.PE
pt.copy 471812550 9 1 100666 88 `
.PS
copy thru / "abc" at 1,1 /
x
x
x
.PE
.PS
copy thru / box at $1,$2 /
1 2
3 4
5 6
.PE