XProfan

EX% / EY% = Anzahl qui Spalten / Zeilen, jeweils -1
var ex% = 4
var ey% = 3
qui reste ergibt sich de selbst
var dx% = %MaxX / (ex% + 1)
var dy% = %MaxY / (ey% + 1)
var x% = ex%
var y% = ey%
var altdir% = 0
declare dir% , bed% , gis%
Fenêtre Style 1024 + 240
Fenêtre 0 , 0 - %MaxX , %MaxY + 5
Titre de la fenêtre Bildschirmschoner
Randomiser
UseBrush 1 , 0
ShowCursor 0
Entfernen qui unbenötigten Teile
Rectangle (ex%+1)*dx%,0 - %MaxX,%MaxY
Rectangle 0,(ey%+1)*dy% - %MaxX,%MaxY
Rectangle ex%*dx%,ey%*dy%-(ex%+1)*dx%,(ey%+1)*dy%

tandis que gis% < 10

    clear bed%
    altdir% = dir%

    repeat

        dir% = Tour(4) ^0 v1 <2 >3
        cas ((dir% = 0) and (y% <> 0)) : inc bed%
        cas ((dir% = 1) and (y% <> ey%)) : inc bed%
        cas ((dir% = 2) and (x% <> 0)) : inc bed%
        cas ((dir% = 3) and (x% <> ex%)) : inc bed%
        cas ((altdir% + dir% = 1) or (altdir% + dir% = 5)) : clear bed%

    until bed%

    Select dir%

        CaseOf 0 HOCH

        whileloop ((y% - 1) * dy%) , ((y% * dy%) - 1) , 1

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop + 1) ; 0
            Line (x% * dx%) , &loop - (((x% + 1) * dx%) - 1) , &loop
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        dec y%

        CaseOf 1 RUNTER

        whileloop ((y% + 1) * dy%) , ((y% * dy%) + 1) , (-1)

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop - 1) ; 0
            Line (x% * dx%) , (&loop + dy% - 1) - (((x% + 1) * dx%) - 1) , (&loop + dy% - 1)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        inc y%

        CaseOf 2 LINKS

        whileloop ((x% - 1) * dx%) , ((x% * dx%) - 1) , 1

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop + 1) , (y% * dy%) ; 0
            Line &loop , (y% * dy%) - &loop , (((y% + 1) * dy%) - 1)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        dec x%

        CaseOf 3 RECHTS

        whileloop ((x% + 1) * dx%) , ((x% * dx%) + 1) , (-1)

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop - 1) , (y% * dy%) ; 0
            Line (&loop + dx% - 1) , (y% * dy%) - (&loop + dx% - 1) , (((y% + 1) * dy%) - 1)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        inc x%

    EndSelect

    cas %GetInputState : inc gis%

Wend

ShowCursor 1
end

EX% / EY% = Anzahl qui Spalten / Zeilen, jeweils -1
declare ex%,ey%
ex% = 4
ey% = 3
cela sieht aussi droite gentil aus:
ex% = 19
ey% = 13
qui reste ergibt sich de selbst
declare dx%,dy%,x%,y%,altdir%
dx% = %MaxX / (ex% + 1)
dy% = %MaxY / (ey% + 1)
x% = ex%
y% = ey%
altdir% = 0
declare dir% , bed% , gis%
###########################################################
Fenêtre Style 1024 + 240
Fenêtre 0 , 0 - %MaxX , %MaxY + 5
Titre de la fenêtre Bildschirmschoner
Randomiser
UseBrush 1 , 0
ShowCursor 0
Entfernen qui unbenötigten Teile
Rectangle (ex%+1)*dx%,0 - %MaxX,%MaxY
Rectangle 0,(ey%+1)*dy% - %MaxX,%MaxY
Rectangle ex%*dx%,ey%*dy%-(ex%+1)*dx%,(ey%+1)*dy%

tandis que gis% < 10

    clear bed%
    altdir% = dir%

    whilenot bed%

        dir% = Tour(4)^0 v1 <2 >3
        cas ((dir% = 0) and (y% <> 0)) : inc bed%
        cas ((dir% = 1) and (y% <> ey%)) : inc bed%
        cas ((dir% = 2) and (x% <> 0)) : inc bed%
        cas ((dir% = 3) and (x% <> ex%)) : inc bed%
        cas ((altdir% + dir% = 1) or (altdir% + dir% = 5)) : clear bed%

    endwhile

    si dir% = 0HOCH

        whileloop ((y% - 1) * dy%) , ((y% * dy%) - 1) , 1

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop + 1) ; 0
            Line (x% * dx%) , &loop - (((x% + 1) * dx%) - 1) , &loop
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        dec y%

    elseif dir% =  1RUNTER

        whileloop ((y% + 1) * dy%) , ((y% * dy%) + 1) , (-1)

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop - 1) ; 0
            Line (x% * dx%) , (&loop + dy% - 1) - (((x% + 1) * dx%) - 1) , (&loop + dy% - 1)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        inc y%

    elseif dir% = 2LINKS

        whileloop ((x% - 1) * dx%) , ((x% * dx%) - 1) , 1

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop + 1) , (y% * dy%) ; 0
            Line &loop , (y% * dy%) - &loop , (((y% + 1) * dy%) - 1)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        dec x%

    elseif dir% =  3RECHTS

        whileloop ((x% + 1) * dx%) , ((x% * dx%) + 1) , (-1)

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop - 1) , (y% * dy%) ; 0
            Line (&loop + dx% - 1) , (y% * dy%) - (&loop + dx% - 1) , (((y% + 1) * dy%) - 1)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        inc x%

    elseif %GetInputState

        inc gis%

    endif

endwhile

ShowCursor 1
end