Hacker Logo

GLOBAL dim, dim3, diam               ; lato dei quadratini, lato del quadrato, diametro dei cerchi

dim  = 50
dim3 = 3*dim
diam = 4/5*dim

TO line pattern
    GLOBAL dim, dim3, diam

    FOR i IN pattern [               ; disegna una riga 
        PENUP
        FORWARD   dim
        PENDOWN
        FILLCOLOR “WHITE”
        RECTANGLE [dim, dim]
        FILLCOLOR “BLACK”

        IF i = “x” [ CIRCLE diam ]
    ]
    PENUP
    RIGHT   90
    FORWARD dim
    LEFT    90
    BACK    dim3
END

PENSIZE 2
RIGHT 90
line(“ x ”)  ; 1° riga
line(“  x”)  ; 2° riga
line(“xxx”)  ; 3° riga