XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Grafik: Einfaches Schachbrett erzeugen
PRFellow-Vorlage
Autor: Thomas Hölzer
Einfaches Schachbrett
Parameter:
1: x-Koordinate der linken oberen Ecke
2: y-Koordinate der linken oberen Ecke
3: Feldbreite-/höhe
4: Handle des Ausgabefensters (kann auch weggelassen werden)

Proc ChessBoard

    Parameters x%,y%,size%,hwin%
    Case Equ(hwin%,0): Let hwin%=GetActiveWindow()
    StartPaint hwin%
    Case Lt(size%,10): Let size%=10
    Declare i%,r%,l%,white&
    Let l%=x%
    Let white&=RGB(255,255,255) das wird bei jeder Farbeinstellung weiß

    While Lt(i%,64)

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

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

                UseBrush 1,white&

            Else

                UseBrush 1,0

            EndIf

        Else

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

                UseBrush 1,0

            Else

                UseBrush 1,white&

            EndIf

        EndIf

        Rectangle x%,y%-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

Beispiel
Cls RGB(23,23,23)
WindowTitle Schachbrett
ChessBoard 180,80,32,%hwnd
WaitInput