Napisz procedurę do Logo Komeniusza na domek o kształcie kwadratu z cegłami, drzwiami i oknami, dach o kształcie trapezu, a na nim dachówki, z kominem, obok domku płot z jadnym bąć wiecej kwiatkami. Z góry dzięki....

Napisz procedurę do Logo Komeniusza na domek o kształcie kwadratu z cegłami, drzwiami i oknami, dach o kształcie trapezu, a na nim dachówki, z kominem, obok domku płot z jadnym bąć wiecej kwiatkami. Z góry dzięki....
Odpowiedź

oto d pod lw 90 np 50 pw 90 ws 150 opu ustalkolorpisaka 0 ustalgrubośćpisaka 2 pw 90 np 300 lw 90 np 300 lw 90 np 600 lw 90 np 300 lw 90 np 300 np 40 lw 90 ustalgrubośćpisaka 4 ustalkolorpisaka [177 105 0] np 130 pw 90 np 80 pw 90 np 130 pod lw 180 np 65 lw 90 ustalgrubośćpisaka 2 ustalkolorpisaka 0 np 10 opu powtórz 360 [np 0,1 lw 1] pod lw 180 np 10 pw 90 np 65 lw 180 np 170 lw 90 np 320 opu powtórz 360 [np 0,8 pw 1] pw 180 pod np 140 opu powtórz 360 [np 0,8 lw 1] pod np 360 pw 90 np 170 lw 90 lw 30 opu np 90 lw 60 np 300 lw 120 np 90 pw 30 np 600 pw 90 pw 30 np 60 pw 60 np 540 pw 60 np 60 lw 180 np 60 pw 90 np 90 pw 90 np 60 pw 180 np 60 lw 60 np 540 lw 30 np 90 pw 120 pod np 10 pw 90 np 250 opu np 40 lw 30 np 50 lw 60 np 50 lw 120 np 50 lw 60 np 50 pw 90 np 50 lw 90 pw 180 np 50 pw 90 np 50 pw 180 np 50 pw 90 pw 60 np 50 pw 30 np 50 pw 90 np 40 pw 90 np 2 ustalkolorpisaka 15 np 40 pod np 3 opu np 47 oto 6kat :bok oto fraktal :bok :ile 6kat :bok jeśli :ile = 0 [stop] powtórz 6 [6kat :bok / 2,5 np :bok / 2 np :bok / 10 6kat :bok / 2,5 np :bok / 2,5 pw 60] pod np :bok / 2,5 pw 60 np :bok / 2,5 pw 60 np :bok / 2,5 lw 60 ukm 0 np 2 zamaluj ws 2 pw 60 ws :bok / 2,5 lw 60 ws :bok / 2,5 lw 60 ws :bok / 2,5 opu powtórz 6 [fraktal :bok / 2,5 :ile - 1 np :bok / 2 np :bok / 10 fraktal :bok / 2,5 :ile - 1 np :bok / 2,5 pw 60] oto lisc powtórz [np 100 * 3,14 / 18 pw 10] pw 90 powtórz [np 100 * 3,14 / 18 pw 10] pod pw 135 np 30 opu ustalkolormalowania 6 zamaluj pod ws 30 lw 45 opu już oto kwiat ustalkolorpisaka 5 powtórz 5 [lisc pw 360 / 5] pw 185 pod np 140 opu ustalkolorpisaka [0 113 0] np 200 ws 100 lw 90 powtórz 9 [np 70 * 3,14 / 18 lw 10] lw 90 powtórz 9 [np 70 * 3,14 / 18 lw 10] pod lw 135 np 20 opu ustalkolormalowania [0 113 0] zamaluj pod ws 20 pw 135 opu pw 90 powtórz 9 [np 70 * 3,14 / 18 pw 10] pw 90 powtórz 9 [np 70 * 3,14 / 18 pw 10] pod pw 135 np 20 opu ustalkolormalowania [0 113 0] zamaluj pod ws 20 lw 135 opu już

oto d lw 90 pw 90 ws 150 ustalkolorpisaka 0 ustalgrubośćpisaka 2 pw 90 lw 90 lw 90 lw 90 lw 90 lw 90 ustalgrubośćpisaka 4 ustalkolorpisaka [177 105 0] pw 90 pw 90 np 130 pod lw 180 lw 90 ustalgrubośćpisaka 2 ustalkolorpisaka 0 np 10 opu powtórz 360 [np 0,1 lw 1] pod lw 180 pw 90 lw 180 lw 90 powtórz 360 pw 180 powtórz pw 90 lw 90 lw 30 lw 60 lw 120 pw 30 pw 90 pw 30 pw 60 pw 60 lw 180 pw 90 pw 90 pw 180 lw 60 lw 30 pw 120 pw 90 lw 30 lw 60 pw 120 pw 60 pw 90 pw 90 pw 180 pw 90 pw 180 pw 90 pw 60 pw 30 pw 90 pw 90 ustalkolorpisaka 15 np 40 pod np 3 opu np 47 oto 6kat :bok oto fraktal :bok :ile 6kat :bok jeśli :ile = 0 [stop] powtórz pw 90 powtórz pw 135 np 30 ustalkolormalowania 6 zamaluj pod ws 30 lw 45 opu już oto kwiat ustalkolorpisaka 5 powtórz 5 [lisc pw 360 / 5] pw 185 np 140 ustalkolorpisaka [0 113 0] np 200 ws 100 lw 90 powtórz 9 [np 70 * 3,14 / 18 lw 10] lw 90 powtórz 9 [np 70 * 3,14 / 18 lw 10] lw 135 np 20 ustalkolormalowania [0 113 0] zamaluj ws 20 pw 135 pw 90 powtórz 9 [np 70 * 3,14 / 18 pw 10] pw 90 powtórz 9 [np 70 * 3,14 / 18 pw 10] pw 135 np 20 ustalkolormalowania [0 113 0] upo

Dodaj swoją odpowiedź