&rem **** define variables and initialize


SHOW NUMBER SELECT -19
 &goto *FALSE0000* &if &NE %-19 0
   &type "No features selected."
   &return
 &LABEL *FALSE0000*
SHOW SETANGLE -14
SHOW COO -15

&rem **** get matchlines

&type " "
&type "Define first pair of match points:"
&type "(<9> on 2nd point will cancel)"
&getxym -1 -2 -19
&getxym -5 -6 -19
 &goto *FALSE0001* &if &NE %-19 9
   &return
 &LABEL *FALSE0001*
&type " "
&type "Define second pair of match points:"
&type "(<9> on 2nd point will cancel)"
&getxym -3 -4 -19
&getxym -7 -8 -19
 &goto *FALSE0002* &if &NE %-19 9
   &return
 &LABEL *FALSE0002*
WIN FOCUS T

&rem **** translate selected feature(s)

COO KEY
MOVE
1 %-1 %-2
1 %-5 %-6

&rem **** rotate selected feature(s)

&cv -9 %-3 - %-1
&cv -10 %-4 - %-2
&cv -13 ( ( %-9 * %-9 ) + ( %-10 * %-10 ) ) ** 0.5
&cv -11 %-7 - %-5
&cv -12 %-8 - %-6
&cv -7 ( ( %-11 * %-10 ) - ( %-9 * %-12 ) ) / %-13 + %-5
&cv -8 ( ( %-9 * %-11 ) + ( %-10 * %-12 ) ) / %-13 + %-6
SETANGLE 0
ROTATE
1 %-5 %-6
1 %-7 %-8
SETANGLE %-14
COO %-15
&return