Question

prosze o pomoc powiedzcie mi co jest w tym źle że nie chce wyjść stokrotka

to platek

pc 15

repeat 2[

repeat 5[fd 1 rt 18]

fd 30

repeat 5[fd 1 rt 18]]

teleport 90 15

rt 180

fill

teleport 90 15

rt 180

end

to platki

repeat 20 [rt 18 platek]

end

to 1/2 lisc

repeat 30 [fd 1 rt 3

fd 10

repeat 15[fd 1 lt 6]

end

to lisc

pc 10

1/2lisc

bk 10

rt 180

1/2lisc

bk 5

rt 180

fd 5

teleport 60 5

teleport 90 1

fill

rt 180

teleport 90 1

rt 180

pc 15

rt 60 fd 25

bk 15 lt 60

teleport 300 5

pc 10

end

to teleport :y :x

penup

rt :y

fd :x

lt :y

pendwn

end

to stokrotka

platki

bk 60

lisc

bk 50

end

prosze o pomoc

Answer 1

po 1 to samo pc - pencil color jak mniemam (ja pracuje na polskojezycznej wersji)

wywołuje tylko obecny kolor, żeby go USTAWIĆ musisz dodać przed komendą "set"

(setpc)

po 2 popraw w procedurze "teleport" pendwn na pendOwn

po 3 przydało by się liść wyrastał z łodygi, a nie żeby ona szła przez jego środek, nie? Na końcu procedury "lisc" zmieniasz parametr teleport 300 5 na 300 15

po 4 biały kolor płatków niekoniecznie jest dobry kiedy mamy białe tło, proponował bym to zmienić np na szary, setpc [231 231 232]

po 5 jak to stokrotka to ja bym dodał żółty środek ;] moge zaproponowac taka procedure:

 

to sr
penup
fd 90
setpc "yellow
make "a 1
repeat 15 [circle :a make "a :a + 1]
rt 180
fd 90
rt 180
pendown
end

 

wstawiasz na koniec stokrotki i jest.

To tyle odemnie, mam nadzieje że pomogłem. Jak czegoś nie rozumiesz pisz.