MathPlotAI Logo MathPlotAI

Linear Functions and Slope: GeoGebra Tutorial

Linear Functions and Slope: GeoGebra Tutorial
Loading the math board and drawing, please wait…
2025-10-15 12:56
In collections Homogen lineare Funktionen
This example demonstrates how to draw the graph of a linear function f(x) = kx + d and analyze its slope k and y-intercept d. The key mathematical concepts involved include the definition of linear functions, slope, intercept, and graphing methods. Construction involves using GeoGebra commands such as Sequence, Shuffle, Textfield, Element, Join, PolyLine, Polygon, and Text to build the function gr

GeoGebra Commands & Parameters

  1. Sequence(PStart + (k * (0, (-2 * heightPuzzle) - disPuzzleY)), k, 0, 5) → ParkLeftList
  2. Sequence(MPList(k) ≟ PRList(OrderRight(IndexOf[k, OrderLeft])), k, 1, numberOfOptionsLeft) → CorrectList
  3. Shuffle(1…numberOfQuestions) → randomQuestions, {3, 2, 1}
  4. Textfield(input) → inputBox
  5. Element(randomQuestions, Mod[questionCount - 1, Length[randomQuestions]] + 1) → randomQuestion
  6. Join({Sequence[Segment[Corner[4] + (RasterPixMat * ((k * RasterStepXY), 0)), Corner[4] + (RasterPixMat * ((k * RasterStepXY), RasterMaxY))], k, 0, RasterMaxX / RasterStepXY], Sequence[Segment[Corner[4] + (RasterPixMat * (0, (k * RasterStepXY))), Corner[4] + (RasterPixMat * (RasterMaxX, (k * RasterStepXY)))], k, 0, RasterMaxY / RasterStepXY]}) → RasterStrecken
  7. Join({Sequence[Text[UnicodeToLetter[65 + k], Midpoint[Corner[4] + (RasterPixMat * ((k * RasterStepXY), RasterMaxY)), Corner[4] + (RasterPixMat * (((k + 1) * RasterStepXY), RasterMaxY))], false, true, 0, -1], k, 0, RasterMaxX / RasterStepXY - 1], Sequence[Text[("" * k), Midpoint[Corner[4] + (RasterPixMat * (RasterMaxX, ((k - 1) * RasterStepXY))), Corner[4] + (RasterPixMat * (RasterMaxX, (k * RasterStepXY)))], false, true, 1, 0], k, 1, RasterMaxY / RasterStepXY]}) → RasterBeschriftung
  8. Sequence(Sequence[Corner[4] + (RasterPixMat * ((k * RasterStepXY), (m * RasterStepXY))), k, 0, RasterMaxX / RasterStepXY], m, 0, RasterMaxY / RasterStepXY) → RasterPunkte
  9. PolyLine(Join[{Sequence[PL1 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL1 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL1 + widthPuzzleLeft + lengthPuzzle), y(PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL1 + widthPuzzleLeft + lengthPuzzle), y(PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL1 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL1 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL1 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft1
  10. Polygon(Join[{Sequence[PL1 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL1 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL1 + widthPuzzleLeft + lengthPuzzle), y(PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL1 + widthPuzzleLeft + lengthPuzzle), y(PL1 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL1 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL1 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL1 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft1
  11. PolyLine(Join[{Sequence[PL2 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL2 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL2 + widthPuzzleLeft + lengthPuzzle), y(PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL2 + widthPuzzleLeft + lengthPuzzle), y(PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL2 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL2 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL2 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft2
  12. Polygon(Join[{Sequence[PL2 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL2 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL2 + widthPuzzleLeft + lengthPuzzle), y(PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL2 + widthPuzzleLeft + lengthPuzzle), y(PL2 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL2 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL2 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL2 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft2
  13. PolyLine(Join[{Sequence[PL3 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL3 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL3 + widthPuzzleLeft + lengthPuzzle), y(PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL3 + widthPuzzleLeft + lengthPuzzle), y(PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL3 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL3 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL3 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft3
  14. Polygon(Join[{Sequence[PL3 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL3 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL3 + widthPuzzleLeft + lengthPuzzle), y(PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL3 + widthPuzzleLeft + lengthPuzzle), y(PL3 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL3 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL3 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL3 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft3
  15. PolyLine(Join[{Sequence[PL4 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL4 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL4 + widthPuzzleLeft + lengthPuzzle), y(PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL4 + widthPuzzleLeft + lengthPuzzle), y(PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL4 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL4 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL4 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft4
  16. Polygon(Join[{Sequence[PL4 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL4 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL4 + widthPuzzleLeft + lengthPuzzle), y(PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL4 + widthPuzzleLeft + lengthPuzzle), y(PL4 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL4 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL4 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL4 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft4
  17. PolyLine(Join[{Sequence[PL5 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL5 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL5 + widthPuzzleLeft + lengthPuzzle), y(PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL5 + widthPuzzleLeft + lengthPuzzle), y(PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL5 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL5 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL5 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft5
  18. Polygon(Join[{Sequence[PL5 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL5 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL5 + widthPuzzleLeft + lengthPuzzle), y(PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL5 + widthPuzzleLeft + lengthPuzzle), y(PL5 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL5 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL5 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL5 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft5
  19. PolyLine(Join[{Sequence[PL6 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL6 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL6 + widthPuzzleLeft + lengthPuzzle), y(PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL6 + widthPuzzleLeft + lengthPuzzle), y(PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL6 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL6 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL6 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleLeft6
  20. Polygon(Join[{Sequence[PL6 + ((-widthPuzzleLeft), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PL6 + (widthPuzzleLeft + lengthPuzzle, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[(x(PL6 + widthPuzzleLeft + lengthPuzzle), y(PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 315, 45, -1], Sequence[(x(PL6 + widthPuzzleLeft + lengthPuzzle), y(PL6 + (widthPuzzleLeft + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PL6 + (widthPuzzleLeft + lengthPuzzle, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PL6 + ((-widthPuzzleLeft), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], {PL6 + ((-widthPuzzleLeft), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleLeft6
  21. PolyLine(Join[{Sequence[PR1 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR1 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR1 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR1 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR1 + (-widthPuzzleRight)), y(PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR1 + (-widthPuzzleRight)), y(PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR1 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight1
  22. Polygon(Join[{Sequence[PR1 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR1 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR1 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR1 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR1 + (-widthPuzzleRight)), y(PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR1 + (-widthPuzzleRight)), y(PR1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR1 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight1
  23. PolyLine(Join[{Sequence[PR2 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR2 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR2 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR2 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR2 + (-widthPuzzleRight)), y(PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR2 + (-widthPuzzleRight)), y(PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR2 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight2
  24. Polygon(Join[{Sequence[PR2 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR2 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR2 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR2 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR2 + (-widthPuzzleRight)), y(PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR2 + (-widthPuzzleRight)), y(PR2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR2 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight2
  25. PolyLine(Join[{Sequence[PR3 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR3 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR3 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR3 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR3 + (-widthPuzzleRight)), y(PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR3 + (-widthPuzzleRight)), y(PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR3 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight3
  26. Polygon(Join[{Sequence[PR3 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR3 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR3 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR3 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR3 + (-widthPuzzleRight)), y(PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR3 + (-widthPuzzleRight)), y(PR3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR3 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight3
  27. PolyLine(Join[{Sequence[PR4 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR4 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR4 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR4 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR4 + (-widthPuzzleRight)), y(PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR4 + (-widthPuzzleRight)), y(PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR4 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight4
  28. Polygon(Join[{Sequence[PR4 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR4 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR4 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR4 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR4 + (-widthPuzzleRight)), y(PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR4 + (-widthPuzzleRight)), y(PR4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR4 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight4
  29. PolyLine(Join[{Sequence[PR5 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR5 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR5 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR5 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR5 + (-widthPuzzleRight)), y(PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR5 + (-widthPuzzleRight)), y(PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR5 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight5
  30. Polygon(Join[{Sequence[PR5 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR5 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR5 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR5 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR5 + (-widthPuzzleRight)), y(PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR5 + (-widthPuzzleRight)), y(PR5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR5 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight5
  31. PolyLine(Join[{Sequence[PR6 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR6 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR6 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR6 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR6 + (-widthPuzzleRight)), y(PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR6 + (-widthPuzzleRight)), y(PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR6 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight6
  32. Polygon(Join[{Sequence[PR6 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR6 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR6 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR6 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR6 + (-widthPuzzleRight)), y(PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR6 + (-widthPuzzleRight)), y(PR6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR6 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight6
  33. PolyLine(Join[{Sequence[PR7 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR7 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR7 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR7 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR7 + (-widthPuzzleRight)), y(PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR7 + (-widthPuzzleRight)), y(PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR7 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight7
  34. Polygon(Join[{Sequence[PR7 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR7 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR7 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR7 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR7 + (-widthPuzzleRight)), y(PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR7 + (-widthPuzzleRight)), y(PR7 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR7 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight7
  35. PolyLine(Join[{Sequence[PR8 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR8 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR8 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR8 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR8 + (-widthPuzzleRight)), y(PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR8 + (-widthPuzzleRight)), y(PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR8 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleRight8
  36. Polygon(Join[{Sequence[PR8 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[PR8 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[PR8 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[PR8 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(PR8 + (-widthPuzzleRight)), y(PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(PR8 + (-widthPuzzleRight)), y(PR8 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {PR8 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleRight8
  37. Text(If[IsImageLeft(OrderLeft(IndexOf[5, OrderLeft])), "", AllTxtLeft(IndexOf[5, OrderLeft])], PL5 + (0, 0.05), false, true, 0, 0) → txtPuzzleLeft5
  38. Text(If[IsImageLeft(OrderLeft(IndexOf[6, OrderLeft])), "", AllTxtLeft(IndexOf[6, OrderLeft])], PL6 + (0, 0.05), false, true, 0, 0) → txtPuzzleLeft6
  39. Text(If[IsImageRight(OrderRight(IndexOf[1, OrderRight])), "", AllTxtRight(IndexOf[1, OrderRight])], PR1 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight1
  40. Text(If[IsImageRight(OrderRight(IndexOf[2, OrderRight])), "", AllTxtRight(IndexOf[2, OrderRight])], PR2 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight2
  41. Text(If[IsImageRight(OrderRight(IndexOf[3, OrderRight])), "", AllTxtRight(IndexOf[3, OrderRight])], PR3 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight3
  42. Text(If[IsImageRight(OrderRight(IndexOf[4, OrderRight])), "", AllTxtRight(IndexOf[4, OrderRight])], PR4 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight4
  43. Text(If[IsImageRight(OrderRight(IndexOf[5, OrderRight])), "", AllTxtRight(IndexOf[5, OrderRight])], PR5 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight5
  44. Text(If[IsImageRight(OrderRight(IndexOf[6, OrderRight])), "", AllTxtRight(IndexOf[6, OrderRight])], PR6 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight6
  45. Text(If[IsImageRight(OrderRight(IndexOf[7, OrderRight])), "", AllTxtRight(IndexOf[7, OrderRight])], PR7 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight7
  46. Text(If[IsImageRight(OrderRight(IndexOf[8, OrderRight])), "", AllTxtRight(IndexOf[8, OrderRight])], PR8 + (0, 0.05), false, true, 0, 0) → txtPuzzleRight8
  47. Sequence(MPList(k) ∈ PRList, k, 1, 6) → ConnectionLeft
  48. Sequence(PRList(k) ≟ MPList(OrderLeft(IndexOf[k, OrderRight])), k, 1, numberOfOptionsRight) → CorrectRightList
  49. PolyLine(Join[{Sequence[MP1 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP1 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP1 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP1 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP1 + (-widthPuzzleRight)), y(MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP1 + (-widthPuzzleRight)), y(MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP1 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution1
  50. Polygon(Join[{Sequence[MP1 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP1 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP1 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP1 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP1 + (-widthPuzzleRight)), y(MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP1 + (-widthPuzzleRight)), y(MP1 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP1 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution1
  51. PolyLine(Join[{Sequence[MP2 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP2 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP2 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP2 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP2 + (-widthPuzzleRight)), y(MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP2 + (-widthPuzzleRight)), y(MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP2 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution2
  52. Polygon(Join[{Sequence[MP2 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP2 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP2 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP2 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP2 + (-widthPuzzleRight)), y(MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP2 + (-widthPuzzleRight)), y(MP2 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP2 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution2
  53. PolyLine(Join[{Sequence[MP3 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP3 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP3 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP3 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP3 + (-widthPuzzleRight)), y(MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP3 + (-widthPuzzleRight)), y(MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP3 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution3
  54. Polygon(Join[{Sequence[MP3 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP3 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP3 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP3 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP3 + (-widthPuzzleRight)), y(MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP3 + (-widthPuzzleRight)), y(MP3 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP3 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution3
  55. PolyLine(Join[{Sequence[MP4 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP4 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP4 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP4 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP4 + (-widthPuzzleRight)), y(MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP4 + (-widthPuzzleRight)), y(MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP4 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution4
  56. Polygon(Join[{Sequence[MP4 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP4 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP4 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP4 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP4 + (-widthPuzzleRight)), y(MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP4 + (-widthPuzzleRight)), y(MP4 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP4 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution4
  57. PolyLine(Join[{Sequence[MP5 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP5 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP5 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP5 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP5 + (-widthPuzzleRight)), y(MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP5 + (-widthPuzzleRight)), y(MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP5 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution5
  58. Polygon(Join[{Sequence[MP5 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP5 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP5 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP5 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP5 + (-widthPuzzleRight)), y(MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP5 + (-widthPuzzleRight)), y(MP5 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP5 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution5
  59. PolyLine(Join[{Sequence[MP6 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP6 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP6 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP6 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP6 + (-widthPuzzleRight)), y(MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP6 + (-widthPuzzleRight)), y(MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP6 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolution6
  60. Polygon(Join[{Sequence[MP6 + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[MP6 + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[MP6 + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[MP6 + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(MP6 + (-widthPuzzleRight)), y(MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(MP6 + (-widthPuzzleRight)), y(MP6 + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {MP6 + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → polyPuzzleSolution6
  61. Text(If[IsImageRight(IndexOf[1, OrderLeft]), "", AllTxtRight(IndexOf[1, OrderLeft])], MP1 + (0, 0.05), false, true, 0, 0) → txtSolution1
  62. Text(If[IsImageRight(IndexOf[2, OrderLeft]), "", AllTxtRight(IndexOf[2, OrderLeft])], MP2 + (0, 0.05), false, true, 0, 0) → txtSolution2
  63. Text(If[IsImageRight(IndexOf[3, OrderLeft]), "", AllTxtRight(IndexOf[3, OrderLeft])], MP3 + (0, 0.05), false, true, 0, 0) → txtSolution3
  64. Text(If[IsImageRight(IndexOf[4, OrderLeft]), "", AllTxtRight(IndexOf[4, OrderLeft])], MP4 + (0, 0.05), false, true, 0, 0) → txtSolution4
  65. Text(If[IsImageRight(IndexOf[5, OrderLeft]), "", AllTxtRight(IndexOf[5, OrderLeft])], MP5 + (0, 0.05), false, true, 0, 0) → txtSolution5
  66. Text(If[IsImageRight(IndexOf[6, OrderLeft]), "", AllTxtRight(IndexOf[6, OrderLeft])], MP6 + (0, 0.05), false, true, 0, 0) → txtSolution6
  67. PolyLine(Join[{Sequence[ParkRightList(1) + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[ParkRightList(1) + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[ParkRightList(1) + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[ParkRightList(1) + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(ParkRightList(1) - widthPuzzleRight), y(ParkRightList(1) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[ParkRightList(1) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(ParkRightList(1) - widthPuzzleRight), y(ParkRightList(1) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {ParkRightList(1) + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolutionPark1
  68. PolyLine(Join[{Sequence[ParkRightList(2) + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[ParkRightList(2) + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[ParkRightList(2) + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[ParkRightList(2) + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(ParkRightList(2) - widthPuzzleRight), y(ParkRightList(2) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[ParkRightList(2) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(ParkRightList(2) - widthPuzzleRight), y(ParkRightList(2) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {ParkRightList(2) + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolutionPark2
  69. PolyLine(Join[{Sequence[ParkRightList(3) + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[ParkRightList(3) + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[ParkRightList(3) + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[ParkRightList(3) + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(ParkRightList(3) - widthPuzzleRight), y(ParkRightList(3) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[ParkRightList(3) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(ParkRightList(3) - widthPuzzleRight), y(ParkRightList(3) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {ParkRightList(3) + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolutionPark3
  70. PolyLine(Join[{Sequence[ParkRightList(4) + ((-widthPuzzleRight), (-heightPuzzle)) + (radiusKante, radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 180, 270, 1], Sequence[ParkRightList(4) + (widthPuzzleRight, (-heightPuzzle)) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 270, 360, 1], Sequence[ParkRightList(4) + (widthPuzzleRight, heightPuzzle) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 0, 90, 1], Sequence[ParkRightList(4) + ((-widthPuzzleRight), heightPuzzle) + (radiusKante, (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 180, 1], Sequence[(x(ParkRightList(4) - widthPuzzleRight), y(ParkRightList(4) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(45°), sin(45°))))) + ((-radiusKante), radiusKante) + (radiusKante * (cos(k°), sin(k°))), k, 360, 270, -1], Sequence[ParkRightList(4) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(k°), sin(k°))), k, 45, 315, 1], Sequence[(x(ParkRightList(4) - widthPuzzleRight), y(ParkRightList(4) + ((-widthPuzzleRight) - lengthPuzzle + radiusPuzzle, 0) + (radiusPuzzle * (cos(-45°), sin(-45°))))) + ((-radiusKante), (-radiusKante)) + (radiusKante * (cos(k°), sin(k°))), k, 90, 0, -1], {ParkRightList(4) + ((-widthPuzzleRight), (-heightPuzzle)) + (0, radiusKante)}}]) → segPuzzleSolutionPark4
  71. Text(AllTxtRight(numberOfOptionsLeft + 1), ParkRightList(1) + (0, 0.05), false, true, 0, 0) → txtParkSolution1
  72. Text(AllTxtRight(numberOfOptionsLeft + 2), ParkRightList(2) + (0, 0.05), false, true, 0, 0) → txtParkSolution2
  73. Text(AllTxtRight(numberOfOptionsLeft + 3), ParkRightList(3) + (0, 0.05), false, true, 0, 0) → txtParkSolution3
  74. Text(AllTxtRight(numberOfOptionsLeft + 4), ParkRightList(4) + (0, 0.05), false, true, 0, 0) → txtParkSolution4
  75. Text(If[IsImageLeft(OrderLeft(IndexOf[1, OrderLeft])), "", AllTxtLeft(IndexOf[1, OrderLeft])], PL1 + ((-widthPuzzleLeft), 0.05), false, true, 1, 0) → txtPuzzleLeft1
  76. Text(If[IsImageLeft(OrderLeft(IndexOf[2, OrderLeft])), "", AllTxtLeft(IndexOf[2, OrderLeft])], PL2 + ((-widthPuzzleLeft), 0.05), false, true, 1, 0) → txtPuzzleLeft2
  77. Text(If[IsImageLeft(OrderLeft(IndexOf[3, OrderLeft])), "", AllTxtLeft(IndexOf[3, OrderLeft])], PL3 + ((-widthPuzzleLeft), 0.05), false, true, 1, 0) → txtPuzzleLeft3
  78. Text(If[IsImageLeft(OrderLeft(IndexOf[4, OrderLeft])), "", AllTxtLeft(IndexOf[4, OrderLeft])], PL4 + ((-widthPuzzleLeft), 0.05), false, true, 1, 0) → txtPuzzleLeft4