Dos cuadrados encajados
Enunciado
Definir la función
que dibuje dos cuadrados encajados como se muestra en la siguiente figura
Nota: Escribir las soluciones usando la siguiente plantilla
Definir la función
|
1 |
dosCuadrados :: Picture |
que dibuje dos cuadrados encajados como se muestra en la siguiente figura
Nota: Escribir las soluciones usando la siguiente plantilla
|
1 2 3 4 5 6 7 |
import Graphics.Gloss main :: IO () main = display (InWindow "Dibujo" (500,300) (20,20)) white dosCuadrados dosCuadrados :: Picture dosCuadrados = undefined |
|
1 2 3 4 5 6 7 8 9 10 |
import Graphics.Gloss main :: IO () main = display (InWindow "Dibujo" (500,300) (20,20)) white dosCuadrados dosCuadrados :: Picture dosCuadrados = pictures [cuadrado, scale r r $ rotate 45 $ cuadrado] where cuadrado = rectangleWire 200 200 r = 1 / sqrt 2 |