Spiderweb Problem

Question

Hi guys,

I recently started  programming. But i have some problems with my programm. It doesnt't do what i want. :(

I want to create a spiderweb. But the lines doesn't connect.
Heres the code:

Turtle.Speed=10

For i = 1 To 6
  For w = 1 To 2
    Turtle.Move(170)
    Turtle.Turn(180)
  EndFor
  Turtle.Turn(60)
EndFor

Turtle.Move(20)
Turtle.Turn(120)



l = 20


For q = 1 To 54
  Turtle.Move(l)
  Turtle.Turn(60)
  l = l + 2.5
  
EndFor

Thank you guys

Answer 1

The lines don't connect to what or where?

It works fine for me.

---

I am a 10 year old that loves math, games, and computers. "Everyone is potentially great, you just have to turn it into kinetic greatness."

Answer 2

If you look closely you can see it isn't 100 % correct. I think i must change something on the turtle.turn(60) in the second for loop.

Answer 3

This was as close as I could get it.

Import XSJ843

Even better is XSJ843-1

---

I am a 10 year old that loves math, games, and computers. "Everyone is potentially great, you just have to turn it into kinetic greatness."

Answer 4

1) I want to use turtle

2) This little mistake is my problem

Answer 5

Turtle.Moveto method is easy.  (If you use turtle.move and turtle.turn , it is very difficult)

See picture. 

X0= Turtle.x
y0= Turtle.y
Turtle.Speed=10
Turtle.PenDown()
For i = 1 To 6
  For w = 1 To 2
    Turtle.Move(170)
    Turtle.Turn(180)
  EndFor
  Turtle.Turn(60)
EndFor

L=20
dl=8

Turtle.PenUp()
Turtle.MoveTo(x0,y0)
Turtle.PenDown()
For i=0 To 54
  r=L+i*60/360*dL
  X=x0+r*math.cos(math.GetRadians( 90-i*60))
  Y=y0+r*math.sin(math.GetRadians( 90-i*60))
  Turtle.MoveTo(x,y)
EndFor

Answer 6

Maybe you mean like this?

Turtle.Speed=10
Turtle.X = GraphicsWindow.Width/2
Turtle.Y = GraphicsWindow.Height/2
For i = 1 To 6
  For w = 1 To 2
    Turtle.Move(170)
    Turtle.Turn(180)
  EndFor
  Turtle.Turn(60)
EndFor
Turtle.X = GraphicsWindow.Width/2
Turtle.Y = GraphicsWindow.Height/2
For dist = 2 To 150
  angle = angle+1
  x = GraphicsWindow.Width/2 + Math.Cos(Math.GetRadians(angle*60+90))*dist
  y = GraphicsWindow.Height/2 + Math.Sin(Math.GetRadians(angle*60+90))*dist
  Turtle.MoveTo(x,y)
EndFor

---

I am a 10 year old that loves math, games, and computers. "Everyone is potentially great, you just have to turn it into kinetic greatness."