POV-Ray : Newsgroups : povray.binaries.images : voronoi abstact : Re: voronoi abstact Server Time
31 Jul 2024 06:17:41 EDT (-0400)
  Re: voronoi abstact  
From: Tim Attwood
Date: 21 Feb 2010 19:31:05
Message: <4b81d049$1@news.povray.org>
> Is a POV picture?

Yeah, it's POV...

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

camera {
  orthographic
  location <0,0,-100>
  look_at  <0,0,0>
  right     x*image_width/image_height
  up 1*y
}
background {Black}
#default {finish{ambient 1 diffuse 0}}

// a list of colors
#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 peak_color = array[4] {White, SkyBlue, Yellow, Green}
#declare vcone = cone {<0,0,0>,0,<0,0,1>,1};
#declare s = seed(1);

#local c = 0;
#while (c<100)
   object {vcone
      pigment {
         gradient z
         color_map {
            //[0 Green]
            [0 Rand_Array_Item(peak_color, s)]
            [0.05 Rand_Array_Item(color_list, s)]
            [0.5 Rand_Array_Item(color_list, s)]
            [0.9 Rand_Array_Item(color_list, s)]
            [1 Black]
         }
      }
      translate <RRand(-0.5,0.5,s),RRand(-0.5,0.5,s),0>
   }
   #local c=c+1;
#end
//eof


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.