Calavera

Cuadro

Cuadro

Calavera

Cuadro

Calavera

MOSTRAR

INCLINAR

CUADRICULAR

A = (1.88, -5.02)
escala = 0.3 (slider from 0.1 to 1, step 0.1)
inclinación = 0.17453292519943295 rad (slider from 0 to 1.0471975511965976, step 0.017453292519943295)
pxAncho = 1721
pxAlto = 1700
alto: escala * pxAlto / 50
ancho: escala * pxAncho / 50
B: A + (ancho, 0)
densidad = 10 (slider from 1 to 50, step 1)
D: A + escala * (6.4, 0)
pxAltoCalavera = 410
pxAnchoCalavera = 300
altoCalavera: escala * pxAltoCalavera / 50
anchoCalavera: escala * pxAnchoCalavera / 50
inclinarCalavera = false
inclinarCuadro = false
verCuadro = true
verCalavera = false
C: A + If[inclinarCuadro, (-tan(inclinación), 1) * alto, (0, 1) * alto]
H: D + If[inclinarCalavera, (tan(inclinación), 1) * altoCalavera, (0, 1) * altoCalavera]
E: D + (anchoCalavera, 0)
verCuadriculaCuadro = false
verCuadriculaCalavera = false
inclinación2 = If(inclinarCuadro, inclinación, 0)
lista1 = Sequence(Segment[A + (s, 0), A + (s - tan(inclinación2) * alto, alto)], s, 0, ancho, ancho / densidad)
lista2 = Sequence(Segment[A + (-s * tan(inclinación2), s), A + (ancho - s * tan(inclinación2), s)], s, 0, alto, alto / densidad)
inclinación3 = If(inclinarCalavera, inclinación, 0)
lista1b = Sequence(Segment[D + (s, 0), D + (s + altoCalavera * tan(inclinación3), altoCalavera)], s, 0, anchoCalavera, anchoCalavera / densidad)
lista2b = Sequence(Segment[D + (s * tan(inclinación3), s), D + (anchoCalavera + s * tan(inclinación3), s)], s, 0, altoCalavera, altoCalavera / densidad)