diff --git a/components/gencon.pl b/components/gencon.pl index 7918bb9..89d2d32 100755 --- a/components/gencon.pl +++ b/components/gencon.pl @@ -18,17 +18,17 @@ for ($x = 1; $x <= 40; $x++) { $name .= "X$y" if $y > 1; print "#\n# $name\n#\n"; print "DEF $name CON 0 40 Y N 1 F N\n"; - $h = $x/2*100; - print "F0 \"CON\" 0 ".($h+50)." 60 H V C CNN\n"; - print "F1 \"$name\" 0 ".(-$h-50)." 60 H V C CNN\n"; + $h = $x / 2 * 100; + print "F0 \"CON\" 0 " . ($h + 50) . " 60 H V C CNN\n"; + print "F1 \"$name\" 0 " . (-$h - 50) . " 60 H V C CNN\n"; print "DRAW\n"; print "S -100 -$h 100 $h 0 1 0 N\n"; $n = 1; for ($px = 1; $px <= $x; $px++) { for ($py = 1; $py <= $y; $py++) { - print "X $n $n ".(400*($py-1.5)*2)." ". - ($h-$px*100+50)." 300 ". - ("?", "R", "L")[$py]." 50 50 1 1 P\n"; + print "X $n $n " . (400 * ($py - 1.5) * 2) . + " " . ($h - $px * 100 + 50) . " 300 " . + ("?", "R", "L")[$py] . " 50 50 1 1 P\n"; $n++; } }