Turtle Vector Graphics for Everybody

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

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

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

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)

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

Il colore “skyblue” non è riconosciuto per nome (???)

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] TEXT      COLORI_IN[r]
   ]
]
HIDETURTLE

PENSIZE   30
PENCOLOR  “fuchsia”
FILLCOLOR “purple”
SQUARE    360

PENCOLOR  “green”
FILLCOLOR “lime”
CIRCLE    300

FONTSIZE   80
FONTWEIGHT “bold”
TEXT       “Logo”

HIDETURTLE

FONTCOLOR “green”
FONTSIZE 40
PENUP
REPEAT 10 [
   FORWARD 150
   LABEL   “Logo”
   BACK    150
   LEFT    36
]

PENUP
FONTFAMILY “Symbola”
PICTURE [
REPEAT 25 [
   POSITION ANY
   FONTCOLOR ANY
   dimensione=50+RANDOM 50
   FONTSIZE dimensione
   carattere=RANDOM “😀😁😂😃😄😅😆😇😈😉😊😋😌😍😎😏😐😑😒😓😔😕😗😖😘😙😚😛😜😝😞😟😠😡😢😣😤😥😦😧😨😩😪😫😬😭😮😯😰😱😲😳😴😵😶😸😷😹😺😻😼😽😾😿🙀🙁🙂🙃🙄”
   LABEL carattere
]
]
HIDETURTLE

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

...

…

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

…