p
t
s
=
{
{
0
,
0
,
0
}
,
{
0
,
1
,
2
}
,
{
1
,
1
,
1
}
,
{
1
,
0
,
5
}
}
;
m
a
k
e
P
l
a
n
e
:
=
M
o
d
u
l
e
[
{
g
,
x
,
y
}
,
g
[
x
_
,
y
_
]
=
F
i
t
[
p
t
s
,
{
1
,
x
,
y
}
,
{
x
,
y
}
]
;
f
i
n
d
P
t
[
g
]
]
f
i
n
d
P
t
[
p
l
_
]
:
=
M
o
d
u
l
e
[
{
}
,
p
l
[
1
,
2
]
]
m
a
k
e
P
l
a
n
e
1
.
5