---

Płatek i serwetki

oto starter
 ustaltło 15 ulw 2 oknożółwia cs zt
 serwetki.demo
 serwetki.odwr.demo
już

oto GAŁĄŹ :bok
 jeśli :bok < 4 [np :bok stop]
 GAŁĄŹ :bok / 3 lw 60
 GAŁĄŹ :bok / 3 pw 120
 GAŁĄŹ :bok / 3 lw 60
 GAŁĄŹ :bok / 3
już

oto PŁATEK :bok
 pod np :bok / pwk 3 pw 150 opu
 powtórz 3 [GAŁĄŹ :bok pw 120]
 pod lw 150 ws :bok / pwk 3 opu
już

oto BOKI :rozm
 jeśli :rozm < :krok [np :rozm stop]
 BOKI :rozm / 3 lw 180 - :kąty
 BOKI :rozm / 3
 powtórz :n - 2 [pw :kąty BOKI :rozm / 3]
 lw 180 - :kąty BOKI :rozm / 3
już

oto SERWETKI :n :prom :krok
 ; ładne: [4 150 4][5 98 4][9 80 4][18 80 4]
 niech "kąty 360 / :n
 niech "rozm 2 * :prom * sin ( :kąty / 2 )
 pod np :prom pw 90 + ( :kąty / 2 ) opu
 powtórz :n [BOKI :rozm pw :kąty]
 pod lw 90 + ( :kąty / 2 ) ws :prom opu
już

oto serwetki.demo
 sż pod nowey 100 opu
 ps [SERWETKI 4 90 4]
 pod nowex -200 opu ukp 7 SERWETKI 4 90 4 ukp 3 zamaluj
 ps [SERWETKI 18 48 4]
 pod nowex 0 opu ukp 2 SERWETKI 18 48 4 zamaluj
 ps [SERWETKI 9 50 3]
 pod nowex 200 opu ukp 5 SERWETKI 9 50 3 zamaluj ukp 0
już

oto BOKI.ODWR :rozm
 jeśli :rozm < :krok [np :rozm stop]
 BOKI.ODWR :rozm / 3 pw 180 - :kąty
 BOKI.ODWR :rozm / 3
 powtórz :n - 2 [lw :kąty BOKI.ODWR :rozm / 3]
 pw 180 - :kąty BOKI.ODWR :rozm / 3
już

oto SERWETKI.ODWR :n :prom :krok
 ; ładne: [4 150 4][5 98 4][9 80 4][18 80 4]
 niech "kąty 360 / :n
 niech "rozm 2 * :prom * sin ( :kąty / 2 )
 pod np :prom pw 90 + ( :kąty / 2 ) opu
 powtórz :n [BOKI.ODWR :rozm pw :kąty]
 pod lw 90 + ( :kąty / 2 ) ws :prom opu
już

oto serwetki.odwr.demo
 sż pod nowey -100 opu
 ps [SERWETKI.ODWR 4 90 3]
 pod nowex -200 opu ukp 3 KWADRAT.ZAM 180
 ukp 15 SERWETKI.ODWR 4 90 3
 ps [SERWETKI.ODWR 18 83 4]
 pod nowex 0 opu ukp 2 wielobok 18 100 zamaluj
 ukp 15 SERWETKI.ODWR 18 83 4
 ps [SERWETKI.ODWR 9 85 3]
 pod nowex 200 opu ukp 5 wielobok 9 100 zamaluj
 ukp 15 SERWETKI.ODWR 9 85 3 ukp 0
już

oto KWADRAT.ZAM :bok
 powtórz 2 [pod np :bok / 2 pw 90 opu]
 powtórz 4 [np :bok pw 90]
 powtórz 2 [pod lw 90 np - :bok / 2 opu]
 jeśli :bok > 2 [zamaluj]
już

oto wielobok :n :prom
 niech "kąty 360 / :n
 niech "rozm 2 * :prom * sin ( :kąty / 2 )
 pod np :prom pw 90 + ( :kąty / 2 ) opu
 powtórz :n [np :rozm pw :kąty]
 pod lw 90 + ( :kąty / 2 ) ws :prom opu
już