initial-route.eps

来自「math library from gnu」· EPS 代码 · 共 4,495 行 · 第 1/5 页

%!PS-Adobe-3.0 EPSF-3.0
%%Creator: GNU libplot drawing library 4.1
%%Title: PostScript plot
%%CreationDate: Thu Jan  4 10:56:26 2007
%%DocumentData: Clean7Bit
%%LanguageLevel: 1
%%Pages: 1
%%PageOrder: Ascend
%%Orientation: Portrait
%%BoundingBox: 101 194 489 610
%%DocumentNeededResources: 
%%DocumentSuppliedResources: procset GNU_libplot 1.0 0
%%EndComments

%%BeginDefaults
%%PageResources: 
%%EndDefaults

%%BeginProlog
%%EndProlog

%%BeginSetup
/DrawDict 50 dict def
DrawDict begin
%%BeginResource procset GNU_libplot 1.0 0
/none null def
/numGraphicParameters 17 def
/stringLimit 65535 def
/arrowHeight 8 def
/eoFillRule true def

/Begin { save numGraphicParameters dict begin } def
/End { end restore } def

/SetB {
dup type /nulltype eq {
pop
false /brushRightArrow idef
false /brushLeftArrow idef
true /brushNone idef
} {
/brushDashOffset idef
/brushDashArray idef
0 ne /brushRightArrow idef
0 ne /brushLeftArrow idef
/brushWidth idef
false /brushNone idef
} ifelse
} def

/SetCFg {
/fgblue idef
/fggreen idef
/fgred idef
} def

/SetCBg {
/bgblue idef
/bggreen idef
/bgred idef
} def

/SetF {
/printSize idef
/printFont idef
} def

/SetP {
dup type /nulltype eq {
pop true /patternNone idef
} {
/patternGrayLevel idef
patternGrayLevel -1 eq {
/patternString idef
} if
false /patternNone idef
} ifelse
} def

/BSpl {
0 begin
storexyn
newpath
n 1 gt {
0 0 0 0 0 0 1 1 true subspline
n 2 gt {
0 0 0 0 1 1 2 2 false subspline
1 1 n 3 sub {
/i exch def
i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
} for
n 3 sub dup n 2 sub dup n 1 sub dup 2 copy false subspline
} if
n 2 sub dup n 1 sub dup 2 copy 2 copy false subspline
patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
brushNone not { istroke } if
0 0 1 1 leftarrow
n 2 sub dup 1 sub dup rightarrow
} if
end
} dup 0 4 dict put def

/Circ {
newpath
0 360 arc
closepath
patternNone not { ifill } if
brushNone not { istroke } if
} def

/CBSpl {
0 begin
dup 2 gt {
storexyn
newpath
n 1 sub dup 0 0 1 1 2 2 true subspline
1 1 n 3 sub {
/i exch def
i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
} for
n 3 sub dup n 2 sub dup n 1 sub dup 0 0 false subspline
n 2 sub dup n 1 sub dup 0 0 1 1 false subspline
patternNone not { ifill } if
brushNone not { istroke } if
} {
Poly
} ifelse
end
} dup 0 4 dict put def

/Elli {
0 begin
newpath
4 2 roll
translate
scale
0 0 1 0 360 arc
closepath
patternNone not { ifill } if
brushNone not { istroke } if
end
} dup 0 1 dict put def

/Line {
0 begin
2 storexyn
newpath
x 0 get y 0 get moveto
x 1 get y 1 get lineto
brushNone not { istroke } if
0 0 1 1 leftarrow
0 0 1 1 rightarrow
end
} dup 0 4 dict put def

/MLine {
0 begin
storexyn
newpath
n 1 gt {
x 0 get y 0 get moveto
1 1 n 1 sub {
/i exch def
x i get y i get lineto
} for
patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
brushNone not { istroke } if
0 0 1 1 leftarrow
n 2 sub dup n 1 sub dup rightarrow
} if
end
} dup 0 4 dict put def

/Poly {
3 1 roll
newpath
moveto
-1 add
{ lineto } repeat
closepath
patternNone not { ifill } if
brushNone not { istroke } if
} def

/Rect {
0 begin
/t exch def
/r exch def
/b exch def
/l exch def
newpath
l b moveto
l t lineto
r t lineto
r b lineto
closepath
patternNone not { ifill } if
brushNone not { istroke } if
end
} dup 0 4 dict put def

/Text {
ishow
} def

/idef {
dup where { pop pop pop } { exch def } ifelse
} def

/ifill {
0 begin
gsave
patternGrayLevel -1 ne {
fgred bgred fgred sub patternGrayLevel mul add
fggreen bggreen fggreen sub patternGrayLevel mul add
fgblue bgblue fgblue sub patternGrayLevel mul add setrgbcolor
eoFillRule { eofill } { fill } ifelse
} {
eoFillRule { eoclip } { clip } ifelse
originalCTM setmatrix
pathbbox /t exch def /r exch def /b exch def /l exch def
/w r l sub ceiling cvi def
/h t b sub ceiling cvi def
/imageByteWidth w 8 div ceiling cvi def
/imageHeight h def
bgred bggreen bgblue setrgbcolor
eoFillRule { eofill } { fill } ifelse
fgred fggreen fgblue setrgbcolor
w 0 gt h 0 gt and {
l b translate w h scale
w h true [w 0 0 h neg 0 h] { patternproc } imagemask
} if
} ifelse
grestore
end
} dup 0 8 dict put def

/istroke {
gsave
brushDashOffset -1 eq {
[] 0 setdash
1 setgray
} {
brushDashArray brushDashOffset setdash
fgred fggreen fgblue setrgbcolor
} ifelse
brushWidth setlinewidth
originalCTM setmatrix
stroke
grestore
} def

/ishow {
0 begin
gsave
fgred fggreen fgblue setrgbcolor
/fontDict printFont findfont printSize scalefont dup setfont def
/descender fontDict begin 0 /FontBBox load 1 get FontMatrix end
transform exch pop def
/vertoffset 1 printSize sub descender sub def {
0 vertoffset moveto show
/vertoffset vertoffset printSize sub def
} forall
grestore
end
} dup 0 3 dict put def

/patternproc {
0 begin
/patternByteLength patternString length def
/patternHeight patternByteLength 8 mul sqrt cvi def
/patternWidth patternHeight def
/patternByteWidth patternWidth 8 idiv def
/imageByteMaxLength imageByteWidth imageHeight mul
stringLimit patternByteWidth sub min def
/imageMaxHeight imageByteMaxLength imageByteWidth idiv patternHeight idiv
patternHeight mul patternHeight max def
/imageHeight imageHeight imageMaxHeight sub store
/imageString imageByteWidth imageMaxHeight mul patternByteWidth add string def
0 1 imageMaxHeight 1 sub {
/y exch def
/patternRow y patternByteWidth mul patternByteLength mod def
/patternRowString patternString patternRow patternByteWidth getinterval def
/imageRow y imageByteWidth mul def
0 patternByteWidth imageByteWidth 1 sub {
/x exch def
imageString imageRow x add patternRowString putinterval
} for
} for
imageString
end
} dup 0 12 dict put def

/min {
dup 3 2 roll dup 4 3 roll lt { exch } if pop
} def

/max {
dup 3 2 roll dup 4 3 roll gt { exch } if pop
} def

/midpoint {
0 begin
/y1 exch def
/x1 exch def
/y0 exch def
/x0 exch def
x0 x1 add 2 div
y0 y1 add 2 div
end
} dup 0 4 dict put def

/thirdpoint {
0 begin
/y1 exch def
/x1 exch def
/y0 exch def
/x0 exch def
x0 2 mul x1 add 3 div
y0 2 mul y1 add 3 div
end
} dup 0 4 dict put def

/subspline {
0 begin
/movetoNeeded exch def
y exch get /y3 exch def
x exch get /x3 exch def
y exch get /y2 exch def
x exch get /x2 exch def
y exch get /y1 exch def
x exch get /x1 exch def
y exch get /y0 exch def
x exch get /x0 exch def
x1 y1 x2 y2 thirdpoint
/p1y exch def
/p1x exch def
x2 y2 x1 y1 thirdpoint
/p2y exch def
/p2x exch def
x1 y1 x0 y0 thirdpoint
p1x p1y midpoint
/p0y exch def
/p0x exch def
x2 y2 x3 y3 thirdpoint
p2x p2y midpoint
/p3y exch def
/p3x exch def
movetoNeeded { p0x p0y moveto } if
p1x p1y p2x p2y p3x p3y curveto
end
} dup 0 17 dict put def

/storexyn {
/n exch def
/y n array def
/x n array def
n 1 sub -1 0 {
/i exch def
y i 3 2 roll put
x i 3 2 roll put
} for
} def

/arrowhead {
0 begin
transform originalCTM itransform
/taily exch def
/tailx exch def
transform originalCTM itransform
/tipy exch def
/tipx exch def
/dy tipy taily sub def
/dx tipx tailx sub def
/angle dx 0 ne dy 0 ne or { dy dx atan } { 90 } ifelse def
gsave
originalCTM setmatrix
tipx tipy translate
angle rotate
newpath
arrowHeight neg arrowWidth 2 div moveto
0 0 lineto
arrowHeight neg arrowWidth 2 div neg lineto
patternNone not {
originalCTM setmatrix
/padtip arrowHeight 2 exp 0.25 arrowWidth 2 exp mul add sqrt brushWidth mul
arrowWidth div def
/padtail brushWidth 2 div def
tipx tipy translate
angle rotate
padtip 0 translate
arrowHeight padtip add padtail add arrowHeight div dup scale
arrowheadpath
ifill
} if
brushNone not {
originalCTM setmatrix
tipx tipy translate
angle rotate
arrowheadpath
istroke
} if
grestore
end
} dup 0 9 dict put def

/arrowheadpath {
newpath
arrowHeight neg arrowWidth 2 div moveto
0 0 lineto
arrowHeight neg arrowWidth 2 div neg lineto
} def

/leftarrow {
0 begin
y exch get /taily exch def
x exch get /tailx exch def
y exch get /tipy exch def
x exch get /tipx exch def
brushLeftArrow { tipx tipy tailx taily arrowhead } if
end
} dup 0 4 dict put def

/rightarrow {
0 begin
y exch get /tipy exch def
x exch get /tipx exch def
y exch get /taily exch def
x exch get /tailx exch def
brushRightArrow { tipx tipy tailx taily arrowhead } if
end
} dup 0 4 dict put def
%%EndResource
%%EndSetup

%%Page: 1 1
%%PageResources: 
%%PageBoundingBox: 101 194 489 610
%%BeginPageSetup
%I Idraw 8

Begin
%I b u
%I cfg u
%I cbg u
%I f u
%I p u
%I t
[ 1 0 0 1 0 0 ] concat
/originalCTM matrix currentmatrix def
/trueoriginalCTM matrix currentmatrix def
%%EndPageSetup

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
3399 10017
3399 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
3414 10017
3414 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 6
3311 10017
3297 9930
3297 10017
3517 10017
3517 9930
3502 10017
6 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
3355 9710
3458 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 16
3781 9973
3795 10017
3795 9930
3781 9973
3751 10003
3707 10017
3663 10017
3619 10003
3590 9973
3590 9944
3605 9915
3619 9900
3649 9886
3737 9856
3766 9842
3795 9812
16 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 16
3590 9944
3619 9915
3649 9900
3737 9871
3766 9856
3781 9842
3795 9812
3795 9754
3766 9724
3722 9710
3678 9710
3634 9724
3605 9754
3590 9798
3590 9710
3605 9754
16 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
3913 10017
3913 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
3927 10017
3927 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 10
3869 10017
4045 10017
4089 10003
4103 9988
4118 9959
4118 9915
4103 9886
4089 9871
4045 9856
3927 9856
10 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 8
4045 10017
4074 10003
4089 9988
4103 9959
4103 9915
4089 9886
4074 9871
4045 9856
8 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
3869 9710
3971 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
4455 9842
4719 9842
2 MLine
End

Begin %I Poly
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 4
5100 10003
5086 9988
5071 10003
5086 10017
4 Poly
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
5086 9915
5086 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
5100 9915
5100 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
5042 9915
5100 9915
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
5042 9710
5144 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
5247 9915
5247 9710
2 MLine
End

Begin %I MLine
[1.040989 0 0 1.040989 0 0 ] trueoriginalCTM originalCTM
concatmatrix pop
1 setlinecap 1 setlinejoin
/eoFillRule true def
%I b 65535
1 0 0 [ ] 0 SetB
%I cfg Black
0 0 0 SetCFg
%I cbg White
1 1 1 SetCBg
%I p
none SetP
%I t
[0.05 0 0 0.05 18 108 ] concat
%I 2
5261 9915
5261 9710
2 MLine
End