Chaos Game for polygon random float factor "r"

globals [turtleX
         turtleY
         newXcor  ; the new xcor which the turtle will go to
         newYcor  ; the new ycor which the turtle will go to
         turtleDistance ; thd distance the turtle has to travel
         worldLength
         factor
        ]

to setup
  ca
  ;; with the worldLength, excessLength and octogonSide length set up, these data will be used
  ;; in defining the points of the octogon

  set worldLength max-pxcor  ;; that being the size of the world



  crt 2 [
          set color white
          set size 10]
  ask turtle 0 [setxy random-xcor random-ycor
                hide-turtle]
  ask turtle 1 [setxy 0 0
                face patch 0 160
                hide-turtle
                ]

  reset-ticks
end 

to go

  find-new-position ;use tutle 1
  set turtlex  [xcor] of  turtle 0
  set turtley [ycor] of turtle 0
  ask patch turtlex turtley [set pcolor green]
  move-new-position
  if ticks > max-ticks [stop]

  tick
end 

to move-new-position
  set factor (random-float random-r + 0.5) ;; each time, the point determined on the line between the present position and the corner of the polygon will be decided by a
                            ;; slightly different factor

  ask turtle 0 [set turtleDistance distancexy newXcor newYcor
                             face patch newXcor newYcor
                             fd turtleDistance * factor ]
  ask patch newXcor newYcor [set pcolor green]
end 

to find-new-position
  let random-turn random number-of-sides * (360 / number-of-sides)
  ask turtle 1 [rt (random-turn)
                fd 380]
    set newXcor  [xcor] of turtle 1
    set newYcor  [ycor] of turtle 1
  ask turtle 1 [setxy 0 0
                face patch 0 380]
end