Napisz procedurę słoiki :s która wykreśli obraz jak niżej. Parametr s to średnica garnka w który wstawiono słoiki
Roman300oto słoiki :s okrąg :s/2 pw 45 przypisz "n 1.170 pod powtórz 4[ np :s/8*:n opu okrąg (:s/4/pwk 2)*:n pod np -:s/8*:n pw 90 ] opu już
Procedura przyjmuje jeden parametr - :s czyli średnicę garnka
Ponadto procedura tworzy zmienną globalną :n która wynosi w przybliżeniu 1.17 Jest to mnożnik odległości od środka koła i promienia słoików. Można go dowolnie modyfikować: większa liczba daje większe słoiki, mniejsza daje mniejsze.
Wartość 1.17 najlepiej pasuje do garnka o średnicy :s
okrąg :s/2
pw 45
przypisz "n 1.170
pod
powtórz 4[ np :s/8*:n opu okrąg (:s/4/pwk 2)*:n pod np -:s/8*:n pw 90 ] opu
już
Procedura przyjmuje jeden parametr - :s czyli średnicę garnka
Ponadto procedura tworzy zmienną globalną :n która wynosi w przybliżeniu 1.17
Jest to mnożnik odległości od środka koła i promienia słoików. Można go dowolnie modyfikować: większa liczba daje większe słoiki, mniejsza daje mniejsze.
Wartość 1.17 najlepiej pasuje do garnka o średnicy :s
Sprawdź załącznik!