Carl <car### [at] gmailcom> wrote:
>   #declare RhombicTriacontahedron =
>   intersection
>     {plane {-z, 1 rotate <58.28252558854,  -36, 0>}
>      plane {-z, 1 rotate <58.28252558854, -108, 0>}
>      plane {-z, 1 rotate <58.28252558854, -180, 0>}
>      plane {-z, 1 rotate <58.28252558854, -252, 0>}
>      plane {-z, 1 rotate <58.28252558854, -324, 0>}

>      plane {z, 1 rotate <58.28252558854,  -36, 0>}
>      plane {z, 1 rotate <58.28252558854, -108, 0>}
>      plane {z, 1 rotate <58.28252558854, -180, 0>}
>      plane {z, 1 rotate <58.28252558854, -252, 0>}
>      plane {z, 1 rotate <58.28252558854, -324, 0>}

>      plane {-y, 1 rotate <58.28252558854,  -36, 0>}
>      plane {-y, 1 rotate <58.28252558854, -108, 0>}
>      plane {-y, 1 rotate <58.28252558854, -180, 0>}
>      plane {-y, 1 rotate <58.28252558854, -252, 0>}
>      plane {-y, 1 rotate <58.28252558854, -324, 0>}

>      plane {y, 1 rotate <58.28252558854,  -36, 0>}
>      plane {y, 1 rotate <58.28252558854, -108, 0>}
>      plane {y, 1 rotate <58.28252558854, -180, 0>}
>      plane {y, 1 rotate <58.28252558854, -252, 0>}
>      plane {y, 1 rotate <58.28252558854, -324, 0>}

>      plane {-x, 1 rotate <58.28252558854,  -36, 0>}
>      plane {-x, 1 rotate <58.28252558854, -108, 0>}
>      plane {-x, 1 rotate <58.28252558854, -180, 0>}
>      plane {-x, 1 rotate <58.28252558854, -252, 0>}
>      plane {-x, 1 rotate <58.28252558854, -324, 0>}

>      plane {x, 1 rotate <58.28252558854,  -36, 0>}
>      plane {x, 1 rotate <58.28252558854, -108, 0>}
>      plane {x, 1 rotate <58.28252558854, -180, 0>}
>      plane {x, 1 rotate <58.28252558854, -252, 0>}
>      plane {x, 1 rotate <58.28252558854, -324, 0>}
>     }

  How about:

#macro RhombicTriacontahedronSection(Dir)
     plane {Dir, 1 rotate <58.28252558854,  -36, 0>}
     plane {Dir, 1 rotate <58.28252558854, -108, 0>}
     plane {Dir, 1 rotate <58.28252558854, -180, 0>}
     plane {Dir, 1 rotate <58.28252558854, -252, 0>}
     plane {Dir, 1 rotate <58.28252558854, -324, 0>}
#end

#declare RhombicTriacontahedron =
  intersection
  { RhombicTriacontahedronSection(-z)
    RhombicTriacontahedronSection(z)
    RhombicTriacontahedronSection(-y)
    RhombicTriacontahedronSection(y)
    RhombicTriacontahedronSection(-x)
    RhombicTriacontahedronSection(x)
  };

-- 
                                                          - Warp

Post a reply to this message