Author: phm

Construction

long = 250 (slider from 10 to 800, step 1)
eps = 40 (slider from 10 to 100, step 0.1)
A = (0, 0)
B: (long, 0.0)
C: (long, eps)
D: (0.0, eps)
cadre, a, b, c, d = Polygon(A, B, C, D)
trv = Sequence(Segment[(long * n / 10.0, 0.0), (long * n / 10.0, eps)], n, 1.0, 9.0)
trh = Sequence(Segment[(0.0, eps * n / 10.0), (long, eps * n / 10.0)], n, 1.0, 9.0)
trb = Sequence(Segment[(long * n / 100.0, 0.0), (long * (n - 1.0) / 100.0, eps)], n, 1.0, 10.0)
fvue = true
grabs1 = Sequence(Text[n, (n * long / 10.0 - 1.5, -(4.0))], n, 0.0, 10.0)
grabs2 = Sequence(Text[n, (n * long / 10.0 - 1.5, eps + 1.5)], n, 0.0, 10.0)
grord2 = Sequence(Text[n, (long + 2.5, n * eps / 10.0 - 1.5)], n, 0.0, 8.0, 2.0)
grord1 = Sequence(Text[n, (-(4.5), n * eps / 10.0 - 1.0)], n, 0.0, 8.0, 2.0)
texte1: "Echelle de dixme - base " + (long / 10.0) + "cm"
texte2: "Echelle de dixme de " + (long / 10.0) + " cm"