Tilegon — ProgramsLOGO
last changed 29 May 2008
 

Tilegon













to LAYHEXTILES :rad :slice :times :angle :alt
pu fd :rad
repeat 3 [
pu bk :rad * 2
rt 120 bk 2 * :rad * sin (180 / 6)
pd
SPIN 6 :rad :slice :times :angle
rt 120
let [ :angle :angle * :alt ]
]
end

to LAYTRTILES :rad :slice :times :angle :alt
repeat 6
[pu fd :rad pd
lt 180
SPIN 3 :rad :slice :times :angle
rt 180
pu bk :rad
rt 60
let [:angle :angle * :alt]]
end
1