TUD Organische Chemie

Immel

Graphics

Povray 3.5

sort

View or Print (this frame only)

Example Graphics

(low quality jpg-image only)

Example file (sort.pov):

// Persistence of Vision Raytracer Version 3.5 Scene Description File
// Author: Juha Nieminen
// Description:
// Example scene demonstrating the use of the Sort_Array() macro.

camera { orthographic location -z*10 look_at 0 }
#default { finish { phong 1 phong_size 5 } }

light_source { < 100, 200,-300>, color 1.5 }
light_source { <-300, 100,-200>, color 1.0 }

#include "arrays.inc"

// Sorting an array of numbers:
// ---------------------------
#declare NumbersAmount = 20;
#declare Numbers = array[NumbersAmount];

#debug "\n*** Contents of the array before sorting: ***\n"

#declare S = seed(5);
#declare Ind = 0;
#while(Ind < NumbersAmount)
#declare Numbers[Ind] = int(100*rand(S));
#debug concat(" ", str(Numbers[Ind],0,0))
#declare Ind = Ind+1;
#end

#debug "\n\n*** Contents of the array after sorting: ***\n"

Sort_Array(Numbers)

#declare Ind = 0;
#while(Ind < NumbersAmount)
#debug concat(" ", str(Numbers[Ind],0,0))
#declare Ind = Ind+1;
#end
#debug "\n\n"


// Sorting an array of colors:
// --------------------------
#declare ColorsAmount = 15;
#declare Colors = array[ColorsAmount];

#declare S = seed(4);
#declare Ind = 0;
#while(Ind < ColorsAmount)
#declare Colors[Ind] = ;
#declare Ind = Ind+1;
#end

#macro CreateBoxes(yCoord)
#declare Width = 11/ColorsAmount;
#declare Ind = 0;
#while(Ind < ColorsAmount)
cylinder
{ 0*y, 2.5*y, Width/2 rotate -20*x
pigment { rgb Colors[Ind] }
translate <-6+12*Ind/ColorsAmount+Width/2, yCoord>
}
#declare Ind = Ind+1;
#end
#end

text
{ ttf "timrom.ttf", "Colors before sorting:", .1, 0
pigment { rgb 1 }
scale .8
translate <-6, 3.9>
}

CreateBoxes(1)

text
{ ttf "timrom.ttf", "Colors after sorting (by brightness):", .1, 0
pigment { rgb 1 }
scale .8
translate <-6, -1.1>
}

// Comparison macro which compares colors by brightness:
#macro Sort_Compare(Array, I1, I2)
(Array[I1].gray < Array[I2].gray)
#end

Sort_Array(Colors)
CreateBoxes(-4)