Select Code to Download

#! perl -slw
use strict;
...
x1    y1    x1    y1    x1    y1
x2    y2    x2    y2    x2    y2
x3    y3    x3    y3    x3    y3

c:\test>junk2
{
...
}
DS3-X == x3, DS1-Y == y3