Pants on Fire

I like the local pattern but globally this pattern doesn't work out. It can make a nice grid but not a pattern that has radial symmetry. The wedges implied here have angles that doesn't divide 360 so they do not fit together. The program to generate this image is shorter than one that would create the grid and I'm lazy today...

start {
  scale 0.4
  create pent
}
pent {
  sides 3
  paint pink
sides 5
  ifon none  {
 paint  purple
      create pent
      3 right
      create delay
  }  {
  }
}
delay {
    create pent
}