Ventagli

Un ventaglio

numero =30
lunghezza=250
angolo =180/numero
'-----------------------------------------------------------
Turtle.Speed=10
Turtle.X =GraphicsWindow.Width/2
Turtle.Y =GraphicsWindow.Height-30
Turtle.Angle=-90
VENTAGLIO()
'-----------------------------------------------------------
Sub VENTAGLIO
  For i=1 To numero+1
    GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
    GraphicsWindow.PenWidth=10+Math.GetRandomNumber(10)
    Turtle.PenDown()
    Turtle.Move(lunghezza)
    Turtle.PenUp()
    Turtle.Move(-lunghezza) 
    Turtle.Turn(angolo) 
  EndFor
EndSub

Due ventagli

Quattro ventagli

GraphicsWindow.Height=GraphicsWindow.Width

numero   =30
lunghezza=200
angolo   =180/numero
'-----------------------------------------------------------
Turtle.Speed=10
Turtle.X    =30
Turtle.Y    =GraphicsWindow.Height/2
VENTAGLIO()
'-----------------------------------------------------------
Turtle.X    =GraphicsWindow.Width/2
Turtle.Y    =30
Turtle.Angle=90
VENTAGLIO()
'-----------------------------------------------------------
Turtle.X    =GraphicsWindow.Width-30
Turtle.Y    =GraphicsWindow.Height/2
Turtle.Angle=180
VENTAGLIO()
'-----------------------------------------------------------
Turtle.X    =GraphicsWindow.Width/2
Turtle.Y    =GraphicsWindow.Height-30
Turtle.Angle=-90
VENTAGLIO()
'-----------------------------------------------------------
Sub VENTAGLIO
  For i=1 To numero+1
    GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
    GraphicsWindow.PenWidth=10+Math.GetRandomNumber(10)
    Turtle.PenDown()
    Turtle.Move(lunghezza)
    Turtle.PenUp()
    Turtle.Move(-lunghezza)  
    Turtle.Turn(angolo)  
  EndFor
EndSub

Con sovrapposizioni e trasparenza del colore

GraphicsWindow.Height=GraphicsWindow.Width
GraphicsWindow.PenWidth=25

numero   =30
lunghezza=250
angolo   =180/numero
'-----------------------------------------------------------
Turtle.Speed=10
Turtle.X=30
Turtle.Y=GraphicsWindow.Height/2
VENTAGLIO()
'-----------------------------------------------------------
Turtle.X=GraphicsWindow.Width/2
Turtle.Y=30
Turtle.Angle=90
VENTAGLIO()
'-----------------------------------------------------------
Turtle.X=GraphicsWindow.Width-30
Turtle.Y=GraphicsWindow.Height/2
Turtle.Angle=180
VENTAGLIO()
'-----------------------------------------------------------
Turtle.X=GraphicsWindow.Width/2
Turtle.Y=GraphicsWindow.Height-30
Turtle.Angle=-90
VENTAGLIO()
'-----------------------------------------------------------
Sub VENTAGLIO
   For i=1 To numero+1
      c=GraphicsWindow.GetRandomColor()
      GraphicsWindow.PenColor="#99"+Text.GetSubText(c,2,6)

      Turtle.PenDown()
      Turtle.Move(lunghezza)
      Turtle.PenUp()
      Turtle.Move(-lunghezza) 
      Turtle.Turn(angolo) 
   EndFor
EndSub

Lascia un commento Annulla risposta