Α = (2, 1)
a = 4 (slider from 0 to 10, step 1)
b = 2 (slider from 0 to 10, step 1)
Β: Α + (a, 0)
Δ: Α + (0, b)
Γ: Β + (0, b)
πολύγ1, α, β, γ, δ = Polygon(Α, Β, Γ, Δ)
c = Distance(β, γ)
d = Distance(δ, α)
Κείμενοπολύγ1: "Εμβαδόν του  " + (Name[Α]) + (Name[Β]) + (Name[Γ]) + (Name[Δ]) + " = " + πολύγ1
περίμετροςπολύγ1 = Perimeter(πολύγ1)
κείμενο1: "Περίμετρος του  " + (Name[Α]) + (Name[Β]) + (Name[Γ]) + (Name[Δ]) + " = " + περίμετροςπολύγ1
Ε = (2, -1)
Ζ = (6, -1)
Η = (3, -5)
Θ = (-1, -5)
πολύγ2, ε, ζ, η, θ = Polygon(Ε, Ζ, Η, Θ)
ι = Angle(Α, Δ, Γ)
κ = Angle(Δ, Γ, Β)
λ = Angle(Γ, Β, Α)
μ = Angle(Β, Α, Δ)
ν = Angle(Θ, Ε, Ζ)
ξ = Angle(Ε, Ζ, Η)
ο = Angle(Ζ, Η, Θ)
ρ = Angle(Η, Θ, Ε)
απόστασηΕη = Distance(Ε, η)
ΚείμενοΕη: "\overline{" + (Name[Ε]) + (Name[η]) + "} \, = \, " + απόστασηΕη
περίμετροςπολύγ2 = Perimeter(πολύγ2)
Κείμενοπολύγ2: "Περίμετρος του  " + (Name[Ε]) + (Name[Ζ]) + (Name[Η]) + (Name[Θ]) + " = " + περίμετροςπολύγ2
e = Perimeter(πολύγ2)
κείμενο2: "Εμβαδόν του  " + (Name[Ε]) + (Name[Ζ]) + (Name[Η]) + (Name[Θ]) + " = " + πολύγ2
f = Distance(ζ, η)
g = Distance(θ, ε)
Ι = (-8, -1)
Κ = (-6, -1)
πολύγ3, h, i, j, k, l, m, Λ, Μ, Ν, Ξ = Polygon(Ι, Κ, 6)
Ο = (-8, -3)
Π = (-6, -3)
Ρ = (-5, -4)
Σ = (-5, -5)
Τ = (-6, -6)
Υ = (-8, -6)
Φ = (-9, -4)
πολύγ4, ο_1, π, ρ_1, σ, τ, υ, φ = Polygon(Ο, Π, Ρ, Σ, Τ, Υ, Φ)