利用对称性设计斗篷图案

GeoGebra 命令及参数

1. Segment((0, 1), (0, 20)) → symmetryLine
2. boxTool(10, 19, (0, 2.5)) → drawArea
3. Point(Segment[(0, 10), (0, 20)]) → P1
4. Point(Segment[(0, 10), (0, 0)]) → P7
5. PointIn(drawArea) → P2
6. PointIn(drawArea) → P3
7. PointIn(drawArea) → P4
8. PointIn(drawArea) → P5
9. PointIn(drawArea) → P6
10. Polygon({P1, P2, P3, P4, P5, P6, P7, Mirror[P6, yAxis], Mirror[P5, yAxis], Mirror[P4, yAxis], Mirror[P3, yAxis], Mirror[P2, yAxis]}) → robeOutline
11. PointIn(sketchRegion) → PDrawBlue
12. PointIn(sketchRegion) → PDrawGreen
13. PointIn(sketchRegion) → PDrawOrange
14. PointIn(sketchRegion) → PDrawPink
15. If(Length[drawPink] ≤ 1, {PolyLine[dummy]}, {PolyLine[drawPink], PolyLine[Mirror[drawPink, yAxis]]}) → designPink
16. If(Length[drawGreen] ≤ 1, {PolyLine[dummy]}, {PolyLine[drawGreen], PolyLine[Mirror[drawGreen, yAxis]]}) → designGreen
17. If(Length[drawOrange] ≤ 1, {PolyLine[dummy]}, {PolyLine[drawOrange], PolyLine[Mirror[drawOrange, yAxis]]}) → designOrange
18. Vector((-10, 2), (0, 2)) → vSymmetry
19. Element({"allPink", "allGreen", "allBlue", "allOrange"}, currentPen) → currentMasterList
20. Element({"drawPink", "drawGreen", "drawBlue", "drawOrange"}, currentPen) → currentPoints
21. Zip({PolyLine[A], PolyLine[Mirror[A, yAxis]]}, A, allOrange) → allDesignOrange
22. Zip({PolyLine[A], PolyLine[Mirror[A, yAxis]]}, A, allPink) → allDesignPink
23. Zip({PolyLine[A], PolyLine[Mirror[A, yAxis]]}, A, allBlue) → allDesignBlue
24. Zip({PolyLine[A], PolyLine[Mirror[A, yAxis]]}, A, allGreen) → allDesignGreen
25. Length(allDesignBlue) → test