# ... intro stuff...

labent($frm, 'X1',     \$x1,   8);
labent($frm, 'Y1',     \$y1,   8);
labent($frm, 'X2',     \$x2,   8);
labent($frm, 'Y2',     \$y2,   8);
labent($frm, 'Start',  \$deg,  8);
labent($frm, 'Extent', \$ext,  8);

#------------------------------------
#PATCH 1
my $normal = 0;
labent($frm, 'Normal', \$normal, 8);
#------------------------------------

# ... more stuff ...

sub random_args {
    $x1  = random_value(0, $cw);
    $x2  = random_value(0, $cw);
    $y1  = random_value(0, $ch);
    $y2  = random_value(0, $ch);
    $deg = random_value(0, 360);

    #------------------------------------
    #PATCH 2
    if ($normal) {
       $x2 = 2*$x1 - $x2 if $x2 < $x1;
       $y2 = 2*$y1 - $y2 if $y2 < $y1;
    }
    #------------------------------------
}