Pinky Smile

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 "face neutral"
    set size 3
    set color pink
    setxy -10 0
    if putanja
    [
      pen-down
    ]
  ]
end 

to setup-pozadina
  set xB random 10
  ask patches
  [
    set pcolor sky
  ]
  ask patch -10 0
  [
    set pcolor gray
    set plabel "A"
  ]
  ask patch xB 0 
  [
    set pcolor gray
    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