#!/usr/bin/perl
$r = $ARGV[4];
$g = $ARGV[5];
$b = $ARGV[6];

$x1 = $ARGV[0];
$y1 = $ARGV[1];
$x2 = $ARGV[2];
$y2 = $ARGV[3];

$rd = 65535-$r;
$gd = 65535-$g;
$bd = 65535-$b;


print "7,$x1,$y1,$x2,$y2,$rd,$gd,$bd\n";
print "6,$x1,$y1,$x2,$y2,$r,$g,$b\n";

$xd = $x2-$x1;
$yd = $y2-$y1;



$x1 += int( $xd/4 );
$y1 += int( $xd/4 );
$x2 -= int( $yd/4 );
$y2 -= int( $yd/4 );

print "7,$x1,$y1,$x2,$y2,$r,$g,$b\n";
