Color Names

;-------------------------------------------------- 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
   ]
]