// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2010-03-04 15:44:01 by stolfi

// ======================================================================
// CORES E TEXTURAS

background { color rgb <0.80, 0.80, 0.80> }

// ======================================================================
// DESCRIÇÃO DA CENA 
// Partes da cena:
#include "eixos.inc"
#include "colors.inc"

#declare roleta = seed(417);
#declare raioBit = 1;
#declare distBits = 2.2 * raioBit;
#declare distVertical = 4 * raioBit;

#macro chao(altura)
    plane {
        z, altura 
        pigment { checker color rgb <0.4, 0.4, 0.4> color rgb <0.6, 0.6, 0.6> scale 6}
        finish { reflection 0.2 ambient 0.3 diffuse 0.1 }
    }
#end

// Representacao de um bit
#macro pino()
    union {
        sphere {
            <0, 0, 0>, raioBit
        }
        cylinder {
            <0, 0, 0>, <0, 0, raioBit / 2>, raioBit / 2
            translate <0, 0, 0.9 * raioBit>
        }
        pigment {
            color rgb <1, 1, 1>
        }
    }
#end

// Retorna um bit dependendo do valor desejado (0 ou 1)
#macro bit(valor, defeito)
    #if (defeito)
        #if (valor = 0)
            object {
                pino()
                scale <0, 0, -1>
            }
        #else
            object {
                pino()
            }
        #end
    #else
        sphere {
            <0, 0, 0> raioBit
            pigment { color rgb<1, 0, 0> }
        }
    #end
#end

// Caixa da fileira
#macro caixa(qtdBits)
    difference {
        box {
            <-raioBit * 2, - (raioBit + 2), -raioBit * 2.2>,
            <raioBit * 2, qtdBits * distBits, raioBit * 2.2>
            pigment { color rgb <0.8, 0.35, 0.3> }
        }
        box {
            <-raioBit * 3, - (raioBit + 1), -raioBit * 2>,
            <raioBit * 3, qtdBits * distBits, raioBit * 2>
            pigment { color rgb <0.8, 0.35, 0.3> }
        }
    }
#end

// Retorna uma fileira de bits
// O bit da direita e o bit menos significativo
#macro fileira(qtdBits, valorDec, prob)
    #local valor = valorDec;
    #local qtd = 0;
    #local defeito = 0;

    object {
        union {
            object {
                caixa(qtdBits)
            }

            cylinder {
                <0, - (raioBit + 1), 0>,
                <0, qtdBits * distBits, 0>,
                raioBit * 0.2
                pigment { color rgb<0.2, 0.6, 0.2> }
            }

            #while (valor > 0)
                #local defeito = (rand(roleta) < prob);

                object {
                    bit(mod(valor, 2), defeito)
                    translate <0, qtd * distBits, 0>
                }

                #local qtd = qtd + 1;

                #if (valor = 1)
                    #local valor = 0;
                #else
                    #local valor = int(valor - valor / 2);
                #end
            #end

            #while (qtd < qtdBits)
                #local defeito = (rand(roleta) < prob);

                object {
                    bit(0, defeito)
                    translate <0, qtd * distBits, 0>
                }

                #local qtd = qtd + 1;
            #end
        }

        // Inverte todo o objeto para deixar o bit menos significativo a direita
        scale <0, -1, 0>
    }
#end

// Retorna o abaco completo
#macro abaco(fileiras, qtdBits, valores, prob)
    #local i = 0;

    object {
        union {
            #while (i < fileiras)
                object {
                    fileira(qtdBits, valores[i], prob)
                    translate <0, 0, -(i * 4)>
                }

                #local i = i + 1;
            #end
        }
    }
#end

#declare FileirasAbaco = 4;
#declare BitsAbaco = 12;
#declare ValoresAbaco = array[FileirasAbaco];
#declare ValoresAbaco[0] = 3;
#declare ValoresAbaco[1] = 6;
#declare ValoresAbaco[2] = 20;
#declare ValoresAbaco[3] = 123;


// Aqui está a cena, finalmente:
union {
    object {
        abaco(FileirasAbaco, BitsAbaco, ValoresAbaco, 1)
        translate <0, (BitsAbaco * raioBit) / 2, 0>
    }
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 30.0;
#declare dir_camera = < 2.00, 0, 0.00 >;
#declare dist_camera = 60.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)