FONTOS! Tudnátok segíteni ebben az Imagine Logo feladatban?

logo file:

[link]

Az eljárás így néz ki egyben, csak Ctrl-C, Ctrl-V:

eljárás átlók :s :r :m

;alapszámítás

név ([]) "v

név 0 "c1

ism :s-1 [növel "c1 név (:c1) "c2

ism :s-:c1[növel "c2

név (csere (elemszám :v)+1 :v (lista (:c1) (:c2) )) "v

]]

irány! 0 tf név ([]) "l

ism :s [e :r név hányadik "z név (csere :z :l poz) "l

pontméret :m

h :r j 360/:s ]

;átló

név (elemszám :v) "d

ism :d [név (elem hányadik :v) "h

név (elem 1 :h) "a név (elem 2 :h) "b

név (elem :a :l) "ap név (elem :b :l) "bp

;összeköt

név poz "yp

név (elem 1 :ap) "apx név (elem 2 :ap) "apy

név (elem 1 :bp) "bpx név (elem 2 :bp) "bpy

név (:bpx-:apx) "px név (:bpy-:apy) "py

név (gyök (:px*:px+:py*:py)) "t

poz! :ap tf név "0 "is

név :t "s

név 1 "sz

amíg [:s>1] [név :s-1 "s név :sz+1 "sz]

ism :sz [név (:is+1) "is

név (lista (:apx+(:px/:sz*:is)) (:apy+((:py/:sz)*:is))) "np

poz! :np pont]

poz! :yp

]

vége