Cubo di Rubik

Vedi: 40th anniversary of the Rubik’s Cube | Wikipedia – Cubo di Rubik

Un sottoprogramma per una faccia di un certo colore

TO side color
   REPEAT 3 [                 ; 3 colonne
      REPEAT 3 [              ; 3 cubetti in colonna
         PENDOWN
         FILLCOLOR “BLACK”
         SQUARE [30, 30, 2.5] ; fondo nero arrotondato
         FILLCOLOR color
         SQUARE [28, 28, 3]   ; colore scelto
         PENUP
         FORWARD 30
      ]
      RIGHT 90
      FORWARD 30
      LEFT 90
      BACK 30*3
   ]
END

side “yellow”

Le 6 facce con posizione e colore appropriati

TO side color
   REPEAT 3 [
      REPEAT 3 [
         PENDOWN
         FILLCOLOR “BLACK”
         SQUARE [30, 30, 2.5]
         FILLCOLOR color
         SQUARE [28, 28, 3]
         PENUP FORWARD 30
      ]
      RIGHT 90
      FORWARD 30
      LEFT 90
      BACK 30*3
   ]
END
 
HIDETURTLE
PENSIZE 2
PICTURE “cube.svg” [
 side 0x009B48 ; Pantone 347 C
 side 0xB71234 ; Pantone 200 C
 side 0x0046AD ; Pantone 293 C
 side 0xFF5800 ; Pantone Orange 021 C
 BACK 30*3 
 RIGHT 90
 BACK 30*3*3
 LEFT 90
 side 0xFFD500 ; Pantone Yellow 012 C
 FORWARD 30*3*2
 RIGHT 90
 BACK 30*3
 LEFT 90
 side 0xFFFFFF
]

…