Triangoli 2
Disegna il triangolo a partire dal centro di un lato Continua con 2, 3, 4, … Turtle.Speed=10 QUANTI=5 ANGOLO=360/QUANTI DIM=200 DIM2=DIM/2 Turtle.TurnLeft() For triangolo=1 To… Leggi tutto »Triangoli 2
Disegna il triangolo a partire dal centro di un lato Continua con 2, 3, 4, … Turtle.Speed=10 QUANTI=5 ANGOLO=360/QUANTI DIM=200 DIM2=DIM/2 Turtle.TurnLeft() For triangolo=1 To… Leggi tutto »Triangoli 2
Poligono regolare con 5 lati di lunghezza 150 For lato=1 To 5 Turtle.Move(150) Turtle.Turn(72) EndFor Continua… GraphicsWindow.Height=GraphicsWindow.Width Turtle.Y=GraphicsWindow.Height/2 Turtle.Speed=10 QUANTI=15 ANGOLO=360/QUANTI For pentagono=1 To QUANTI For lato=1 To 5 Turtle.Move(150) Turtle.Turn(72)… Leggi tutto »Pentagono
Colori casuali: #RRGGBB GraphicsWindow.Height=GraphicsWindow.Width GraphicsWindow.PenWidth=25 Turtle.Speed=10 Turtle.Y=GraphicsWindow.Height/2 NUMERO=100 distanza=250 For i=1 to NUMERO GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() Turtle.PenDown() Turtle.Move(distanza) Turtle.PenUp() Turtle.Move(-distanza) distanza=distanza-2 Turtle.Turn(90+Math.GetRandomNumber(90)) EndFor Colori casuali, semitrasparenti: #99RRGGBB… Leggi tutto »Boom
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”… Leggi tutto »Ombrelli
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()… Leggi tutto »Ventagli