Disegna triangoli casuali
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Turtle.Speed=10 GraphicsWindow.PenWidth=10 spazio =20 spazio2=2*spazio xm =GraphicsWindow.Width -spazio2 ym =GraphicsWindow.Height-spazio2 While "true" x1=Math.GetRandomNumber(xm)+spazio y1=Math.GetRandomNumber(ym)+spazio x2=Math.GetRandomNumber(xm)+spazio y2=Math.GetRandomNumber(ym)+spazio x3=Math.GetRandomNumber(xm)+spazio y3=Math.GetRandomNumber(ym)+spazio Turtle.PenUp() Turtle.MoveTo(x1,y1) GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() Turtle.PenDown() Turtle.MoveTo(x2,y2) Turtle.MoveTo(x3,y3) Turtle.MoveTo(x1,y1) Program.Delay(250) EndWhile |