Vai al contenuto

admin

Boom

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

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”… Leggi tutto »Ombrelli

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()… Leggi tutto »Ventagli

Triangoli

Disegna un triangolo (equilatero) Turtle.Speed=10 For lato=1 To 3 Turtle.Move(150) Turtle.Turn(120) EndFor Disegna due triangoli Turtle.Speed=10 For lato=1 To 3 Turtle.Move(150) Turtle.Turn(120) EndFor Turtle.Turn(180) For… Leggi tutto »Triangoli