Español   Ejemplos 3D: Sierpinski I

El triángulo de Sierpinski en 3D.

Este ejemplo muestra qué fácil es crear una representación tridimensional del triángulo de Sierpinski con XLOGO.
Se puede cambiar el grado de profundidad al ejecutarlo. Por defecto: sierpinski 5

# Comando de Inicio: sierpinski 5
para sierpinski :p
  reponetodo perspectiva borrapantalla
  poncolorpapel 0 ocultatortuga poncolorlapiz 6
  sier :p 1000
  vistapoligono
fin

para sier :p :long
 hazlocal "p :p-1
 hazlocal "long :long / 2
 si :p > 0
   [ repite 3
      [ sier :p :long avanza :long*2 giraderecha 120 ]
     balanceaizquierda :angulo giraderecha 60 avanza :long
     giraizquierda 60 balanceaderecha :angulo
     sier :p :long
     balanceaizquierda :angulo giraderecha 60 retrocede :long
     giraizquierda 60 balanceaderecha :angulo ]
#
 si :p = 0
   [ piramide 2*:long ]
fin

para tri :a
  empiezapoligono
    repite 3
      [avanza :a giraderecha 120]
  finpoligono
fin

para piramide :a
  haz "angulo arcocoseno 1/3
# Base triangular
  tri :a
# caras laterales
  repite 3
    [ balanceaizquierda :angulo
      tri :a
      balanceaderecha :angulo avanza :a giraderecha 120 ]
fin
Probar este programa ahora

Comando a ejecutar:
sierpinski 5