Modifier n avec le curseur

n = 0 (slider from 0 to 14, step 1)
b = Object("A" + n)
A1 = (0, 0)
B1 = (1, 0)
A2: A1 + 0.25 * Vector[A1, B1]
D1 = Rotate(B1, 90.0*°, A1)
C1 = Rotate(A1, 270.0*°, B1)
B2: B1 + 0.25 * Vector[B1, C1]
D2 = Rotate(B2, 90.0*°, A2)
C2 = Rotate(A2, 270.0*°, B2)
E1, F1, G1, H1, I1 = Polygon(A1, B1, C1, D1)
A3: A2 + 0.25 * Vector[A2, B2]
B3: B2 + 0.25 * Vector[B2, C2]
C3 = Rotate(A3, 270.0*°, B3)
A4: A3 + 0.25 * Vector[A3, B3]
B4: B3 + 0.25 * Vector[B3, C3]
C4 = Rotate(A4, 270.0*°, B4)
A5: A4 + 0.25 * Vector[A4, B4]
B5: B4 + 0.25 * Vector[B4, C4]
C5 = Rotate(A5, 270.0*°, B5)
A6: A5 + 0.25 * Vector[A5, B5]
B6: B5 + 0.25 * Vector[B5, C5]
C6 = Rotate(A6, 270.0*°, B6)
A7: A6 + 0.25 * Vector[A6, B6]
B7: B6 + 0.25 * Vector[B6, C6]
C7 = Rotate(A7, 270.0*°, B7)
A8: A7 + 0.25 * Vector[A7, B7]
B8: B7 + 0.25 * Vector[B7, C7]
D3 = Rotate(B3, 90.0*°, A3)
D4 = Rotate(B4, 90.0*°, A4)
D5 = Rotate(B5, 90.0*°, A5)
D6 = Rotate(B6, 90.0*°, A6)
D7 = Rotate(B7, 90.0*°, A7)
D8 = Rotate(B8, 90.0*°, A8)
C8 = Rotate(A8, 270.0*°, B8)
E2, F2, G2, H2, I2 = Polygon(A2, B2, C2, D2)
E3, F3, G3, H3, I3 = Polygon(A3, B3, C3, D3)
E4, F4, G4, H4, I4 = Polygon(A4, B4, C4, D4)
E5, F5, G5, H5, I5 = Polygon(A5, B5, C5, D5)
E6, F6, G6, H6, I6 = Polygon(A6, B6, C6, D6)
E7, F7, G7, H7, I7 = Polygon(A7, B7, C7, D7)
E8, F8, G8, H8, I8 = Polygon(A8, B8, C8, D8)
A9: A8 + 0.25 * Vector[A8, B8]
B9: B8 + 0.25 * Vector[B8, C8]
D9 = Rotate(B9, 90.0*°, A9)
C9 = Rotate(A9, 270.0*°, B9)
E9, F9, G9, H9, I9 = Polygon(A9, B9, C9, D9)
A10: A9 + 0.25 * Vector[A9, B9]
B10: B9 + 0.25 * Vector[B9, C9]
D10 = Rotate(B10, 90.0*°, A10)
C10 = Rotate(A10, 270.0*°, B10)
E10, F10, G10, H10, I10 = Polygon(A10, B10, C10, D10)
A11: A10 + 0.25 * Vector[A10, B10]
B11: B10 + 0.25 * Vector[B10, C10]
D11 = Rotate(B11, 90.0*°, A11)
C11 = Rotate(A11, 270.0*°, B11)
E11, F11, G11, H11, I11 = Polygon(A11, B11, C11, D11)
A12: A11 + 0.25 * Vector[A11, B11]
B12: B11 + 0.25 * Vector[B11, C11]
D12 = Rotate(B12, 90.0*°, A12)
C12 = Rotate(A12, 270.0*°, B12)
E12, F12, G12, H12, I12 = Polygon(A12, B12, C12, D12)
A13: A12 + 0.25 * Vector[A12, B12]
B13: B12 + 0.25 * Vector[B12, C12]
D13 = Rotate(B13, 90.0*°, A13)
C13 = Rotate(A13, 270.0*°, B13)
E13, F13, G13, H13, I13 = Polygon(A13, B13, C13, D13)
A14: A13 + 0.25 * Vector[A13, B13]
B14: B13 + 0.25 * Vector[B13, C13]
D14 = Rotate(B14, 90.0*°, A14)
C14 = Rotate(A14, 270.0*°, B14)
E14, F14, G14, H14, I14 = Polygon(A14, B14, C14, D14)
A15: A14 + 0.25 * Vector[A14, B14]
B15: B14 + 0.25 * Vector[B14, C14]
D15 = Rotate(B15, 90.0*°, A15)
C15 = Rotate(A15, 270.0*°, B15)
E15, F15, G15, H15, I15 = Polygon(A15, B15, C15, D15)
texte1: "Aire = " + (Text[Element[E1:E15, n + 1.0]])
texte2: "Côté = " + (Text[Element[F1:F15, n + 1.0]])