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 32 33 34 35 36 37 38 39 40 41 |
;-------------------------------------------------- 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 ] ] |
Vedi