Just a simple star with a few facets.

I made this star as part of an Esperanto flag, since my wife is learning
Esperanto. Since it's so simple I'll cheat a little and just post the source
code here in case anyone is interested...

Regards,
Dave Blandston

#local StarPoint = object {
   intersection {
      box {<-1, -.08, -1> <1, .08, 1>}
      plane {z, 0 inverse rotate 70 * x rotate -54 * y translate -1 * z}
      plane {z, 0 inverse rotate 70 * x rotate 54 * y translate -1 * z}
      plane {z, 0 inverse rotate 110 * x rotate 72 * y translate 1 * z}
      plane {z, 0 inverse rotate 110 * x rotate -72 * y translate 1 * z}
      plane {z, 0 rotate 110 * x rotate -54 * y translate -1 * z}
      plane {z, 0 rotate 110 * x rotate 54 * y translate -1 * z}
      plane {z, 0 rotate 70 * x rotate 72 * y translate 1 * z}
      plane {z, 0 rotate 70 * x rotate -72 * y translate 1 * z}
   } //intersection
   translate 1 * z
} //object

#local Star = object {
   union {
      #local I = 0;
      #while (I < 5)
         object {StarPoint rotate (I * 72) * y}
         #local I = I + 1;
      #end //#while
   } //union
   rotate -90 * x
} //object

Post a reply to this message

Attachments:
Download 'stars.png' (239 KB)

Preview of image 'stars.png'