Petali e fiori

Disegnando dei rombi piuttosto che dei poligoni si ottengono delle figure di base simili a petali.
Prova con l’angolo interno variabile da 0° a 90°

GraphicsWindow.Width   =800
GraphicsWindow.Height  =300
GraphicsWindow.PenWidth=2

Turtle.Speed=10
Turtle.Y    =250

For i=1 to 10
   Turtle.X=65*i
   angolo1=10*(i-1)
   angolo2=180-angolo1
   PETALO()
EndFor

Sub PETALO
   Turtle.Move(100)
   Turtle.Turn(angolo1)
   Turtle.Move(100)
   Turtle.Turn(angolo2)
   Turtle.Move(100)
   Turtle.Turn(angolo1)
   Turtle.Move(100)
   Turtle.Turn(angolo2)
EndSub

Scegli la figura di base per il petalo e disegna il fiore corrispondente

GraphicsWindow.Height=GraphicsWindow.Width
GraphicsWindow.PenWidth=2

DIM =GraphicsWindow.Height
LATO=DIM/5             ' Lato del rombo

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

NUM=12                ' Scegli il numero di petali
FIORE()               ' Disegna il fiore corrispondente

Sub FIORE
   angolo1=360/NUM
   angolo2=180-angolo1
   For i=1 To NUM
      PETALO()
      Turtle.Turn(angolo1)
   EndFor 
EndSub

Sub PETALO
   For j=1 To 2
     Turtle.Move(LATO)
     Turtle.Turn(angolo1)
     Turtle.Move(LATO)
     Turtle.Turn(angolo2)
   EndFor
EndSub

Cambia il numero di petali, il colore, la trasparenza

GraphicsWindow.Height=GraphicsWindow.Width
GraphicsWindow.PenWidth=25
GraphicsWindow.PenColor="#66FF0000"

DIM =GraphicsWindow.Height
LATO=DIM/5        ' Lato del rombo

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

NUM=48            ' Scegli il numero di petali
FIORE()           ' Disegna il fiore corrispondente

Sub FIORE
   angolo1=360/NUM
   angolo2=180-angolo1
   For i=1 To NUM
      PETALO()
      Turtle.Turn(angolo1)
   EndFor 
EndSub

Sub PETALO
   For j=1 To 2
      Turtle.Move(LATO)
      Turtle.Turn(angolo1)
      Turtle.Move(LATO)
      Turtle.Turn(angolo2)
   EndFor
EndSub