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'

"Dave Blandston" <nomail@nomail> wrote:
> 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

With front facets is very cool.
;)

Post a reply to this message

"Carlo C." <nomail@nomail> wrote:
> With front facets is very cool.
> ;)

Thank you, I hope you can use it!

Post a reply to this message