safe pac man

reset
penwidth 500
fw 250
home
bw 250
home
color[255 255 0]

; penwidth 145
; setheading 125
; arc 75 260

make "radius 75
make "heading 113
make "center_x 125
make "center_y 250
penwidth 3
repeat 314[
  setx :center_x
  sety :center_y
  setheading :heading
  fw :radius
  make "heading :heading +1
  ]  
home
penwidth 16
color[255 182 193]
circle 8
setx 300
circle 8
setx 350
circle 8
setx 400
circle 8
setx 450
circle 8
setx 500
circle 8