Con alcune semplificazioni rispetto all’originale
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
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 |
Vedi