## 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