Red x

globals
[
  v d_t d_x s xB
]

to setup
  clear-all
  
  setup-čestica
  setup-pozadina
  reset-ticks
end  

to go
ask turtle 0
[
if xcor <= xB 
[
  izračun
]
] 
tick
end  

to setup-čestica
  create-turtles 1
  ask turtle 0
[
    set shape "x"
    set size 4 
    set color red
    setxy -10 0
    if putanja
    [
      pen-down
    ]
      
  ]
end 

to setup-pozadina
  set xB random 10
  ask patches
  [
    set pcolor black
  ]
 
  ask patch -10 0
  [
    set pcolor pink
    set plabel "A"
  ]
  ask patch xB 0 
  [
  set pcolor pink
  set plabel "B"
  ]
end 

to izračun
  set v brzina
  set d_t 0.0001
  set d_x (v * d_t)
  set xcor (xcor + d_x) 
  set s (s + d_x)
end