Un ventaglio
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
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
|
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 30 31 32 33 34 35 36 |
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
|
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 30 31 32 33 34 35 36 37 |
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 |