function wmtp_plotpoint(fid, handle, pictsize, varargin)
%#
%# The WMT tool is a collection of Octave/Matlab scripts able to generate geographic maps images.
%#
%# Copyright 2012 ikonact
%# http://commons.wikimedia.org/wiki/User:Ikonact
%#
%# This file is part of the WMT tool.
%#
%# WMT is free software: you can redistribute it and/or modify
%# it under the terms of the GNU General Public License as published by
%# the Free Software Foundation, either version 3 of the License, or
%# (at your option) any later version.
%#
%# WMT is distributed in the hope that it will be useful,
%# but WITHOUT ANY WARRANTY; without even the implied warranty of
%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%# GNU General Public License for more details.
%#
%# You should have received a copy of the GNU General Public License
%# along with WMT. If not, see <http://www.gnu.org/licenses/>.
[x1, y1] = wmtp_reproject(gca, get(handle, 'XData'), get(handle, 'YData'));
r =round(0.005*min(pictsize(1), pictsize(2))); % set the circle radius as 0.5% of the shortest side of the picture
if nargin >= 4
fprintf(fid, '<circle %s cx="%0.3f" cy="%0.3f" r="%d"/>\n',varargin{1}, x1*pictsize(1), y1*pictsize(2), r);
else
fprintf(fid, '<circle %s cx="%0.3f" cy="%0.3f" r="%d"/>\n', x1*pictsize(1), y1*pictsize(2), r);
end
