#!/usr/bin/perl -n

s|^\s*||;
s|\s*$||;
s|\#.*||;
s|\<X\>|x|;
s|\<Y\>|y|;

if (/^$/) {}
elsif (/^point\s*(.*?)(?:\s+at)?\s*\((.+)\,(.+)\)$/i) { print "point\n$1\n$2\n$3\n" }
elsif (/^point\s*(.*?)(?:\s+at)?\s+(.+)\,(.+)$/i) { print "point\n$1\n$2\n$3\n" }
elsif (/^f?point\s*(.*?)\s+(?:at\s+)?(.*)$/i) { print "fpoint\n$1\n$2\n" }
elsif (/^range.*?\((.+)\,(.+)\).*?\((.+)\,(.+)\)$/i) { print "range\n$1\n$2\n$3\n$4\n" }
elsif (/^range\:?\s+(.+)\,(.+)\,(.+)\,(.+)$/i) { print "range\n$1\n$2\n$3\n$4\n" }
elsif (/^range\:?\s+(.+)\,(.+)\s+(.+)\,(.+)$/i) { print "range\n$1\n$2\n$3\n$4\n" }
elsif (/^range\:?\s+(.+)\s+(.+)\s+(.+)\s+(.+)$/i) { print "range\n$1\n$2\n$3\n$4\n" }
elsif (/^tangente?\:?\s+(.*)$/i) { print "tangent\n$1\n" }
elsif (/^plot\s+(.*)$/i) { $_ = $1; !/\by\b/ && /[=<>]/ && print "x"; print "plot\n$_\n" }
elsif (/^xplot\s+(.*)$/i) { print "xplot\n$1\n" }
elsif (/^hatchings?/i) { print "hatching\n" }
elsif (/^hachures?/i) { print "hatching\n" }
else { print stderr "unknown command or bad parameters ($_)\n" }
