to all
buttoncreate "main "crvena "Crvena -500 300 75 25 [crvena]
buttoncreate "main "zelena "Zelena -500 275 75 25 [zelena]
buttoncreate "main "zuta "Zuta -500 250 75 25 [zuta]
buttoncreate "main "roza "Roza -500 225 75 25 [roza]
buttoncreate "main "tirkizna "Tirkizna -500 200 75 25 [svijetloplava]
buttoncreate "main "plava "Plava -500 175 75 25 [plava]
buttoncreate "main "mreza "Mreza 430 300 75 25 [mreza]
buttoncreate "main "krizic "Krizic 430 275 75 25 [krizic]
buttoncreate "main "kruzic "Kruzic 430 250 75 25 [kruzic]
buttoncreate "main "obrisi_sve "Obrisi_sve 430 225 75 25 [cs]
buttoncreate "main "krug "Krug 430 200 75 25 [krug]
buttoncreate "main "krug_2 "Krug_2 430 175 75 25 [krug_2]
buttoncreate "main "krug_3 "Krug_3 430 150 75 25 [krug_3]
buttoncreate "main "krug_4 "Krug_4 430 125 75 25 [krug_4]
buttoncreate "main "pozadina "Pozadina 430 100 75 25 [krug_5]
buttoncreate "main "bicikl "Bicikl 430 75 75 25 [bicikl]
buttoncreate "main "ljubicasta "Ljubicasta -500 150 75 25 [ljubicasta]
buttoncreate "main "narancasta "Narancasta -500 125 75 25 [narancasta]
buttoncreate "main "siva "Siva -500 100 75 25 [siva]
buttoncreate "main "sakrij "Sakrij 355 300 75 25 [ht]
buttoncreate "main "home "Home 205 300 75 25 [home]
buttoncreate "main "pokazi "Pokazi 280 300 75 25 [st]
buttoncreate "main "podigni_pero "Podigni_pero 115 300 90 25 [pu]
buttoncreate "main "spusti_pero "Spusti_pero 25 300 90 25 [pd]
buttoncreate "main "kvadrat "Kvadrat 430 50 75 25 [kvadrat]
buttoncreate "main "krizic2 "Krizic2 -500 -25 75 25 [setpensize [2 2] pu setxy -127 -50 pd krizic pu]
buttoncreate "main "krizic1 "Krizic1 -500 0 75 25 [setpensize [2 2] pu setxy -126 -210 pd krizic pu]
buttoncreate "main "krizic3 "Krizic3 -500 -50 75 25 [setpensize [2 2] pu setxy -128 100 pd krizic pu]
buttoncreate "main "krizic4 "Krizic4 -500 -75 75 25 [setpensize [2 2] pu setxy 15 100 pd krizic pu]
buttoncreate "main "krizic5 "Krizic5 -500 -100 75 25 [setpensize [2 2] pu setxy 14 -50 pd krizic pu]
buttoncreate "main "krizic6 "Krizic6 -500 -125 75 25 [setpensize [2 2] pu setxy 15 -200 pd krizic pu]
buttoncreate "main "krizic7 "Krizic7 -500 -150 75 25 [setpensize [2 2] pu setxy 174 -200 pd krizic pu]
buttoncreate "main "krizic8 "Krizic8 -500 -175 75 25 [setpensize [2 2] pu setxy 174 -50 pd krizic pu]
buttoncreate "main "krizic9 "Krizic9 -500 -200 75 25 [setpensize [2 2] pu setxy 174 100 pd krizic pu]
buttoncreate "main "kruzic1 "Kruzic1 430 0 75 25 [setpensize [2 2] pu setxy -125 -130 pd kruzic pu]
buttoncreate "main "kruzic2 "Kruzic2 430 -25 75 25 [setpensize [2 2] pu setxy -125 20 pd kruzic pu]
buttoncreate "main "kruzic3 "Kruzic3 430 -50 75 25 [setpensize [2 2] pu setxy -125 170 pd kruzic pu]
buttoncreate "main "kruzic4 "Kruzic4 430 -75 75 25 [setpensize [2 2] pu setxy 25 175 pd kruzic pu]
buttoncreate "main "kruzic5 "Kruzic5 430 -100 75 25 [setpensize [2 2] pu setxy 25 30 pd kruzic pu]
buttoncreate "main "kruzic6 "Kruzic6 430 -125 75 25 [setpensize [2 2] pu setxy 25 -115 pd kruzic pu]
buttoncreate "main "kruzic7 "Kruzic7 430 -150 75 25 [setpensize [2 2] pu setxy 175 -125 pd kruzic pu]
buttoncreate "main "kruzic8 "Kruzic8 430 -175 75 25 [setpensize [2 2] pu setxy 175 30 pd kruzic pu]
buttoncreate "main "kruzic9 "Kruzic9 430 -200 75 25 [setpensize [2 2] pu setxy 175 180 pd kruzic pu]
end

to angles
  (local "x "y "a "p)
  settextfont [[Arial] 25 0 0 0 0]
  setpensize [2 2] setpencolor[255 0 0]
  cs circle 0 0 150
  pu make "a 0 
  repeat12 [ make"a :a + 30 setpencolor [255 0 0]
    pu home seth :a pd fd 150
    pu fd 10 lt90 fd 10 rt90
    pu setpencolor [0 0 255]
    label :a ]
  setpos [-10 130] label 0
  home setpencolor [0 0 0]
  st
circle :x0 :y0 :r
  pu setpos (list :x0 :y0) pd arc 360 :r
end

to bicikl
circle 85
rt 20
fd 180
rt 50
fd 50
bk 100
fd 50
lt 50
bk 50
rt 60
fd 150
lt 45
fd 20
rt 45
fd 20
bk 40
fd 20
rt 135
fd 20
lt 135
rt 60
fd 150
circle 10
circle 85
rt 120
fd 150
rt 60
fd 150
bk 150
circle 20
end

to crna
setpencolor [0 0 0]
end

to crvena
setpencolor [255 0 0]
end

to house
repeat 4 [fd 100 lt 90] fd 100 lt 90
repeat 3 [fd 100 rt 120] lt 90 fd 100 rt 90 fd 35
repeat 2 [fd 60 rt 90 fd 50 rt 90] fd -5 rt 90 
repeat 2 [fd 40 rt 90 fd 25 rt 90]
pu fd 60 pd
end

to krizic
pu
fd 20 
pd
rt 45 
fd 141
rt 45
pu
bk 100
rt 45
pd
fd 141
rt 135
pu
fd 100
rt 90
pu
bk 20
pd
end

to krug
repeat 103 [fd 20 bk 30 rt 57 lt 50 circle 200]
end

to krug_2
repeat 103 [fd 20 bk 30 rt 57 lt 50 circle 200 lt 45 fd 80]
end

to krug_3
repeat 13 [circle 100 lt 30 fd 100]
end

to krug_4
repeat 50 [fd 60 rt 70 fd 23 rt 25 bk 10 lt 20 circle 20]
end

to krug_5
repeat 2000 [fd 90 lt 89 fd 80 rt 89]
end

to kruzic
repeat 360 [rt 1 fd 1]
end

to kvadrat
repeat 250 [forward repcount rt 89]
end

to ljubicasta
setpencolor [128 0 255]
end

to mreza
pu
setpensize [3 3] 
bk 200
pd
fd 450
pu
rt 90
fd 150
rt 90
pd
fd 450
pu
rt 180
fd 150
rt 90
fd 150
pd
bk 450
pu
lt 90
fd 150
rt 90
pd
fd 450
pu 
home
lt 90
fd 125
rt 90
end

to narancasta
setpencolor [255 128 64]
end

to plava
setpencolor [0 0 255]
end

to roza
setpencolor [255 128 192]
end

to siva
setpencolor [192 192 192]
end

to svijetloplava
setpencolor [79 255 255]
end

to zelena
setpencolor [58 247 49]
end

to zuta
setpencolor [255 255 0]
end