1Math::PlanePath::CretanULsaebryrCionntthr(i3b)uted PerlMDaotchu:m:ePnltaanteiPoanth::CretanLabyrinth(3)
2
3
4

NAME

6       Math::PlanePath::CretanLabyrinth -- infinite Cretan labyrinth
7

SYNOPSIS

9        use Math::PlanePath::CretanLabyrinth;
10        my $path = Math::PlanePath::CretanLabyrinth->new;
11        my ($x, $y) = $path->n_to_xy (123);
12

DESCRIPTION

14       This is a Cretan 7-circuit style labyrinth extended out infinitely.
15
16           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
46                                        ^
47           -7  -6  -5  -4  -3  -2  -1  X=0  1   2   3   4
48
49       The repeating part is the N=59 to N=189 style groups of 4 circuits
50       going back and forward.
51
52       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
56                 |   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
70       See examples/cretan-walls.pl for a sample program carving out the path
71       from a solid block to leave the walls.
72

FUNCTIONS

74       See "FUNCTIONS" in Math::PlanePath for behaviour common to all path
75       classes.
76
77       "$path = Math::PlanePath::CretanLabyrinth->new ()"
78           Create and return a new path object.
79
80       "($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
84           Fractional positions give an X,Y position along a straight line
85           between the integer positions.
86
87       "$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
91       "$n = $path->n_start()"
92           Return 1, the first N in the path.
93

SEE ALSO

95       Math::PlanePath, Math::PlanePath::SquareSpiral
96

HOME PAGE

98       <http://user42.tuxfamily.org/math-planepath/index.html>
99

LICENSE

101       Copyright 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Kevin
102       Ryde
103
104       This file is part of Math-PlanePath.
105
106       Math-PlanePath is free software; you can redistribute it and/or modify
107       it under the terms of the GNU General Public License as published by
108       the Free Software Foundation; either version 3, or (at your option) any
109       later version.
110
111       Math-PlanePath is distributed in the hope that it will be useful, but
112       WITHOUT ANY WARRANTY; without even the implied warranty of
113       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
114       General Public License for more details.
115
116       You should have received a copy of the GNU General Public License along
117       with Math-PlanePath.  If not, see <http://www.gnu.org/licenses/>.
118
119
120
121perl v5.38.0                      2023-07-20Math::PlanePath::CretanLabyrinth(3)
Impressum