local ar1(4), arx(4), ary(4)

create cursor tmp (kv C(8))
for i=0 to 7^8-1
    if i%100=0
        wait window allt(str(i))+"/"+allt(str(7^8-1)) nowait
    endif
    j=i
    ar1(1)=j%49
    j=int(j/49)
    ar1(2)=j%49
    j=int(j/49)
    ar1(3)=j%49
    j=int(j/49)
    ar1(4)=j%49
    asort(ar1)
    if ar1(1)=ar1(2) or ar1(2)=ar1(3) or ar1(3)=ar1(4)
        loop
    endif
    if (ar1(3)%7)>(ar1(2)%7)
        m.t=ar1(3)
        ar1(3)=ar1(2)
        ar1(2)=m.t
    endif
    arx(1)=ar1(1)%7
    ary(1)=int(ar1(1)/7)
    arx(2)=ar1(2)%7
    ary(2)=int(ar1(2)/7)
    arx(4)=ar1(3)%7
    ary(4)=int(ar1(3)/7)
    arx(3)=ar1(4)%7
    ary(3)=int(ar1(4)/7)
    
    if    ary(3)-ary(2)=arx(2)-arx(1) ;
            and arx(2)-arx(3)=ary(2)-ary(1) ;
             and ary(4)-ary(3)=arx(3)-arx(2) ;
            and arx(3)-arx(4)=ary(3)-ary(2)
        
        insert into tmp values (str(arx(1)+1,1,0)+ ;
            str(ary(1)+1,1,0)+ ;
            str(arx(2)+1,1,0)+ ;
            str(ary(2)+1,1,0)+ ;
            str(arx(3)+1,1,0)+ ;
            str(ary(3)+1,1,0)+ ;
            str(arx(4)+1,1,0)+ ;
            str(ary(4)+1,1,0))
    endif
next

wait clear

select distinct kv from tmp order by 1 into cursor kvadr

browse

close data all

m.sc=seconds()

m.xdim=7
m.ydim=7
create cursor xcoor (x I)
create cursor ycoor (y I)
for i=1 to m.xdim
    insert into xcoor values (i)
next
for i=1 to m.ydim
    insert into ycoor values (i)
next

select x,y from xcoor, ycoor into cursor xycoor

select xy1.x as x1, xy1.y as y1, xy2.x as x2, xy2.y as y2 ;
    from xycoor xy1 join xycoor xy2 on xy1.x<xy2.x and xy1.y<=xy2.y ;
    into cursor ver12

select x1, y1, x2, y2, x2+y1-y2 as x3, y2+x2-x1 as y3, ;
        x1+y1-y2 as x4, y1+x2-x1 as y4 ;
    from ver12 where x1+y1-y2>0 and y2+x2-x1<=m.ydim ;
    into cursor ver1234

select str(x1,1,0)+str(y1,1,0)+str(x2,1,0)+str(y2,1,0)+ ;
        str(x3,1,0)+str(y3,1,0)+str(x4,1,0)+str(y4,1,0) as kv ;
    from ver1234 order by 1 into cursor kvadr

?seconds()-m.sc

  m.xdim=7  
  m.ydim=7  
  create cursor xcoor (x I)  
  create cursor ycoor (y I)  
  for i=1 to m.xdim  
      insert into xcoor values (i)  
  next  
  for i=1 to m.ydim  
      insert into ycoor values (i)  
  next  
    
  select x,y from xcoor, ycoor into cursor xycoor  
    
  select xy1.x as x1, xy1.y as y1, xy2.x as x2, xy2.y as y2 ;  
      from xycoor xy1 join xycoor xy2 on xy1.x<xy2.x and xy1.y<=xy2.y ;  
      into cursor ver12  
    
  select x1, y1, x2, y2, x2+y1-y2 as x3, y2+x2-x1 as y3, ;  
          x1+y1-y2 as x4, y1+x2-x1 as y4 ;  
      from ver12 where x1+y1-y2>0 and y2+x2-x1<=m.ydim ;  
      into cursor ver1234  
    
  select str(x1,1,0)+str(y1,1,0) as v1, str(x2,1,0)+str(y2,1,0) as v2, ;  
      str(x3,1,0)+str(y3,1,0) as v3, str(x4,1,0)+str(y4,1,0) as v4 ;  
      from ver1234 order by 1 into cursor kvadr  

create cursor cher_hody (hod C(2))

select * from kvadr where ;
    v1 in (select * from cher_hody) and ;
    v2 in (select * from cher_hody) and ;
    v3 in (select * from cher_hody) and ;
    v4 in (select * from cher_hody);
    into cursor kv

if _tally>0
    && есть квадрат
endif

close all
clear all
set talk off
set deleted on

#DEFINE XCNT 6
#DEFINE YCNT 6

#DEFINE SHAG 40

declare Sleep in Win32API Integer


create cursor cher_hody (hod C(2))

m.xdim=XCNT    
m.ydim=YCNT    
create cursor xcoor (x I)    
create cursor ycoor (y I)    
for i=1 to m.xdim    
    insert into xcoor values (i)    
next    
for i=1 to m.ydim    
    insert into ycoor values (i)    
next    
    
select x,y from xcoor, ycoor into cursor xycoor    
    
select xy1.x as x1, xy1.y as y1, xy2.x as x2, xy2.y as y2 ;    
    from xycoor xy1 join xycoor xy2 on xy1.x<xy2.x and xy1.y<=xy2.y ;    
    into cursor ver12    
    
select x1, y1, x2, y2, x2+y1-y2 as x3, y2+x2-x1 as y3, ;    
        x1+y1-y2 as x4, y1+x2-x1 as y4 ;    
    from ver12 where x1+y1-y2>0 and y2+x2-x1<=m.ydim ;    
    into cursor ver1234    

select str(x1,1,0)+str(y1,1,0) as v1, str(x2,1,0)+str(y2,1,0) as v2, ;    
    str(x3,1,0)+str(y3,1,0) as v3, str(x4,1,0)+str(y4,1,0) as v4 ;    
    from ver1234 order by 1 into cursor kvadr


oForm=NEWOBJECT("form1")

for m.i=1 to YCNT

    oForm.ADDOBJECT("linex"+allt(str(i)),"line")
    with eval("oForm.linex"+allt(str(i)))
        .Height = 0
        .Left = SHAG
        .Top = SHAG*m.i
        .Width = SHAG*(XCNT-1)
        .visible=.t.
    endwith

next


for m.i=1 to XCNT

    oForm.ADDOBJECT("liney"+allt(str(i)),"line")
    with eval("oForm.liney"+allt(str(i)))
        .Height = SHAG*(YCNT-1)
        .Left = SHAG*m.i
        .Top = SHAG
        .Width = 0
        .visible=.t.
    endwith

next


for m.i=1 to XCNT
    for m.j=1 to YCNT

    oForm.ADDOBJECT("fishka"+allt(str(m.i))+allt(str(m.j)),"fishka")
    with eval("oForm.fishka"+allt(str(m.i))+allt(str(m.j)))
        .Top = SHAG*m.j-SHAG/4
        .Left = SHAG*m.i-SHAG/4
        .visible=.t.
    endwith

    next
next


oform.Show
RETURN


DEFINE CLASS form1 AS form


    Autocenter=.t.
    Height = SHAG*(YCNT+1)
    Width = SHAG*(XCNT+1)
    DoCreate = .T.
    Caption = "Kvadratobojaznj"
    WindowType = 1
    MinButton=.f.
    MaxButton=.f.
    Name = "Form1"
    
    Procedure otv_hod
    lparameters m.xcoor, m.ycoor

    m.xy=allt(str(m.xcoor))+allt(str(m.ycoor))
    insert into cher_hody values(m.xy)


    select * from kvadr where ;  
          v1 in (select * from cher_hody) and ;  
          v2 in (select * from cher_hody) and ;  
          v3 in (select * from cher_hody) and ;  
          v4 in (select * from cher_hody);  
          into cursor kv  

    if _tally>0

        Thisform.setall("enabled", .f.)

        for m.j=1 to 3
            for m.i=1 to 4
                with eval("Thisform.fishka"+eval("kv.v"+allt(str(m.i))))
                    .backcolor=RGB(255,0,0)
                endwith
            next
            doevents()
            sleep(250)
            for m.i=1 to 4
                with eval("Thisform.fishka"+eval("kv.v"+allt(str(m.i))))
                    .backcolor=0
                endwith
            next
            doevents()
            sleep(250)
        next
        for m.i=1 to 4
            with eval("Thisform.fishka"+eval("kv.v"+allt(str(m.i))))
                .backcolor=RGB(255,0,0)
            endwith
        next
        return
    endif

    with eval("Thisform.fishka"+allt(str(XCNT+1-m.xcoor))+allt(str(YCNT+1-m.ycoor)))
        .backstyle=1
        .backcolor=0xFFFFFF
    endwith
    


ENDDEFINE


DEFINE CLASS fishka AS shape

        Height = SHAG/2
        Width = SHAG/2
        BackStyle = 0
        BorderStyle = 0
        Curvature = 90
        
        Procedure DblClick
        
        if This.backstyle=1
            return
        endif
        This.BackColor = 0
        This.backstyle=1
        Thisform.otv_hod((This.left+SHAG/4)/SHAG,(This.top+SHAG/4)/SHAG)
        

ENDDEFINE