nomainwin
 
    NbXmax = 10  'nombre de case en X
    NbYmax = 10  'nombre de case en Y  (pas utile si la grille est carré ;) )
    dc = 53  'dimension d'une case en pixels
    MapWidth = NbXmax*dc
    MapHeight = NbYmax*dc
 
    WindowWidth = MapWidth+15
    WindowHeight = MapHeight+70
    UpperLeftX = (DisplayWidth-WindowWidth) / 3
    UpperLeftY = (DisplayHeight-WindowHeight) / 2
 
    ncx = int(MapWidth/dc)  'nb of X cells
    ncy = int(MapHeight/dc) 'nb of Y cells
    dim cell(ncx,ncy)
    statictext #w.txt "",10,12,280,20
    BUTTON #w.grid, "Grid", [grid], UL, WindowWidth-60, 5, 50, 25
    graphicbox #w.map, 5, 40, MapWidth, MapHeight
    open "    TEST GRID Coord..." for window_nf as #w  'graphics_nf_nsb
    #w "trapclose [quit]"
    #w.map "down; fill black"
    #w.map "backcolor lightgray; color lightgray"
    #w.map "when mouseMove [coord]"
    #w.map "when leftButtonDown [Mark]"
 
    goto [grid]
 
    wait
 
    [coord]
        mX = int(MouseX/dc)
        mY = int(MouseY/dc)
        if mX<=ncx and mY<=ncy then
            if oldmX then
                #w.map "rule ";_R2_NOT
                #w.map "place ";oldmX*dc+1;" ";oldmY*dc+1;"; boxfilled ";oldmX*dc+dc-1;" ";oldmY*dc+dc-1
            end if
            oldmX = mX
            oldmY = mY
            #w.map "rule ";_R2_COPYPEN
            #w.map "place ";mX*dc+1;" ";mY*dc+1;"; boxfilled ";mX*dc+dc-1;" ";mY*dc+dc-1
        end if
        gosub [infos]
    wait
 
    [grid]
        grid = grid+1-2*(grid=1) '0 -> 1 -> 0 -> 1 -> 0 etc...
        gosub [DispMap]
    wait
 
    [Mark]
        #w.map "backcolor red; color red"
        #w.map "place ";mX*dc+1;" ";mY*dc+1;"; boxfilled ";mX*dc+dc-1;" ";mY*dc+dc-1
        #w.map "backcolor lightgray; color lightgray"
    wait
 
    [infos]
        #w.txt "pixels : ";MouseX;" / ";MouseY;_
        "         Cell ( ";mX;" , ";mY;" )"
    return
 
    [DispMap]
        gosub [infos]
        if grid then
            #w.map "backcolor lightgray; color lightgray"
        else
            #w.map "backcolor black; color black"
        end if
        for y=1 to ncy
            #w.map "place 0 ";y*dc;"; goto ";MapWidth;" ";y*dc
        next
        for x=1 to ncx
            #w.map "place ";x*dc;" 0; goto ";x*dc;" ";MapHeight
        next
        #w.map "backcolor lightgray; color lightgray"
        #w.map "flush; discard"
    return
 
    [quit]
        close #w
        end
    wait

    dim info$(10,10)
    chaine$ = "Damier.bmp PionBlanc.bmp PionNoir.bmp DameBlanche.bmp DameNoire.bmp CadreVert.bmp CadreOrange.bmp CadreRouge.bmp Regles.txt Config.ini"
    NombreDeFichiers = 10
    for NombreDeFichiers = 1 to 10
        Fichier$ = "data\"+word$(chaine$,NombreDeFichiers)
        files DefaultDir$, Fichier$, info$(
        if val(info$(0, 0)) = 0 then
            MessageErreur$ = "ERREUR !";chr$(13)
            MessageErreur$ = MessageErreur$;"Le fichier '";cheminDuFichier$;"' n'a pu être trouvé.";chr$(13)
            MessageErreur$ = MessageErreur$;"Le programme va se terminer."
            notice MessageErreur$
            end
        end if
    next
 

sub InitTabCoordDamierToNumCase
'Correspondance entre le damier et les N° de cases
'Convertie les coordonnées (x,y) du damier en 'NumCase' (compris entre 1 à 50)

    redim TabCoordDamierToNumCase(10,10)
    no = 1
    for y = 1 to 10
        for x = 1 to 10
            if ((x mod 2) = 0 and (y mod 2) > 0) or _
               ((x mod 2) > 0 and (y mod 2) = 0) then TabCoordDamierToNumCase(x,y) = no  : no = no + 1
        next
    next
    end sub