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)