Sample image in p.b.i.
;-)
Paolo

%<-------------------------- cut here ----

// POV-color picker
// Paolo Gibellini 2005
// A simple wallpaper: +H1280 +W1024 +A0.1 (for straight lines AA 0.1 is
better)
/*
Parameters

cubes: size of the color cube
  n.b. increasing this number could be very memory-consuming (with 256 Mb I
cannot use more than 100 cubes)

tipo: type of the color 0=solid, 1=semitransparent, 2=metallic

random seed determines position (picking) of the color dropper and the color
of the dropper itself

 */


#version 3.5;

#include "colors.inc"

// Impostazioni globali ------------------------------------
global_settings {
  assumed_gamma 1.0
  max_trace_level 5
}
// ---------------------------------------------------------

// Ambiente ------------------------------------------------
sky_sphere {
  pigment {
    gradient y
    color_map {
      [0.0 rgb <0.6,0.7,1.0>]
      [0.7 rgb <0.0,0.1,0.8>]
    }
  }
}

light_source {
  <0, 0, 0>            // light's position (translated below)
  color rgb <1, 1, 1>  // light's color
  translate <-30, 30, -30>
}
// ---------------------------------------------------------

// Parameters ----------------------------------------------
#declare cubes=8;     /* Size of the color cube */
#declare tipo=2;      /* 0=solid, 1=semitransparent, 2=metallic */
#declare s=seed(39);   /* Random seed (determines position of the color
dropper and the color of the dropper itself) */
// ---------------------------------------------------------

// Random --------------------------------------------------
#macro r(m)
    rand(s)*m
#end
// ---------------------------------------------------------

// Textures ------------------------------------------------
#declare t_cromata=texture {
    pigment {
      color rgb <0.8,0.8,1.0>
    }
    finish{
      diffuse 0.3
      ambient 0.0
      specular 0.6
      reflection {
        0.8
        metallic
      }
      conserve_energy
    }
}

#declare t_onde=  texture {
    pigment {
      color rgb <0.8,0.8,1.0>
    }
    normal {
     waves
    }
    finish{
      diffuse 0.3
      ambient 0.0
      specular 0.6
      reflection {
        0.8
      }
    }
}
// Moray's NBoldglass
#declare NBoldglass = material  {
      texture {
         pigment {
            color rgbf <0.8, 0.9, 0.85, 0.85>
         }
         finish {
            ambient 0.1
            diffuse 0.1
            specular 1.0
            roughness 0.001
            reflection 0.25
         }
      }
      interior  {
         ior 1.5
      }
}
// ---------------------------------------------------------


// Camera --------------------------------------------------
camera {
  location  <-cubes*0.8, cubes*0.6, -cubes*3.5>
  direction 1.5*z
  right     x*image_width/image_height
  look_at   cubes/2
}
// ---------------------------------------------------------

// Un po' di scena -----------------------------------------
plane {
 y, -3
 texture {t_onde scale cubes}
}

sphere {
 <-cubes/2,cubes/1.8,cubes/2>, cubes/3
 texture {t_cromata}
}
// ---------------------------------------------------------

// color dropper -------------------------------------------
#declare cx=(r(cubes))*0.6+cubes*0.2;
#declare cy=(r(cubes))*0.6+cubes*0.2;
#declare cz=(r(cubes))*0.6+cubes*0.2;
cylinder {<cx,cy,cz> <cubes*0.8,cubes*0.9,-cubes*1> 0.2*(cubes/10)
 pigment {color rgbft <cx/cubes,cy/cubes,cz/cubes,0.6,0.3>}
}
cylinder {<cubes*0.8,cubes*0.9,-cubes*1> <cubes*0.8,cubes*0.7,-cubes*1.35>
0.2*(cubes/10)
 pigment {color rgbft <cx/cubes,cy/cubes,cz/cubes,0.3,0.3>}
}
// ---------------------------------------------------------

// Glass ---------------------------------------------------
difference {
 cylinder {<cubes*0.8,cubes*0.8,-cubes*1.3>
<cubes*0.8,cubes*0.35,-cubes*1.3> 1.1*(cubes/10)}
 cylinder {<cubes*0.8,cubes*0.8,-cubes*1.3> <cubes*0.8,cubes*0.4,-cubes*1.3>
1*(cubes/10)}
 material {NBoldglass}
}
cylinder {<cubes*0.8,cubes*0.7,-cubes*1.3> <cubes*0.8,cubes*0.4,-cubes*1.3>
1*(cubes/10)
 pigment {color rgb <cx/cubes,cy/cubes,cz/cubes>}
}
// ---------------------------------------------------------

// Colors --------------------------------------------------
#declare rx=0;
#declare gy=0;
#declare bz=0;
#while (rx<cubes)
 #declare gy=0;
 #while (gy<cubes)
  #declare bz=0;
  #while (bz<cubes)
   #switch(tipo)
    #case(1)
     box {<rx,gy,bz>, <rx+0.8,gy+0.8,bz+0.8> pigment {color rgbft
<rx/cubes,gy/cubes,bz/cubes,0.6,0.3>}}
    #break
    #case(2)
     box {<rx,gy,bz>, <rx+0.8,gy+0.8,bz+0.8> pigment {color rgb
<rx/cubes,gy/cubes,bz/cubes> } finish{diffuse 0.3 ambient 0.0 specular 0.6
reflection {0.8 metallic}}}
    #break
    #else
     box {<rx,gy,bz>, <rx+0.8,gy+0.8,bz+0.8> pigment {color rgb
<rx/cubes,gy/cubes,bz/cubes>}}
   #end
   #declare bz=bz+1;
  #end
  #declare gy=gy+1;
 #end
 #declare rx=rx+1;
#end
// ---------------------------------------------------------

Post a reply to this message

Attachments:
Download 'color_picker_03_en.zip' (2 KB)