View.Set ("graphics:max,max")


proc grid(x1,y1,size:int)
var half:int:=size div 2
if size > 10 then
drawbox (x1,y1,x1+size,y1+size,black)
grid (x1,y1,half)
grid (x1+half,y1,half)


end if
end grid

grid (50,50,200)



View.Set ("graphics:max,max")


proc grid(x1,y1,size:int)
var half:int:=size div 2
if size > 10 then
drawbox (x1,y1,x1+size,y1+size,black)
grid (x1,y1,half)
grid (x1+half,y1,half)


end if
end grid

grid (50,50,200)



View.Set ("graphics:max,max")


proc grid(x1,y1,size:int)
var half:int:=size div 2
if size > 10 then
drawbox (x1,y1,x1+size,y1+size,black)
grid (x1,y1,half)
grid (x1+half,y1,half)


end if
end grid

grid (50,50,200)


View.Set ("graphics:max,max")


proc grid(x1,y1,size:int)
var half:int:=size div 2
if size > 10 then
drawbox (x1,y1,x1+size,y1+size,black)
grid (x1,y1,half)
grid (x1+half,y1,half)


end if
end grid

grid (50,50,200)


View.Set ("graphics:max,max")


proc grid(x1,y1,size:int)
var half:int:=size div 2
if size > 10 then
drawbox (x1,y1,x1+size,y1+size,black)
grid (x1,y1,half)
grid (x1+half,y1,half)


end if
end grid

grid (50,50,200)