A bored 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
  ]