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

Offtop:

//--------------------------------------------------------------------------
//---------------------------- 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