Área do Paralelogramo
Author: Iaqchan Homa
Date: 25 de Dezembro de 2011

Estudo da área do paralelogramo

Desenvolvido por PPGECIM/ULBRA

base = 5 (slider from 0 to 5, step 1)
altura = 5 (slider from 1 to 5, step 1)
deslocamento = 3 (slider from -3 to 3, step 1)
animacao = 0 (slider from 0 to 1, step 0.1)
A = (0, 0)
B: (base, 0)
C: (If[deslocamento > 0, base + deslocamento, base], altura)
D: (If[deslocamento > 0, 0, deslocamento], altura)
pol1, a, b, c, d = Polygon(A, B, C, D)
E: (If[deslocamento  <  0, deslocamento, 0] + If[deslocamento > 0, ((base + deslocamento) * animacao), 0], altura)
F: (If[deslocamento  <  0, 0, ((base + deslocamento) * animacao)], 0)
G: (If[deslocamento  <  0, 0, (-deslocamento)] + If[deslocamento  <  0, 0, ((base + deslocamento) * animacao)], 0)
H: (base + If[deslocamento  <  0, ((deslocamento - base) * animacao), 0], 0)
I: (If[deslocamento > 0, base + deslocamento, base] + If[deslocamento  <  0, ((deslocamento - base) * animacao), 0], altura)
J: (If[deslocamento > 0, base, If[deslocamento  <  0, base - deslocamento + ((deslocamento - base) * animacao), 0]], 0)
pol2, g, e, f = Polygon(E, F, G)
pol3, j, i, h = Polygon(I, H, J)
K: (0.5, altura)
L = (0.5, 0)
k = Segment(K, L)
Textopol2: "Área azul = " + (If[deslocamento > 0, pol2, pol3]) + ""
Textopol1: "Área vermelha = " + pol1 + ""