// Last edited on 2019-07-17 10:58:23 by stolfilocal
// Processed by remove-cam-lights

background{ color rgb < 0.8, 0.7, 0.5 > }

#declare tx_mosdragon =
    texture{
     pigment{ color rgb < 0.9, 0.4, 0.2 > }
     finish{ diffuse 0.9 ambient 0.1 }
}

#include "eixos.inc"
#include "pontos.inc"

#macro mosdragon(L, R)
  union{
    object{
      cylinder{
        <0,0,0>, <0,0,5>, 1
        texture {tx_mosdragon}
      }
    }
    object{
      coxa(L,R)
      rotate<0,0,90>
      translate<0,1,0>
    }
    object{
      coxa(L,R)
      rotate<0,-45,90>
      translate<0,1,2>
    }
    object{
      coxa(L,R)
      rotate<0,-60,90>
      translate<0,1,4>
    }
    object{
      coxa(L,R)
      translate<1,0,0>
    }
    object{
      coxa(L,R)
      rotate<0,90,90>
      translate<1,0,2>
    }
    object{
      coxa(L,R)
      rotate<0,90,90>
      translate<1,0,4>
    }
  }
#end

#macro coxa (L, R)

  union{

    object{
      sphere{
        <0, 0, 0>, 0.4
        texture {tx_mosdragon}
      }
    }

    object{
      cylinder{
        <0,0,0>, <L[0],0,0>, 0.2
        texture {tx_mosdragon}
      }
    }

    object{
      ante_coxa(L, R)
      rotate<R[0][0],R[0][1],R[0][2]>
      translate<L[0],0,0>
    }

  }

#end

#macro ante_coxa (L, R)

  union{

    object{
      sphere{
        <0, 0, 0>, 0.4
        texture {tx_mosdragon}
      }
    }

    object{
      cylinder{
        <0,0,0>, <L[1],0,0>, 0.2
        texture {tx_mosdragon}
      }
    }

    object{
      meio_perna(L, R)
      rotate<R[1][0],R[1][1],R[1][2]>
      translate<L[1],0,0>
    }

  }

#end

#macro meio_perna (L, R)

  union{

    object{
      sphere{
        <0, 0, 0>, 0.4
        texture {tx_mosdragon}
      }
    }

    object{
      cylinder{
        <0,0,0>, <L[2],0,0>, 0.2
        texture {tx_mosdragon}
      }
    }

    object{
      ante_pe(L, R)
      rotate<R[2][0],R[2][1],R[2][2]>
      translate<L[2],0,0>
    }

  }

#end

#macro ante_pe (L, R)

  union{

    object{
      sphere{
        <0, 0, 0>, 0.4
        texture {tx_mosdragon}
      }
    }

    object{
      cylinder{
        <0,0,0>, <L[3],0,0>, 0.2
        texture {tx_mosdragon}
      }
    }

    object{
      pe(L)
      rotate<R[3][0],R[3][1],R[3][2]>
      translate<L[3],0,0>
    }

  }

#end

#macro pe (L)

  union{

    object{
      sphere{
        <0, 0, 0>, 0.4
        texture {tx_mosdragon}
      }
    }

    object{
      cylinder{
        <0,0,0>, <L[4],0,0>, 0.2
        texture {tx_mosdragon}
      }
    }
  }

#end

union{
  eixos (3)

  #declare R = array[4][3];
  #declare R[0][0] = 0;
  #declare R[0][1] = 45;
  #declare R[0][2] = 0;

  #declare R[1][0] = 0;
  #declare R[1][1] = 45;
  #declare R[1][2] = 0;

  #declare R[2][0] = 0;
  #declare R[2][1] = 15;
  #declare R[2][2] = 90;

  #declare R[3][0] = 0;
  #declare R[3][1] = 0;
  #declare R[3][2] = -90;

  #declare L = array[5];
  #declare L[0] = 2;
  #declare L[1] = 3;
  #declare L[2] = 4;
  #declare L[3] = 2;
  #declare L[4] = 1;

  mosdragon(L, R)
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, -3.00 >;
#declare raio_cena = 17;
#declare dir_camera = < 1.0, 1.0, 1.0 >;

#declare dist_camera = 4*raio_cena;
#declare intens_luz = 1.20;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)