File: 3-3-5.mp

package info (click to toggle)
texlive-doc 2012.20120611-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 250,664 kB
  • sloc: xml: 18,901; perl: 13,380; makefile: 931; lisp: 394; sh: 313; awk: 205; java: 159; sed: 4
file content (21 lines) | stat: -rw-r--r-- 462 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
input boxes
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
vardef labelarrow
 (suffix BoxA,BoxB) expr Line =
  drawarrow Line
  cutbefore bpath BoxA
  cutafter bpath BoxB;
  point (.5*length Line) of Line
enddef;
defaultscale:=2;
boxjoin(a.e=b.w-(.75in,1.5in));
boxit.one("One");  circleit.two("Two");
drawboxed(one,two);
label.lft("1.",one.w);
label.rt("2.",two.e);
label.top("a.",labelarrow(one,two)
 one.c{dir90}..tension0.8..{dir90}two.s);
endfig;
end;