doc/images/nodeshape_1.eps
author alpar
Thu, 09 Jun 2005 16:23:16 +0000
changeset 1465 60c2961c75ca
permissions -rw-r--r--
Akos' research pointed out that it is a must.
alpar@1107
     1
%!PS-Adobe-2.0 EPSF-2.0
alpar@1107
     2
%%Title: LEMON GraphToEps figure
alpar@1107
     3
%%Creator: LEMON GraphToEps function
alpar@1107
     4
%%BoundingBox: 0 0 200 200
alpar@1107
     5
%%EndComments
alpar@1107
     6
/lb { setlinewidth setrgbcolor newpath moveto
alpar@1107
     7
      4 2 roll 1 index 1 index curveto stroke } bind def
alpar@1107
     8
/l { setlinewidth setrgbcolor newpath moveto lineto stroke } bind def
alpar@1107
     9
/c { newpath dup 3 index add 2 index moveto 0 360 arc closepath } bind def
alpar@1107
    10
/sq { newpath 2 index 1 index add 2 index 2 index add moveto
alpar@1107
    11
      2 index 1 index sub 2 index 2 index add lineto
alpar@1107
    12
      2 index 1 index sub 2 index 2 index sub lineto
alpar@1107
    13
      2 index 1 index add 2 index 2 index sub lineto
alpar@1107
    14
      closepath pop pop pop} bind def
alpar@1107
    15
/di { newpath 2 index 1 index add 2 index moveto
alpar@1107
    16
      2 index             2 index 2 index add lineto
alpar@1107
    17
      2 index 1 index sub 2 index             lineto
alpar@1107
    18
      2 index             2 index 2 index sub lineto
alpar@1107
    19
      closepath pop pop pop} bind def
alpar@1107
    20
/nc { 0 0 0 setrgbcolor 5 index 5 index 5 index c fill
alpar@1107
    21
     setrgbcolor 1.1 div c fill
alpar@1107
    22
   } bind def
alpar@1107
    23
/nsq { 0 0 0 setrgbcolor 5 index 5 index 5 index sq fill
alpar@1107
    24
     setrgbcolor 1.1 div sq fill
alpar@1107
    25
   } bind def
alpar@1107
    26
/ndi { 0 0 0 setrgbcolor 5 index 5 index 5 index di fill
alpar@1107
    27
     setrgbcolor 1.1 div di fill
alpar@1107
    28
   } bind def
alpar@1107
    29
/arrl 1 def
alpar@1107
    30
/arrw 0.3 def
alpar@1107
    31
/lrl { 2 index mul exch 2 index mul exch rlineto pop} bind def
alpar@1107
    32
/arr { setrgbcolor /y1 exch def /x1 exch def /dy exch def /dx exch def
alpar@1107
    33
       /w exch def /len exch def
alpar@1107
    34
       newpath x1 dy w 2 div mul add y1 dx w 2 div mul sub moveto
alpar@1107
    35
       len w sub arrl sub dx dy lrl
alpar@1107
    36
       arrw dy dx neg lrl
alpar@1107
    37
       dx arrl w add mul dy w 2 div arrw add mul sub
alpar@1107
    38
       dy arrl w add mul dx w 2 div arrw add mul add rlineto
alpar@1107
    39
       dx arrl w add mul neg dy w 2 div arrw add mul sub
alpar@1107
    40
       dy arrl w add mul neg dx w 2 div arrw add mul add rlineto
alpar@1107
    41
       arrw dy dx neg lrl
alpar@1107
    42
       len w sub arrl sub neg dx dy lrl
alpar@1107
    43
       closepath fill } bind def
alpar@1107
    44
/cshow { 2 index 2 index moveto dup stringwidth pop
alpar@1107
    45
         neg 2 div fosi .35 mul neg rmoveto show pop pop} def
alpar@1107
    46
alpar@1107
    47
gsave
alpar@1107
    48
100 dup scale
alpar@1107
    49
%Edges:
alpar@1107
    50
gsave
alpar@1107
    51
grestore
alpar@1107
    52
%Nodes:
alpar@1107
    53
gsave
alpar@1107
    54
1 1 1 0.2 1 0.2 nsq
alpar@1107
    55
grestore
alpar@1107
    56
grestore
alpar@1107
    57
showpage