"Russell Towle" <rto### [at] inreachcom> wrote:

> Unusual to see triangular bipyramids.

DualTetrahedron
//stacks
#declare Vmin=0;
#declare Vmax=pi;
//slices
#declare Umin=0;
#declare Umax=pi*2;
#declare Fx = function(u,v) { sin(u) * sin(v) }
#declare Fy = function(u,v) { cos(v) }
#declare Fz = function(u,v) { cos(u) * sin(v) }
spheroid(.8, 0.0, -0.5, 0.0,2,3,Fx,Fy,Fz,0)

spheroid_dome.inc required at this point which does several things over
Parametric().

Post a reply to this message

> Using an array of textures is not difficult:

#include "colors.inc"
#include "arrays.inc"

#declare color_list = array[100] {Red, Green, Blue, Yellow, Cyan, Magenta,
   Aquamarine, BlueViolet, Brown, CadetBlue, Coral, CornflowerBlue,
   DarkGreen, DarkOliveGreen, DarkOrchid, DarkSlateBlue, DarkSlateGray,
   DarkSlateGrey, DarkTurquoise, Firebrick, ForestGreen, Gold, Goldenrod,
   GreenYellow, IndianRed, Khaki, LightBlue, LightSteelBlue, LimeGreen,
   Maroon, MediumAquamarine, MediumBlue, MediumForestGreen, MediumGoldenrod,
   MediumOrchid, MediumSeaGreen, MediumSlateBlue, MediumSpringGreen,
   MediumTurquoise, MediumVioletRed, MidnightBlue, Navy, NavyBlue, Orange,
   OrangeRed, Orchid, PaleGreen, Pink, Plum, Salmon, SeaGreen, Sienna,
   SkyBlue, SlateBlue, SpringGreen, SteelBlue, Tan, Thistle, Turquoise,
   Violet, VioletRed, Wheat, YellowGreen, SummerSky, RichBlue, Brass, 
Copper,
   Bronze, Bronze2, Silver, BrightGold, OldGold, Feldspar, Quartz, Mica,
   NeonPink, DarkPurple, NeonBlue, CoolCopper, MandarinOrange, LightWood,
   MediumWood, DarkWood, SpicyPink, SemiSweetChoc, BakersChoc, Flesh, 
NewTan,
   NewMidnightBlue, VeryDarkBrown, DarkBrown, DarkTan, GreenCopper,
   DkGreenCopper, DustyRose, HuntersGreen, Scarlet, Med_Purple, 
Light_Purple,
   Very_Light_Purple };

#declare S = seed(1);
object {
   Foo
   pigment {Rand_Array_Item(color_list, S)}
}

Post a reply to this message

"Tim Attwood" <tim### [at] comcastnet> wrote:
> > Using an array of textures is not difficult:
>
> #include "colors.inc"
> #include "arrays.inc"
>
> #declare color_list = array[100] {Red, Green, Blue, Yellow, Cyan, Magenta,
>    Very_Light_Purple };
>
> #declare S = seed(1);
> object {
>    Foo
>    pigment {Rand_Array_Item(color_list, S)}
> }

I see, thank you, that would work very well. I think what I imagined was exactly
like that except I hoped that the long list of predefined colors in colors.inc
existed as a string or array already so I would not have to copy and paste into
my own array declaration.

Your method above is much the same as I use for these tilings in Mathematica,
for I have fallen into the habit of sorting the tiles by surface area into
subsets, and sometimes there are very many of them. These colors help eke out
the symmetries of the tiling, or possibly, the lack of symmetries.

Post a reply to this message

> I see, thank you, that would work very well. I think what I imagined was 
> exactly
> like that except I hoped that the long list of predefined colors in 
> colors.inc
> existed as a string or array already so I would not have to copy and paste 
> into
> my own array declaration.
>
> Your method above is much the same as I use for these tilings in 
> Mathematica,
> for I have fallen into the habit of sorting the tiles by surface area into
> subsets, and sometimes there are very many of them. These colors help eke 
> out
> the symmetries of the tiling, or possibly, the lack of symmetries.

Yeah, it's not very concise, but on the other hand it lets
you exclude some colors, like all the grays.

Post a reply to this message