Pick
Author: Daniel Mentrard
Date: 20 mars 2008

Soit e : nombre de points sur les côtés
             sommets compris.
Sean i los puntos que hay en el interior:

Calcular : e/2 + i - 1 

Comparar con el área dada.

El área es igual a e/2 + i - 1. 
Esta es la fórmula de Pick y sólo es válida 
si los vértices están en los nudos de la 
cuadrícula y si el polígono no es convexo.

b = 12 (slider from 2 to 15, step 1)
A = (0, 0)
a = 17 (slider from 2 to 35, step 1)
L1 = Sequence(Sequence[A + (i, -1.0 * j), i, 1.0, a], j, 1.0, b)
F: (0.75, -1.0 * b - 0.25)
G: (a + 0.25, -1.0 * 0.75)
H: (a + 0.25, -1.0 * b - 0.25)
E = (0.75, -0.75)
I = (0.5, -0.75)
J = (0.75, -0.5)
K: (0.5, -1.0 * b - 0.25)
L: (0.75, -1.0 * b - 0.5)
e = Segment(I, K)
f = CircleArc(E, J, I)
g = CircleArc(F, K, L)
M: (a + 0.5, -1.0 * b - 0.25)
N: (a + 0.25, -1.0 * b - 0.5)
h = Segment(L, N)
k = CircleArc(H, N, M)
O: (a + 0.25, -1.0 * 0.5)
P: (a + 0.5, -1.0 * 0.75)
i = Segment(J, O)
j = Segment(P, M)
p = CircleArc(G, P, O)
C1 = (9, -7)
D1 = (10, -7)
E1 = (10, -8)
F1 = (9, -8)
G1 = Midpoint(D1, F1)

Tool: seg
Input: B, C
Output: c

c = Segment(B, C)