B-GirlLocC

CrAzY_AnGeL

Dobar status ;)

26.04.2012.

B-GirlLocC

Hvala ! :)

02.05.2012.

Amy_2

to kocka :a :b :kut
paralelogram :a :b :kut
kvadrat :B
fd :B
paralelogram :a :b :kut
bk :b
rt 90-:kut
fd :a
lt 90-:kut
kvadrat :B
rt 90-:kut
bk :a
lt 90-:kut
end

to kvadar :A :B
paralelogram :B/2 :B 30
pravokutnik :A :B
fd :A
paralelogram :B/2 :B 30
bk :A
rt 90 - 30
fd :b/2
lt 90 - 30
pravokutnik :A :B
end

to kvadrat :B
repeat 4 [fd :B rt 360/4]
end

to niz.kvadrata :B
foreach [0 1 2 3 4] [setturtle ? rt 90 fd :B*? lt 90 kvadrat :B]
end

to niz.trokuta.boja :B
setturtle 0 setpc 0 pu rt 90 fd :B*0 lt 90 pd trokut :B
setturtle 1 setpc 1 pu rt 90 fd :B*1 lt 90 pd trokut :B
setturtle 2 setpc 2 pu rt 90 fd :B*2 lt 90 pd trokut :B
setturtle 3 setpc 3 pu rt 90 fd :B*3 lt 90 pd trokut :B
setturtle 4 setpc 4 pu rt 90 fd :B*4 lt 90 pd trokut :B
end

to paralelogram :A :B :KUT
rt 90-:KUT
REPEAT 2 [FD :A RT :KUT
FD :B RT 180-:KUT]
LT 90-:KUT
END

to peterokut :D
repeat 5 [fd :D rt 360/5]
end

to pravokutnik :A :B
repeat 2[fd :A rt 90
fd :B rt 90]
end

to rotiranje.peterokuta :D
foreach [0 1 2 3 4][setturtle ?
setpc ?
rt (360/5)*?
peterokut :D]
end

to sesterokut :B
repeat 6 [fd :B rt 60]
end

to trokut :B
rt 30
repeat 3[fd :B rt 360/3]
end

14.05.2012.

Amy_2

to kocka :a :b :kut
paralelogram :a :b :kut
kvadrat :B
fd :B
paralelogram :a :b :kut
bk :b
rt 90-:kut
fd :a
lt 90-:kut
kvadrat :B
rt 90-:kut
bk :a
lt 90-:kut
end

to kvadar :A :B
paralelogram :B/2 :B 30
pravokutnik :A :B
fd :A
paralelogram :B/2 :B 30
bk :A
rt 90 - 30
fd :b/2
lt 90 - 30
pravokutnik :A :B
end

to kvadrat :B
repeat 4 [fd :B rt 360/4]
end

to niz.kvadrata :B
foreach [0 1 2 3 4] [setturtle ? rt 90 fd :B*? lt 90 kvadrat :B]
end

to niz.trokuta.boja :B
setturtle 0 setpc 0 pu rt 90 fd :B*0 lt 90 pd trokut :B
setturtle 1 setpc 1 pu rt 90 fd :B*1 lt 90 pd trokut :B
setturtle 2 setpc 2 pu rt 90 fd :B*2 lt 90 pd trokut :B
setturtle 3 setpc 3 pu rt 90 fd :B*3 lt 90 pd trokut :B
setturtle 4 setpc 4 pu rt 90 fd :B*4 lt 90 pd trokut :B
end

to paralelogram :A :B :KUT
rt 90-:KUT
REPEAT 2 [FD :A RT :KUT
FD :B RT 180-:KUT]
LT 90-:KUT
END

to peterokut :D
repeat 5 [fd :D rt 360/5]
end

to pravokutnik :A :B
repeat 2[fd :A rt 90
fd :B rt 90]
end

to rotiranje.peterokuta :D
foreach [0 1 2 3 4][setturtle ?
setpc ?
rt (360/5)*?
peterokut :D]
end

to sesterokut :B
repeat 6 [fd :B rt 60]
end

to trokut :B
rt 30
repeat 3[fd :B rt 360/3]
end

14.05.2012.

Amy_2

to kocka :a :b :kut
paralelogram :a :b :kut
kvadrat :B
fd :B
paralelogram :a :b :kut
bk :b
rt 90-:kut
fd :a
lt 90-:kut
kvadrat :B
rt 90-:kut
bk :a
lt 90-:kut
end

to kvadar :A :B
paralelogram :B/2 :B 30
pravokutnik :A :B
fd :A
paralelogram :B/2 :B 30
bk :A
rt 90 - 30
fd :b/2
lt 90 - 30
pravokutnik :A :B
end

to kvadrat :B
repeat 4 [fd :B rt 360/4]
end

to niz.kvadrata :B
foreach [0 1 2 3 4] [setturtle ? rt 90 fd :B*? lt 90 kvadrat :B]
end

to niz.trokuta.boja :B
setturtle 0 setpc 0 pu rt 90 fd :B*0 lt 90 pd trokut :B
setturtle 1 setpc 1 pu rt 90 fd :B*1 lt 90 pd trokut :B
setturtle 2 setpc 2 pu rt 90 fd :B*2 lt 90 pd trokut :B
setturtle 3 setpc 3 pu rt 90 fd :B*3 lt 90 pd trokut :B
setturtle 4 setpc 4 pu rt 90 fd :B*4 lt 90 pd trokut :B
end

to paralelogram :A :B :KUT
rt 90-:KUT
REPEAT 2 [FD :A RT :KUT
FD :B RT 180-:KUT]
LT 90-:KUT
END

to peterokut :D
repeat 5 [fd :D rt 360/5]
end

to pravokutnik :A :B
repeat 2[fd :A rt 90
fd :B rt 90]
end

to rotiranje.peterokuta :D
foreach [0 1 2 3 4][setturtle ?
setpc ?
rt (360/5)*?
peterokut :D]
end

to sesterokut :B
repeat 6 [fd :B rt 60]
end

to trokut :B
rt 30
repeat 3[fd :B rt 360/3]
end