Change Details
components/gencon.pl |
18 | 18 | $name .= "X$y" if $y > 1; |
19 | 19 | print "#\n# $name\n#\n"; |
20 | 20 | 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"; |
24 | 24 | print "DRAW\n"; |
25 | 25 | print "S -100 -$h 100 $h 0 1 0 N\n"; |
26 | 26 | $n = 1; |
27 | 27 | for ($px = 1; $px <= $x; $px++) { |
28 | 28 | 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"; |
32 | 32 | $n++; |
33 | 33 | } |
34 | 34 | } |
Download the corresponding diff file