Vedi: https://conference.libreoffice.org/2012/program/wednesday-secondary-track/librelogo-2013-turtle-vector-graphics-for-everybody.html | http://www.numbertext.org/logo/librelogo.pdf
Berlino 17-10-2012 – LibreLogo – Turtle Vector Graphics for Everybody
|
1 2 3 4 5 |
REPEAT 250 [ CIRCLE 10+REPCOUNT/10 FORWARD 5+REPCOUNT/10 LEFT 10 ] |
|
1 2 3 4 5 6 7 |
REPEAT 36 [ FORWARD 15 LEFT 90 FORWARD 15 RIGHT 90 FORWARD 15 RIGHT 90 FORWARD 15 LEFT 100 ] FILL |
|
1 2 3 4 5 |
REPEAT 88 [ FORWARD 300 LEFT 89 ] FILL |
|
1 2 3 4 5 |
REPEAT 180 [ FORWARD REPCOUNT*2 LEFT 91 ] FILL |
|
1 2 3 4 5 6 7 8 |
REPEAT 8 [ FORWARD 150 LEFT 90 FORWARD 150 LEFT 135 FORWARD 150*SQRT(2) ] FILL |
|
1 2 3 4 5 |
REPEAT 200 [ FORWARD REPCOUNT*2 LEFT 90 ] FILL |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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 ] |
|
1 2 3 4 5 |
REPEAT 360 [ FORWARD 3 LEFT 1 ] FILL |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
TO albero ramo IF ramo < 2 [ STOP ] FORWARD ramo LEFT 50 albero ramo/2 RIGHT 100 albero ramo/2 LEFT 50 BACK ramo END PENCOLOR “GREEN” PENSIZE 2 albero 200 |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
TO x n IF n == 0 [ STOP ] x(n-1) RIGHT 90 y(n-1) FORWARD 4 END TO y n IF n == 0 [ STOP ] FORWARD 4 x(n-1) LEFT 90 y(n-1) END CLEARSCREEN HOME PENCOLOR “green” PENSIZE 2 x(12) |
|
1 2 3 4 5 6 7 8 9 10 |
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 |
|
1 2 3 4 5 6 7 8 |
CLEARSCREEN HOME PENSIZE 5 lato=100 REPEAT 4 [ PENUP FORWARD lato PENDOWN FORWARD lato RIGHT 90 FORWARD lato ] HIDETURTLE |
|
1 2 |
... FILL |
|
1 2 3 4 5 6 7 8 9 10 |
CLEARSCREEN HOME PENSIZE 5 lato=100 REPEAT 4 [ PICTURE PENUP FORWARD lato PENDOWN FORWARD lato RIGHT 90 FORWARD lato ] FILL HIDETURTLE |
|
1 2 3 4 5 6 7 8 9 10 11 12 |
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 |
Il colore “skyblue” non è riconosciuto per nome (???)
|
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 |
CLEARSCREEN HOME lato1=120 lato2=60 COLORI_IN=[[“black”,“silver”,“gray”,“white”,“maroon”], [“red”,“purple”,“fuchsia”,“green”,“lime”], [“olive”,“yellow”,“navy”,“blue”,“teal”], [“aqua”,“pink”,“tomato”,“orange”,“gold”], [“violet”,“skyblue”,“chocolate”,“brown”,“invisible”]] COLORI_OUT=[[“white”,“black”,“black”,“black”,“white”], [“black”,“white”,“black”,“black”,“black”], [“black”,“black”,“white”,“white”,“black”], [“black”,“black”,“black”,“black”,“black”], [“white”,“black”,“black”,“black”,“black”]] PENSIZE 2 FONTSIZE 18 FONTWEIGHT “bold” FONTFAMILY “Courier New” FOR r IN[0,1,2,3,4] [ FOR c IN[0,1,2,3,4] [ PENUP POSITION [100+lato1*c, 100+lato2*r] HEADING 0 PENDOWN FILLCOLOR [5*r+c] RECTANGLE [lato1,lato2] FONTCOLOR COLORI_OUT[r][c] TEXT COLORI_IN[r][c] ] ] HIDETURTLE |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
PENSIZE 30 PENCOLOR “fuchsia” FILLCOLOR “purple” SQUARE 360 PENCOLOR “green” FILLCOLOR “lime” CIRCLE 300 FONTSIZE 80 FONTWEIGHT “bold” TEXT “Logo” HIDETURTLE |
|
1 2 3 4 5 6 7 8 9 |
FONTCOLOR “green” FONTSIZE 40 PENUP REPEAT 10 [ FORWARD 150 LABEL “Logo” BACK 150 LEFT 36 ] |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
PENUP FONTFAMILY “Symbola” PICTURE [ REPEAT 25 [ POSITION ANY FONTCOLOR ANY dimensione=50+RANDOM 50 FONTSIZE dimensione carattere=RANDOM “😀😁😂😃😄😅😆😇😈😉😊😋😌😍😎😏😐😑😒😓😔😕😗😖😘😙😚😛😜😝😞😟😠😡😢😣😤😥😦😧😨😩😪😫😬😭😮😯😰😱😲😳😴😵😶😸😷😹😺😻😼😽😾😿🙀🙁🙂🙃🙄” LABEL carattere ] ] HIDETURTLE |
|
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 |
TO BEAR PENUP CIRCLE 100 LEFT 45 FORWARD 70 CIRCLE 50 BACK 70 RIGHT 90 FORWARD 70 CIRCLE 50 BACK 70 RIGHT 45 BACK 20 REPEAT 2 [ FILLCOLOR “white” CIRCLE 25 FILLCOLOR “black” CIRCLE 10 FORWARD 40 ] BACK 60 RIGHT 90 FORWARD 25 CIRCLE 30 BACK 25 LEFT 180 END FOR k IN [“gold”, “orange”, “tomato”, “purple”, “BLUE”] [ FILLCOLOR k BEAR FORWARD 120 LEFT 72 ] HIDETURTLE ... |
…
|
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 |
TO TRIANGLE size color REPEAT 3 [ FORWARD size LEFT 120 ] FILLCOLOR color FILL END TO BOX size f REPEAT 2 [ FORWARD size*10 RIGHT 90 FORWARD size*f RIGHT 90 ] END TO PENCIL size color BOX size 1 FILLCOLOR color FILL BOX size 2/3 BOX size 1/3 CLOSE RIGHT 150 TRIANGLE size “chocolate” FORWARD size*0.75 TRIANGLE size/4 color BACK size*0.75 LEFT 150 END PICTURE [ REPEAT 5 [ HOME HEADING ANY PENCIL 25 “red” ] ] HIDETURTLE |
…