para info # # Dibuja la proyeccion de un cubo y la hace # girar mientras aumenta y disminuye su tamaņo # de un minimo de 10 a un maximo de 120 # # Para empezar: iniciar # Para terminar: haz click en 'Alto' y escribe: # # animacion falso # # en la Linea de Comandos # # adaptado para logo # por # bertrand.carette@laposte.net # fin para iniciar animacion cierto mc3d animacion falso fin para mc3d # mc3d = mueve cubo 3d limpia tri_dilata 10 30 fin para cubo :c # # Dibujo del cubo en 3D # ocultatortuga repite 4 [av :c gd 90] av :c gd 45 av :c gd 45 av :c gd 135 av :c re :c gi 45 av :c gd 45 av :c re :c gd 45 av :c gd 90 av :c re :c gd 45 re :c gi 45 fin para tri_dilata :c :a # # Este procedimiento dibuja el cubo mientras # esta aumentando su tamaņo. El condicional # controla que no pase de lado = 120 # si :c > 120 [haz "a 30 tri_contrae :c :a alto] cubo :c refrescar espera 50 limpia gd :a tri_dilata :c + 5 :a + 2 fin para tri_contrae :c :a # # Este procedimiento dibuja el cubo mientras # esta aumentando su tamaņo. El condicional # controla que el lado sea como minimo 15 y # el angulo sea como minimo 10 # si :c < 15 [ponr 0 tri_dilata :c :a alto] si :a < 10 [haz "a 30] refrescar cubo :c limpia gi :a tri_contrae :c - 5 :a - 2 fin