Date:2016-09-14 00:35:37 (3 years 10 months ago)
Author:Werner Almesberger
Commit:c3ebae8a401760e605111cff4a3f1447e76b4d6c
Message:components/gencon.pl: put spaces around operators

Files: components/gencon.pl (1 diff)

Change Details

components/gencon.pl
1818        $name .= "X$y" if $y > 1;
1919        print "#\n# $name\n#\n";
2020        print "DEF $name CON 0 40 Y N 1 F N\n";
21        $h = $x/2*100;
22        print "F0 \"CON\" 0 ".($h+50)." 60 H V C CNN\n";
23        print "F1 \"$name\" 0 ".(-$h-50)." 60 H V C CNN\n";
21        $h = $x / 2 * 100;
22        print "F0 \"CON\" 0 " . ($h + 50) . " 60 H V C CNN\n";
23        print "F1 \"$name\" 0 " . (-$h - 50) . " 60 H V C CNN\n";
2424        print "DRAW\n";
2525        print "S -100 -$h 100 $h 0 1 0 N\n";
2626        $n = 1;
2727        for ($px = 1; $px <= $x; $px++) {
2828            for ($py = 1; $py <= $y; $py++) {
29                print "X $n $n ".(400*($py-1.5)*2)." ".
30                    ($h-$px*100+50)." 300 ".
31                    ("?", "R", "L")[$py]." 50 50 1 1 P\n";
29                print "X $n $n " . (400 * ($py - 1.5) * 2) .
30                    " " . ($h - $px * 100 + 50) . " 300 " .
31                    ("?", "R", "L")[$py] . " 50 50 1 1 P\n";
3232                $n++;
3333            }
3434        }

Archive Download the corresponding diff file

Branches:
master



interactive