Ombrelli

Tre settori con i colori fondamentali

DIM     =600
DISTANZA=0.4*DIM

NUMERO=360
angolo=360/NUMERO

SETTORI   =3
NUMSETTORE=NUMERO/SETTORI

GraphicsWindow.Width =DIM
GraphicsWindow.Height=DIM

Turtle.X    =DIM/2
Turtle.Y    =DIM/2
Turtle.Speed=10

COLORI[1]="red"
COLORI[2]="green"
COLORI[3]="blue"

For settore=1 To SETTORI
  GraphicsWindow.PenColor=COLORI[settore]
  For i=1 to NUMSETTORE
    Turtle.PenDown()
    Turtle.Move(DISTANZA)
    Turtle.PenUp()
    Turtle.Move(-DISTANZA)
    Turtle.Turn(angolo)
  EndFor
EndFor

Dodici settori con colori casuali

DIM     =600
DISTANZA=0.4*DIM

NUMERO=360
angolo=360/NUMERO

SETTORI   =12
NUMSETTORE=NUMERO/SETTORI

GraphicsWindow.Width =DIM
GraphicsWindow.Height=DIM

Turtle.X    =DIM/2
Turtle.Y    =DIM/2
Turtle.Speed=10

For settore=1 To SETTORI
  GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
  For i=1 to NUMSETTORE
    Turtle.PenDown()
    Turtle.Move(DISTANZA)
    Turtle.PenUp()
    Turtle.Move(-DISTANZA)
    Turtle.Turn(angolo)
  EndFor
EndFor

Traccia metà del raggio

DIM      =600
DISTANZA =0.4*DIM
DISTANZA1=0.2*DIM
DISTANZA2=0.2*DIM

NUMERO=360
angolo=360/NUMERO

SETTORI   =12
NUMSETTORE=NUMERO/SETTORI

GraphicsWindow.Width =DIM
GraphicsWindow.Height=DIM

Turtle.X    =DIM/2
Turtle.Y    =DIM/2
Turtle.Speed=10

For settore=1 To SETTORI
   GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
   For i=1 to NUMSETTORE
      Turtle.PenUp()
      Turtle.Move(DISTANZA1)
      Turtle.PenDown()
      Turtle.Move(DISTANZA2)
      Turtle.PenUp()
      Turtle.Move(-DISTANZA)
      Turtle.Turn(angolo)
   EndFor
EndFor

Prova a scegliere le varie DISTANZE e realizza le tue figure