COIN-OR::LEMON - Graph Library

source: lemon-0.x/doc/images/nodeshape_1.eps @ 1222:a3fb216a267d

Last change on this file since 1222:a3fb216a267d was 1107:d972653c89d5, checked in by Alpar Juttner, 20 years ago
  • Node shapes are shown in the doc.
  • The generated PS file is closer to be DSC conform.
File size: 2.0 KB
RevLine 
[1107]1%!PS-Adobe-2.0 EPSF-2.0
2%%Title: LEMON GraphToEps figure
3%%Creator: LEMON GraphToEps function
4%%BoundingBox: 0 0 200 200
5%%EndComments
6/lb { setlinewidth setrgbcolor newpath moveto
7      4 2 roll 1 index 1 index curveto stroke } bind def
8/l { setlinewidth setrgbcolor newpath moveto lineto stroke } bind def
9/c { newpath dup 3 index add 2 index moveto 0 360 arc closepath } bind def
10/sq { newpath 2 index 1 index add 2 index 2 index add moveto
11      2 index 1 index sub 2 index 2 index add lineto
12      2 index 1 index sub 2 index 2 index sub lineto
13      2 index 1 index add 2 index 2 index sub lineto
14      closepath pop pop pop} bind def
15/di { newpath 2 index 1 index add 2 index moveto
16      2 index             2 index 2 index add lineto
17      2 index 1 index sub 2 index             lineto
18      2 index             2 index 2 index sub lineto
19      closepath pop pop pop} bind def
20/nc { 0 0 0 setrgbcolor 5 index 5 index 5 index c fill
21     setrgbcolor 1.1 div c fill
22   } bind def
23/nsq { 0 0 0 setrgbcolor 5 index 5 index 5 index sq fill
24     setrgbcolor 1.1 div sq fill
25   } bind def
26/ndi { 0 0 0 setrgbcolor 5 index 5 index 5 index di fill
27     setrgbcolor 1.1 div di fill
28   } bind def
29/arrl 1 def
30/arrw 0.3 def
31/lrl { 2 index mul exch 2 index mul exch rlineto pop} bind def
32/arr { setrgbcolor /y1 exch def /x1 exch def /dy exch def /dx exch def
33       /w exch def /len exch def
34       newpath x1 dy w 2 div mul add y1 dx w 2 div mul sub moveto
35       len w sub arrl sub dx dy lrl
36       arrw dy dx neg lrl
37       dx arrl w add mul dy w 2 div arrw add mul sub
38       dy arrl w add mul dx w 2 div arrw add mul add rlineto
39       dx arrl w add mul neg dy w 2 div arrw add mul sub
40       dy arrl w add mul neg dx w 2 div arrw add mul add rlineto
41       arrw dy dx neg lrl
42       len w sub arrl sub neg dx dy lrl
43       closepath fill } bind def
44/cshow { 2 index 2 index moveto dup stringwidth pop
45         neg 2 div fosi .35 mul neg rmoveto show pop pop} def
46
47gsave
48100 dup scale
49%Edges:
50gsave
51grestore
52%Nodes:
53gsave
541 1 1 0.2 1 0.2 nsq
55grestore
56grestore
57showpage
Note: See TracBrowser for help on using the repository browser.