1Math::PlanePath::CretanULsaebryrCionntthr(i3b)uted PerlMDaotchu:m:ePnltaanteiPoanth::CretanLabyrinth(3)
2
6 Math::PlanePath::CretanLabyrinth -- infinite Cretan labyrinth
7
9 use Math::PlanePath::CretanLabyrinth;
10 my $path = Math::PlanePath::CretanLabyrinth->new;
11 my ($x, $y) = $path->n_to_xy (123);
12
14 This is a Cretan 7-circuit style labyrinth extended out infinitely.
15 81--80--79--78--77--76--75--74--73--72--71--70--69 7
17 | |
18 82 137-138-139-140-141-142-143-144-145-146-147 68 6
19 | | | |
20 83 136 165-164-163-162-161-160-159-158-157 148 67 5
21 | | | | | |
22 84 135 166 49--50--51--52--53--54--55 156 149 66 4
23 | | | | | | | |
24 85 134 167 48 9-- 8-- 7-- 6-- 5 56 155 150 65 3
25 | | | | | | | | | |
26 86 133 168 47 10 25--26--27 4 57 154 151 64 2
27 | | | | | | | | | | | |
28 87 132 169 46 11 24 29--28 3 58 153-152 63 1
29 | | | | | | | | | |
30 88 131 170 45 12 23 30 1-- 2 59--60--61--62 <- Y=0
31 | | | | | | |
32 89 130 171 44 13 22 31--32--33 186-187-188-189 -1
33 | | | | | | | | |
34 90 129 172 43 14 21--20--19 34 185 112-111 190 -2
35 | | | | | | | | | | |
36 91 128 173 42 15--16--17--18 35 184 113 110 ... -3
37 | | | | | | | |
38 92 127 174 41--40--39--38--37--36 183 114 109 -4
39 | | | | | |
40 93 126 175-176-177-178-179-180-181-182 115 108 -5
41 | | | |
42 94 125-124-123-122-121-120-119-118-117-116 107 -6
43 | |
44 95--96--97--98--99-100-101-102-103-104-105-106 -7
45 ^
47 -7 -6 -5 -4 -3 -2 -1 X=0 1 2 3 4
48 The repeating part is the N=59 to N=189 style groups of 4 circuits
50 going back and forward.
51 The gaps between the path are the labyrinth walls. Notice at
53 N=2,59,33,186 the "+" joining of those walls which is characteristic of
54 this style labyrinth.
55 | 3 | 58 |
57 | | |
58 ------+ | +-------
59 |
60 1 2 | 59 60
61 |
62 -------------+-------------- walls
63 |
64 32 33 | 186 187
65 |
66 ------+ | +-------
67 | | |
68 | 34 | 185 |
69 See examples/cretan-walls.pl for a sample program carving out the path
71 from a solid block to leave the walls.
72
74 See "FUNCTIONS" in Math::PlanePath for behaviour common to all path
75 classes.
76 "$path = Math::PlanePath::CretanLabyrinth->new ()"
78 Create and return a new path object.
79 "($x,$y) = $path->n_to_xy ($n)"
81 Return the X,Y coordinates of point number $n on the path. Points
82 begin at 0 and if "$n < 0" then the return is an empty list.
83 Fractional positions give an X,Y position along a straight line
85 between the integer positions.
86 "$n = $path->xy_to_n ($x,$y)"
88 Return the point number for coordinates "$x,$y". If there's
89 nothing at "$x,$y" then return "undef".
90 "$n = $path->n_start()"
92 Return 1, the first N in the path.
93
95 Math::PlanePath, Math::PlanePath::SquareSpiral
96
98 <http://user42.tuxfamily.org/math-planepath/index.html>
99
101 Copyright 2012, 2013, 2014, 2015, 2016, 2017 Kevin Ryde
102 This file is part of Math-PlanePath.
104 Math-PlanePath is free software; you can redistribute it and/or modify
106 it under the terms of the GNU General Public License as published by
107 the Free Software Foundation; either version 3, or (at your option) any
108 later version.
109 Math-PlanePath is distributed in the hope that it will be useful, but
111 WITHOUT ANY WARRANTY; without even the implied warranty of
112 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
113 General Public License for more details.
114 You should have received a copy of the GNU General Public License along
116 with Math-PlanePath. If not, see <http://www.gnu.org/licenses/>.
117perl v5.28.0 2017-12-03Math::PlanePath::CretanLabyrinth(3)