Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //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ż
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement