XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Grafik: Einfaches Schachbrett erzeugen
PRFellow-Presentación
Autor: Thomas Hölzer
Einfaches Schachbrett
Parámetro:
1: x-Koordinate el linken oberen Ecke
2: y-Koordinate el linken oberen Ecke
3: Feldbreite-/höhe
4: Handle des Ausgabefensters (kann auch weggelassen voluntad)

Proc ChessBoard

    Parámetros x%,y%,size%,hwin%
    Case Equ(hwin%,0): Let hwin%=GetActiveWindow()
    StartPaint hwin%
    Case Lt(size%,10): Let size%=10
    Declarar i%,r%,l%,white&
    Let l%=x%
    Let white&=RGB(255,255,255) el se en cada Farbeinstellung weiß

    Mientras que Lt(i%,64)

        If Equ(Mod(r%,2),0)

            If Equ(Mod(i%,2),0)

                UseBrush 1,white&

            Más

                UseBrush 1,0

            EndIf

        Más

            If Equ(Mod(i%,2),0)

                UseBrush 1,0

            Más

                UseBrush 1,white&

            EndIf

        EndIf

        Rectángulo x%%-Add(x%,size%),Add(y%,size%)
        Add x%,size%
        Inc i%

        If Equ(Mod(i%,8),0)

            Add y%,size%
            Let x%=l%
            Inc r%

        EndIf

    Wend

    EndPaint

ENDPROC

Ejemplo
Cls RGB(23,23,23)
Título de la ventana Schachbrett
ChessBoard 180,80,32,%hwnd
WaitInput