;-------------------------------------------------- Dimensioni di ogni rettangolo
LATO1=120
LATO2=60
;-------------------------------------------------- Caratteri e colori
FONTSIZE 18
FONTWEIGHT “bold”
FONTFAMILY “Courier New”
C_IN=[[“black”,“silver”,“gray\ngrey”,“white”,“maroon”],
[“red”,“purple”,“fuchsia\nmagenta”,“green”,“lime”],
[“olive”,“yellow”,“navy”,“blue”,“teal”],
[“aqua\ncyan”,“pink”,“tomato”,“orange”,“gold”],
[“violet”,“skyblue”,“chocolate”,“brown”,“invisible”]]
C_OUT=[[“white”,“black”,“black”,“black”,“white”],
[“black”,“white”,“black”,“black”,“black”],
[“black”,“black”,“white”,“white”,“black”],
[“black”,“black”,“black”,“black”,“black”],
[“white”,“black”,“black”,“black”,“black”]]
;-------------------------------------------------- Posizione centrale
CLEARSCREEN
HOME
HIDETURTLE
xc=POSITION[0]
yc=POSITION[1]
;-------------------------------------------------- Cornice nera esterna
PENSIZE 5
PENDOWN
RECTANGLE [5*LATO1,5*LATO2]
PENUP
;-------------------------------------------------- Rettangoli colorati
FOR R IN [-2,-1,0,+1,+2] [
FOR C IN [-2,-1,0,+1,+2] [
POSITION [xc+LATO1*C, yc+LATO2*R] ; posizione
HEADING 0
FILLCOLOR [5*(R+2)+C+2]
RECTANGLE [LATO1,LATO2] ; sfondo
FONTCOLOR C_OUT[R+2][C+2]
TEXT C_IN[R+2][C+2] ; etichetta
]
]