Vedi: 40th anniversary of the Rubik’s Cube | Wikipedia – Cubo di Rubik
Un sottoprogramma per una faccia di un certo colore
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
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
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 |
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 ] |
…