sub plotPoint {
    my($obj, $x, $y, $r, $color)= @_;

    $color = "black" unless $color;

    $obj->create("oval", ($x-($r/2))."i", ($y - ($r/2))."i", ($x+($r/2))."i", ($y + ($r/2))."i", "-outline", "$color");
}

sub cartesianPoint {
    my($obj, $x, $y, $color) = @_;

    if(!defined $scaleSetup){
	print("Must define scale with call to setupScale\n");
    }

    plotPoint($obj,
	      (($x*$xScale)+$xOrigin),
	      ($yOrigin-($y*$yScale)),
	      0, $color);

#    print "Plotting: ", (($x*$xScale)+$xOrigin), ($yOrigin-($y*$yScale)), "\n"; # 


}

sub setupScale {
    my(%config) = @_;

    $xOrigin = $config{'xOrigin'};
    $yOrigin = $config{'yOrigin'};
    $xScale = $config{'xScale'};
    $yScale = $config{'yScale'};
    $scaleSetup = 1;
}

1;