jednoliko gibanje

globals
[
  d_x1
  d_x2
  d_t1
  d_t2
  v1
  v2
  s1
  s2
]

to setup
clear-all
setup-automobil
reset-ticks
end 

to go
  ask turtle 0
  [
    unos1
    izračun1
  ]

   ask turtle 1
  [
    unos2
    izračun2
   ]
  tick
end 

to setup-automobil
  create-turtles 2

  ask turtle 0


  [
    setxy  -20 0
    set shape oblik1
    set heading 90
    set size 3
    set color blue
  ]

ask turtle 1


[
  setxy -20 5
  set shape oblik2
  set heading 80
  set size 5
  set color yellow
]
end 

to unos1

  set d_t1 0.01
  set v1 brzina1
end 

to unos2
  set d_t2 0.01
  set v2 brzina2
end 

to izračun1
   set d_x1 (v1 * d_t1)
   set xcor ( xcor + d_x1)
   set s1 (s1 + d_x1)
end 

to izračun2

  set d_x2 (v2 * d_t2)
  set xcor (xcor + d_x2)
  set s2(s2 + d_x2)
end