// closearea
// closearea $x0 $y0 $x1 $y1
closearea = [
    num_i = (div (- $arg3 $arg1) 40);
    num_j = (div (- $arg4 $arg2) 40);
    loop i $num_i [
        loop j $num_j [
            x = (+ $arg1 (* $i 40));
            y = (+ $arg2 (* $j 40));
            select $x $y 1 3;
            solid 1;
            //edittex 2 1
        ]
    ]
]