<commit_before>#!/usr/bin/perl

$d = 2.54/1000*12;
$r = $d/2+0.1;


sub orig
{
    $x0 = $_[0];
    $y0 = $_[1];
}


sub mil
{
    return $_[0]/1000*25.4;
}


sub cut
{
    if (defined $x) {
	if ($x == $_[0]+$x0 && $y == $_[1]+$y0) {
	    shift @_;
	    shift @_;
	} else {
	    print "\n";
	}
    }
    while (@_) {
	$x = shift @_;
	$y = shift @_;
	($x, $y) = (-$y, $x);
	$x += $x0;
	$y += $y0;
	print "$x $y $z\n";
    }
}


sub one
{
    &cut(
      &mil(   0)-$r,	&mil(  0)-$r,
      &mil(   0)-$r,	&mil(620)+$r,
      &mil( 810)+$r,	&mil(620)+$r,
      &mil( 850)  ,	&mil(580)+$r,
      &mil( 890)-$r,	&mil(620)+$r,
      &mil(1300)+$r,	&mil(620)+$r,
      &mil(1490)+$r,	&mil(430)+$r,
      &mil(1630)+$r,	&mil(430)+$r,
      &mil(1630)+$r,	&mil(360)+$r,
      &mil(1850)-$r,	&mil(360)+$r,
      &mil(1850)-$r,	&mil(430)+$r,
      &mil(2150)+$r,	&mil(430)+$r,
      &mil(2150)+$r,	&mil(-70)-$r,
      &mil( 890)-$r,	&mil(-70)-$r,
      &mil( 890)-$r,	&mil(  0)-$r,
      &mil( 850)   ,	&mil( 40)-$r,
      &mil( 810)+$r,	&mil(  0)-$r,
      &mil(   0)-$r,	&mil(  0)-$r);
}


z = -0.8
# x: corner offset, compensation for rotation, array position
# y: corner offet
&orig(5+16+22*3, 5)
&one;
<commit_msg>Typo causing silent failure: forgot the semicolon, so "doit" thought these were empty lines and didn't add the Z offset.<commit_after>#!/usr/bin/perl

$d = 2.54/1000*12;
$r = $d/2+0.1;


sub orig
{
    $x0 = $_[0];
    $y0 = $_[1];
}


sub mil
{
    return $_[0]/1000*25.4;
}


sub cut
{
    if (defined $x) {
	if ($x == $_[0]+$x0 && $y == $_[1]+$y0) {
	    shift @_;
	    shift @_;
	} else {
	    print "\n";
	}
    }
    while (@_) {
	$x = shift @_;
	$y = shift @_;
	($x, $y) = (-$y, $x);
	$x += $x0;
	$y += $y0;
	print "$x $y $z\n";
    }
}


sub one
{
    &cut(
      &mil(   0)-$r,	&mil(  0)-$r,
      &mil(   0)-$r,	&mil(620)+$r,
      &mil( 810)+$r,	&mil(620)+$r,
      &mil( 850)  ,	&mil(580)+$r,
      &mil( 890)-$r,	&mil(620)+$r,
      &mil(1300)+$r,	&mil(620)+$r,
      &mil(1490)+$r,	&mil(430)+$r,
      &mil(1630)+$r,	&mil(430)+$r,
      &mil(1630)+$r,	&mil(360)+$r,
      &mil(1850)-$r,	&mil(360)+$r,
      &mil(1850)-$r,	&mil(430)+$r,
      &mil(2150)+$r,	&mil(430)+$r,
      &mil(2150)+$r,	&mil(-70)-$r,
      &mil( 890)-$r,	&mil(-70)-$r,
      &mil( 890)-$r,	&mil(  0)-$r,
      &mil( 850)   ,	&mil( 40)-$r,
      &mil( 810)+$r,	&mil(  0)-$r,
      &mil(   0)-$r,	&mil(  0)-$r);
}


$z = -0.8;
# x: corner offset, compensation for rotation, array position
# y: corner offet
&orig(5+16+22*3, 5)
&one;

{'fraction_non_alphanumeric': 0.2906930693069307, 'fraction_numerical': 0.1093069306930693, 'mean_word_length': 2.284785435630689, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7072731', 'n_tokens_mistral': 1496, 'n_tokens_neox': 1332, 'n_words': 253}