Chyba poprawiona wersja, z dorzuconymi kodami z lekcji

//wyjaśnienie procedur (można
//skok :x :y - przesuwa żółwia o wektor [:x,:y], np. skok 50 30 przesunie go o 50 w prawo i 30 do góry
//kwadrat :a - kwadrat o boku :a
//kwadrat_środek :a - wyśrodkowany kwadrat o boku :a
//prostokąt :a :b - kwadrat o boku pionowym :a i poziomym :b
//prostokąt_środek :a :b - analogicznie jak poprzednio
//foremny :n :a - n-kąt foremny (n >= 3) o boku :a
//foremny_środek :n :a - n-kąt foremny wyśrodkowany
//gwiazda :ile :bok - gwiazda n-kątna (n nieparzyste) o boku :bok
//kółko :r - bez wyjaśnienia; żółw znajduje się na obwodzie
//kółko_środek :r - żółw na początku i końcu - na środku koła
//drabina :ile :szer :wys - drabina (z lekcji)
//piramida :xdlug :ydlug :ile - piramida z lekcji; dlugosc cegly (xdlug,ydlug), :ile poziomów
//szachownica :szer :dlug :a - szachownica (niepomalowana) o :szer polach w poziomie, :dlug w pionie i polu o boku :a


oto skok :x :y
  pod
  pw 90   np :x   lw 90
  np :y
  opu
już

oto kwadrat :a
  powtórz 4 [ np :a pw 90 ]
już

oto kwadrat_środek :a
  skok (-:a/2) (-:a/2)
  powtórz 4 [ np :a pw 90 ]
  skok :a/2 :a/2
już

oto prostokąt :a :b
  powtórz 2 [ np :a pw 90  np :b pw 90 ]
już

oto prostokąt_środek :a :b
  skok (-:b/2) (-:a/2)
  powtórz 2 [ np :a pw 90  np :b pw 90 ]
  skok :b/2 :a/2
już

oto foremny :n :a
  powtórz :n [ np :a pw 180-180*(:n-2)/:n ]
już

oto foremny_środek :n :a
  przyp "r :a/(2*sin (180/:n))
  skok (-:r * cos(180/:n)) (-:r * sin (180/:n))
  powtórz :n [ np :a pw 180-180*(:n-2)/:n ]
  skok :r*cos (180/:n) :r*sin (180/:n)
już

oto gwiazda :n :r
  skok (-:r * cos (180/:n)) (-:r * sin (180/:n))
  pw (180/:n)
  powtórz :n [ np 2*:r*sin (360/:n)  pw 180-180/:n ]
  lw (180/:n)
  skok :r*cos (180/:n) :r*sin (180/:n)
już

oto kółko :r
  powtórz 360 [ np 2*3,14*:r/360  pw 1 ]
już

oto kółko_środek :r
  skok (-:r) 0
  powtórz 360 [ np 2*3,14*:r/360  pw 1 ]
  skok :r 0
już

// DO DRABINY

oto poziom :szer :wys
np 2*:wys
skok 0 (-:wys)
pw 90 np :szer lw 90
skok 0 (-:wys)
np 2*:wys
skok (-:szer) (-2*:wys)
już

oto drabina :ile :szer :wys
  skok (-:szer/2) (-:wys/2)
  powtórz :ile [ poziom :szer :wys/(:ile+1) skok 0 :wys/(:ile+1) ]
  skok 0 (-:wys*:ile/(:ile+1))
  skok (:szer/2) (:wys/2)
już

//KONIEC DO DRABINY


//POCZĄTEK DO PIRAMIDY

oto warstwa :xdlug :ydlug :ile
 powtórz :ile [powtórz 2 [np :ydlug pw 90 np :xdlug pw 90] skok :xdlug 0]
 skok (- :xdlug * :ile) 0
już

oto piramida :xdlug :ydlug :ile
 skok ( - :xdlug * :ile / 2 ) ( - :ydlug * :ile / 2 )
 przyp "ilecegieł :ile
 powtórz :ile [warstwa :xdlug :ydlug :ilecegieł skok ( :xdlug / 2 ) :ydlug przyp "ilecegieł :ilecegieł - 1]
 skok 0 ( - :ydlug * :ile / 2 )
już

//KONIEC DO PIRAMIDY

oto szachownica :szer :dlug :a
  powtórz :dlug [  powtórz :szer [ kwadrat :a   skok :a 0 ] skok (-:szer*:a) :a ]
  skok 0 (-:dlug*:a)
już