Ce texte montre comment construire les patrons des 5 polyèdres réguliers avec GEOLAP.
dans cot 50
pli angle 90
pour carré
(répète 4 (av cot td 90))
répète 3
(répète 2
(carré lc av cot pq angle bc)
ca angle re cot td 90 av cot tg 90
id angle)
pli a 180-arccos(1/3)
On obtient les deux programmes suivants :
Programme 1
dans cot 100
pli a 180-arccos(1/3)
pour triangle
( repete 3 (av cot td 120))
triangle
lc av cot bc tg 180
ig a triangle id a
lc av cot bc tg 120
ig a triangle id a
lc av cot bc tg 120
ig a triangle id a
Programme 2
pli a 180-arccos(1/3)
dans cot 100
pour triangle
(répète 3 (av cot tg 120))
répète 2 (triangle id a td 60)
triangle
av cot
tg 120
id a
td 60
triangle
dans cot 50
pli a1 90-arccos(1/rac(3))
pli a2 90
pour triangle
(répète 3 (av cot td 120))
pour losange
(id a1 triangle ig a1
lc av cot tg 180 bc
id a1 triangle ig a1)
lc td 90 re 2*cot bc
répète 4
(losange tg 180 pq a2)
dans cot 80
pli a 180-2*arccos(1/rac(3))
pour triangle
(répète 3 (av cot td 120))
répète 4
(triangle av cot td 30 pq a td 30
triangle tg 30 ca a tg 30 re cot
td 60 id a)
pli a arctan(2)
dans cot 30
pour pentagone
(repete 5 (av cot tg 72))
;1ère coupelle moins une face
pentagone
repete 4
(id a td 108 pentagone tg 108
ig a av cot tg 72)
;2 faces de transition
id a td 108
pentagone
tg 108 av cot td 72 av cot td 72
ig a
pentagone
td 72 re cot td 72 re cot tg 108
ig a
;2ème coupelle moins une face
pentagone
repete 4
(av cot tg 72 id a td 108
pentagone tg 108 ig a)
pli angle arctan(2)
pour pentagonea
(repete 5 (td 72 av 30))
pour pentagoneb
(repete 5 (tg 72 av 30))
repete 5
( pentagonea
td 72 av 30 id angle
pentagoneb
tg 72 av 30 ig angle
)
Il reste à introduire les deux faces manquantes.
dans cot 50
pli angle arcsin(2/3)
pour triangle
(répète 3 (av cot td 120))
pour branche
(répète 2
(triangle lc td 60 av cot tg 120
bc ig angle triangle lc av cot
td 30 ca angle td 30 bc)
)
pour retour
(répète 2
(lc tg 30 pq angle tg 30 re cot
id angle td 120 re cot tg 60 bc)
)
répète 5
( branche retour
id angle tg 60 )
dans cot 50
pli a arcsin(2/3)
pour triangle
(répète 3 (av cot tg 120))
pour part1
(triangle id a td 60 triangle
tg 60 ig a tg 60 ig a td 120
re cot)
pour part2
(triangle tg 60 ig a triangle
id a td 60 id a tg 120 lc re cot
bc td 60)
lc av 50 bc
répète 5 (part1 part2)