-module( plot_coordinate_pairs ).

-export( [task/0, to_png_file/3] ).

task() ->
	Xs = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9],
	Ys = [2.7, 2.8, 31.4, 38.1, 58.0, 76.2, 100.5, 130.0, 149.3, 180.0],
	File = "plot_coordinate_pairs",
	to_png_file( File, Xs, Ys ).

to_png_file( File, Xs, Ys ) ->
	PNG = egd_chart:graph( [{File, lists:zip(Xs, Ys)}] ),
	file:write_file( File ++ ".png", PNG ).