Compass Roses

Well, I guess that this is not really compass roses since I would need eight points rather than these that only have four. Compasses was the first thing that came to mind. As with most patterns I make, the original program is not as efficient as the one I create after giving it a bit of time. Here is the program that I came up with after a bit of thought.

rose {
  sides 4
  right
  sides 6
  2 right
  3 sides 3
  sides 3
  ifon none {
      paint red
      create rose
      left
      sides 3
      paint purple
      left
      create rose
   } {
   }
}