Le applicazioni seguenti dimostrano le potenzialità delle sequenze di istruzioni POINT seguite da CLOSE oppure FILL.
Esercizio 1
CIRCLE 200
PENUP
FORWARD 100 POINT
BACK 100
RIGHT 60
FORWARD 100 POINT
BACK 100 POINT
CLOSE
Esercizio 2
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
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
]
]