to cvet1 :n :v
  repeat :v [cvet :n rt 360/:v]
end

to cvet2 :n
  rt 150
  repeat 2 [ lok :n ]
  end

to cvet3 :n :v
  repeat :v [cvet2 :n rt 360/:v]
end

to lok :n
 arc2 60 :n
 rt 120
 arc2 60 :n
end

TO KOCKA1
 CS LIK1 :N RT 90
 SETPC [255 0 0]
 SETTEXTFONT [[ARIAL] 12 5 2 5 0 0 0 0 0 0 0 0]
 LABEL (SE "KOCKA :N)
 SETPC [0 0 0] LT 90
END

TO KONEC
 WINDOWDELETE "W1
 SETTEXTFONT [[ARIAL] 0 0 0 0 0 0 0 0 0 0 0 0]
END

TO KVADRAT :N
 REPEAT 4 [FD :N RT 90]
END

TO LIK1 :N
 PU LT 90 FD 2*:N RT 90 FD :N PD
 REPEAT 4 [FD :N RT 90]
 RT 60
 REPEAT 4 [FD :N/16 PU FD :N/16 PD]
 LT 60
 REPEAT 8 [FD :N/16 PU FD :N/16 PD]
 RT 90
 FD :N RT 90 FD :N RT 90
 REPEAT 8 [FD :N/16 PU FD :N/16 PD]
 RT 90 PU FD :N PD LT 120 FD :N/2
 LT 150 PU FD :N PD LT 30 FD :N/2
 RT 120 PU FD :N PD
 RT 60 FD :N/2 RT 30
 PU FD :N RT 90 PD
END

TO LIK2 :N
 PU BK 2*:N PD
 REPEAT 4 [KVADRAT :N PU RT 90 FD :N LT 90 PD]
 FD :N LT 90 KVADRAT :N RT 90
 BK 2*:N LT 90 KVADRAT :N RT 90
 PU FD :N LT 90 FD 4*:N RT 90 PD
END

TO LIKI
 CS
 MAKE "X 0 MAKE "Y 0
 BUTTONCREATE "W1 "WB1 [KOCKA] :X+50 :Y 40 15 [KOCKA1]
 BUTTONCREATE "W1 "WB2 [Rob] :X :Y 50 10 [ROB]
 BUTTONCREATE "W1 "WB3 [MREZA] :X+50 :Y+15 40 15 [MREZA]
 BUTTONCREATE "W1 "WB4 [Ploscina] :X :Y+10 50 10 [PLO]
 BUTTONCREATE "W1 "WB5 [Povrsina] :X :Y+20 50 10 [POVR]
 BUTTONCREATE "W1 "WB6 [Prostornina] :X :Y+30 50 10 [PROST]
 BUTTONCREATE "W1 "WB7 [KONEC] :X+50 :Y+30 40 10 [KONEC]
END

TO MREZA
 LIK2 :N RT 90
 SETPC [0 0 255]
 SETTEXTFONT [[ARIAL] 12 5 2 5 0 0 0 0 0 0 0 0]
 LABEL (SE "MREZA)
 SETPC [0 0 0] LT 90
END

TO PLO
 PRINT (SE [Ploscina ene ploskve kocke] :N "je :N*:N ".)
END

TO POVR
 PRINT (SE [Povrsina kocke] :N "je 6*:N*:N ".)
END

TO PROST
 PRINT (SE [Prostornina kocke] :N "je :N*:N*:N ".)
END

TO ROB
 MAKE "N RW
 PRINT (SE [Rob kocke je] :N "mm.)
END