A.I.M. - Latest posts of: Bonarienz

Code:

//--------------------------------------------------------------------------
//---------------------------- objects in scene ----------------------------
//---------------------------------------------------------------------- ----
#declare Rock =

box { <0,0,0>,< 1.00, 1.00, 1.00>

texture { pigment{ color rgb<1.00, 1.00, 1.00>*1.1}
finish { phong 1 reflection 0.00}
} // end of texture

scale <1,1,1> rotate<0,0,0> translate<0,0,0>
} // end of box --------------------------------------

// JSD Table
#declare Cliff =
array[8][8] {
{ 0,0, 0, 0, 0, 0,0, 0},
{ 1,0, 0, 1, 0, 0,1,-1},
{ 0,0, 1, 0, 0, 1,0, 0},
{ 0,0, 0, 0, 0, 0,0, 1},
{ 0,0, 0, 0, 0, 0,0, 0},
{ 0,1, 0,-1, 0,-1,0, 0},
{ 0,0, 0, 0, 0, 0,0, 0},
{ 0,0,-1, 0,-1, 0,1, 0},
}

// Land Heights
#declare Land =
array[8][8]

// Rows Integration constants
#declare LMin =
array[8]

// JSD array integration and Land array filling
#declare NrX = 0; // start x
#declare EndNrX = 8; // end x
// #declare XMax = 0; // Max height global
#declare XMin = 3; // Max height global
#while (NrX < EndNrX) // inner loop

#local NrZ = 0; // start z
#local EndNrZ = 8; // end z
#local ZMax = 3; // Max height local, in row
#local ZMin = 3; // Min height local, in row
#local ZH = 3; // Current height local, in row

#while (NrZ < EndNrZ)

#local ZH = ZH + Cliff [NrX][NrZ];

#if (ZH > ZMax)

#local ZMax = ZH;

#end

#if (ZH < ZMin)

#local ZMin = ZH;

#end

#declare Land [NrX][NrZ] = ZH;

object{Rock texture { pigment{ color rgb<0.00, 1.00, 1.00>*1.1} finish { phong 1 reflection 0.00} }

translate <NrZ, 0, -NrX-1> scale (Cliff [NrX][NrZ] + 1.1)*y}

#local NrZ = NrZ + 1; // next Nr x

#end

#declare LMin [NrX] = ZMin ;

object{Rock texture { pigment{ color rgb<1.00, 0.00, 1.00>*1.1}
finish { phong 1 reflection 0.00}
} // end of texture
translate <-2, 0, -NrX-1> scale LMin [NrX]*y}

#if ( XMin > LMin [NrX])

#declare XMin = ZMin;

#end

#declare NrX = NrX + 1; // next Nr z
#end // --------------- end of loop z

// Clamp lowest land level to zero, building Land
#declare NrX = 0; // start x
#declare EndNrX = 8; // end x
#while (NrX < EndNrX) // inner loop

#local NrZ = 0; // start z
#local EndNrZ = 8; // end z

#while (NrZ < EndNrZ)

object{Rock translate <NrZ+9, 0, -NrX-1> scale (Land [NrX][NrZ] - ZMin*.99) *y}

#local NrZ = NrZ + 1; // next Nr x

#end

#declare NrX = NrX + 1; // next Nr z
#end // --------------- end of loop z