view release on metacpan or  search on metacpan

lib/Chart/EPS_graph/PS.pm  view on Meta::CPAN

		origin moveto currentpoint translate
		0 5 x-fin {
			y.line exch mm exch mm
			dup 0 lt { pop 0 } if
			lineOp
		} for
		stroke
	grestore
} bind def

/formula {
	-194.77 250.75 2 index mul add
	.13976 2 index 2 exp mul sub
	2.2082e-2 3 xpnt sub
	1.5757e-4 4 xpnt add
	3.2312e-7 5 xpnt sub
} def

/do_curve {
	/x-fin 200 def /y.line { formula } def
	plot_pairs stroke
} def

/graph {
	font_name findfont font_size scalefont setfont
	origin moveto
	h_tick_value v_tick_value
	hLines vLines
	segregate? { marks_y2 } if
	marks_y1 marks_top marks_x