393c393
<         set nmax [expr {ceil($n*($rymin-$rymax)/double($pymin-$pymax))}]
---
>         set nmax [expr {ceil($n*($rymin-$rymax)/double($pymax-$pymin))}]
407c407
<             set y2     [expr {$rymax+($i+1)*$fac}]
---
>             set y2     [expr {$rymin+$i*$fac}]
409c409
<                 set y2 $rymin
---
>                 set y2 $rymax
