icse99-2.ps

clustering tools and may use for research

		exch 0 rlineto

		0 exch rlineto

		pop neg 0 rlineto

		closepath

} bind def



/ellipse_path {

	/ry exch def

	/rx exch def

	/y exch def

	/x exch def

	matrix currentmatrix

	newpath

	x y translate

	rx ry scale

	0 0 1 0 360 arc

	setmatrix

} bind def



/endpage { showpage } bind def



/layercolorseq

	[	% layer color sequence - darkest to lightest

		[0 0 0]

		[.2 .8 .8]

		[.4 .8 .8]

		[.6 .8 .8]

		[.8 .8 .8]

	]

def



/setlayer {/maxlayer exch def /curlayer exch def

	layercolorseq curlayer get

	aload pop sethsbcolor

	/nodecolor {nopcolor} def

	/edgecolor {nopcolor} def

	/graphcolor {nopcolor} def

} bind def



/onlayer { curlayer ne {invis} if } def



/onlayers {

	/myupper exch def

	/mylower exch def

	curlayer mylower lt

	curlayer myupper gt

	or

	{invis} if

} def



/curlayer 0 def






14 default-font-family set_font

% /arrowlength 10 def

% /arrowwidth 5 def




gsave

35 35 200 327 boxprim clip newpath

36 36 translate

gsave 198 0 translate 90 rotate

0 0 1 beginpage

grestore

198 0 translate 90 rotate

0.000 0.000 0.000 graphcolor

14.00 /Times-Roman set_font

gsave 10 dict begin

bold

newpath 0 72 moveto

144 72 lineto

144 198 lineto

0 198 lineto

closepath

stroke

end grestore

gsave 10 dict begin

bold

newpath 152 0 moveto

296 0 lineto

296 126 lineto

152 126 lineto

closepath

stroke

end grestore



%	N1

gsave 10 dict begin

filled

0.537 0.247 0.902 nodecolor

36 171 27 18 ellipse_path

gsave 0 setgray stroke grestore fill

gsave 10 dict begin

0.000 0.000 0.000 nodecolor

36 172 moveto (N1) 17 14.00 -0.50 alignedtext

end grestore

end grestore



%	N2

gsave 10 dict begin

filled

0.537 0.247 0.902 nodecolor

36 99 27 18 ellipse_path

gsave 0 setgray stroke grestore fill

gsave 10 dict begin

0.000 0.000 0.000 nodecolor

36 100 moveto (N2) 17 14.00 -0.50 alignedtext

end grestore

end grestore



%	N1 -> N2

gsave 10 dict begin

0.667 1.000 1.000 edgecolor

newpath 36 153 moveto

36 145 36 136 36 127 curveto

stroke

newpath 34 127 moveto

36 117 lineto

39 127 lineto

closepath

gsave 0 setgray stroke grestore fill

end grestore



%	N3

gsave 10 dict begin

filled

0.537 0.247 0.902 nodecolor

188 99 27 18 ellipse_path

gsave 0 setgray stroke grestore fill

gsave 10 dict begin

0.000 0.000 0.000 nodecolor

188 100 moveto (N3) 17 14.00 -0.50 alignedtext

end grestore

end grestore



%	N2 -> N3

gsave 10 dict begin

0.667 1.000 1.000 edgecolor

newpath 63 99 moveto

93 99 122 99 151 99 curveto

stroke

newpath 151 97 moveto

161 99 lineto

151 102 lineto

closepath

gsave 0 setgray stroke grestore fill

end grestore



%	N4

gsave 10 dict begin

filled

0.537 0.247 0.902 nodecolor

108 171 27 18 ellipse_path

gsave 0 setgray stroke grestore fill

gsave 10 dict begin

0.000 0.000 0.000 nodecolor

108 172 moveto (N4) 17 14.00