Le applicazioni seguenti dimostrano le potenzialità delle sequenze di istruzioni POINT seguite da CLOSE oppure FILL.
Esercizio 1
|
1 2 3 4 5 6 7 8 |
CIRCLE 200 PENUP FORWARD 100 POINT BACK 100 RIGHT 60 FORWARD 100 POINT BACK 100 POINT CLOSE |
Esercizio 2
|
1 2 3 4 5 6 7 8 9 10 11 |
PENUP REPEAT 5 [ FORWARD 150 POINT BACK 150 RIGHT 36 FORWARD 105 POINT BACK 105 RIGHT 36 ] FILLCOLOR “gold” FILL |
Esercizio 3
Il distintivo di sceriffo con 6 punte
Esercizio 4
La stessa figura con numero di punte da 3 a 11
|
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 42 43 44 45 46 47 48 49 |
TO star n m PENUP PENSIZE n/m REPEAT m [ FORWARD n PENCOLOR “gold” POINT BACK n RIGHT 360/m/2 FORWARD n*0.6 PENCOLOR “invisible” POINT BACK n*0.6 RIGHT 360/m/2 ] PENCOLOR “invisible” FILLCOLOR “gold” FILL PENSIZE n/m/3 FILLCOLOR “invisible” PENCOLOR “white” PENDOWN CIRCLE 2*n*0.6-n/m/3 PENUP FONTSIZE n/4 FONTCOLOR “white” FONTFAMILY “Western” TEXT “SHERIFF” END CLEARSCREEN HOME HIDETURTLE PENUP POSITION [130, 200] HEADING 0 REPEAT 9 [ PICTURE [ star 70 2+REPCOUNT ] RIGHT 90 FORWARD 160 LEFT 90 IF REPCOUNT%3 == 0 [ BACK 160 RIGHT 90 BACK 160*3 LEFT 90 ] ] |
Vedi