Vedi: http://www.numbertext.org/logo/librelogo.pdf |https://conference.libreoffice.org/2012/program/wednesday-secondary-track/librelogo-2013-turtle-vector-graphics-for-everybody.html
LibreLogo – Turtle Vector Graphics for Everybody (Berlino, 17/10/2012)
REPEAT 250 [
CIRCLE 10+REPCOUNT/10
FORWARD 5+REPCOUNT/10
LEFT 10
]
REPEAT 36 [
FORWARD 15 LEFT 90
FORWARD 15 RIGHT 90
FORWARD 15 RIGHT 90
FORWARD 15 LEFT 100
]
FILL
REPEAT 88 [
FORWARD 300
LEFT 89
]
FILL
REPEAT 180 [
FORWARD REPCOUNT*2
LEFT 91
]
FILL
REPEAT 8 [
FORWARD 150
LEFT 90
FORWARD 150
LEFT 135
FORWARD 150*SQRT(2)
]
FILL
REPEAT 200 [
FORWARD REPCOUNT*2
LEFT 90
]
FILL
TO wheel size
REPEAT 8 [
FORWARD size
LEFT 90
FORWARD size
LEFT 135
FORWARD size*SQRT(2)
]
FILL
END
REPEAT 10 [
wheel 20+RANDOM 10
FORWARD 100
LEFT 36
]
REPEAT 360 [
FORWARD 3
LEFT 1
]
FILL
CLEARSCREEN HOME
PENSIZE 4 PENCOLOR “black” FILLCOLOR “black”
h=300
tr=h/4 sp=h/20 h1=h-tr-sp
w=h*4/5 w1=w-tr-sp
FORWARD tr LEFT 90 FORWARD tr FILL
PENUP FORWARD sp PENDOWN
FORWARD w1 LEFT 90 FORWARD h LEFT 90
FORWARD w LEFT 90 FORWARD h1 CLOSE
HIDETURTLE
CLEARSCREEN HOME
PENSIZE 5
lato=100
REPEAT 4 [
PENUP FORWARD lato
PENDOWN FORWARD lato RIGHT 90 FORWARD lato
]
HIDETURTLE
...
FILL
CLEARSCREEN HOME
PENSIZE 5
lato=100
REPEAT 4 [
PICTURE
PENUP FORWARD lato
PENDOWN FORWARD lato RIGHT 90 FORWARD lato
]
FILL
HIDETURTLE
CLEARSCREEN
PENSIZE 4 PENCOLOR “black”
lato1=300
lato2=240
TO box x REPEAT 4 [ FORWARD x RIGHT 90 ] END
box lato1 FILLCOLOR [“blue”,“white”] FILL
PENUP FORWARD 30 RIGHT 90 FORWARD 30 LEFT 90 PENDOWN
box lato2 FILLCOLOR “white” FILL
HIDETURTLE
PENUP
FONTFAMILY “Symbola”
PICTURE [
REPEAT 25 [
POSITION ANY
FONTCOLOR ANY
dimensione=50+RANDOM 50
FONTSIZE dimensione
carattere=RANDOM “😀😁😂😃😄😅😆😇😈😉😊😋😌😍😎😏😐😑😒😓😔😕😗😖😘😙😚😛😜😝😞😟😠😡😢😣😤😥😦😧😨😩😪😫😬😭😮😯😰😱😲😳😴😵😶😸😷😹😺😻😼😽😾😿🙀🙁🙂🙃🙄”
LABEL carattere
]
]
HIDETURTLE