NR_CH_mitosis

to setup
  clear-all
  create-turtles 8
   [
     set size 4
     ask turtle 0 [
        set color red
        set shape "x"
        setxy -4 0
        facexy -4 16
  ]
     ask turtle 1 [
        set color red
        set shape "x"
        setxy 4 0
        facexy 4 -16
  ]
     ask turtle 2 [
        set color red
        set shape "x"
        setxy -4 0
        facexy -4 -16
  ]
     ask turtle 3 [
        set color red
        set shape "x"
        setxy 4 0
        facexy 4 16
  ]
     ask turtle 4 [
        set color red
        set shape "x"
        setxy 0 0
        facexy 0 16
  ]
     ask turtle 5 [
        set color red
        set shape "x"
        setxy 0 0
        facexy 0 -16
  ]
      ask turtle 6 [
        setxy 0 14
        facexy 0 16
        set color blue
        set shape "dot"
  ]
      ask turtle 7 [
        setxy 0 -14
        facexy 0 -16
        set color blue
        set shape "dot"
  ]
      ask turtle 0 [create-link-with turtle 7]
      ask turtle 1 [create-link-with turtle 6]
      ask turtle 2 [create-link-with turtle 6]
      ask turtle 3 [create-link-with turtle 7]
      ask turtle 4 [create-link-with turtle 7]
      ask turtle 5 [create-link-with turtle 6]
      ask link 0 7 [ set color black ]
      ask link 1 6 [ set color black ]
      ask link 2 6 [ set color black ]
      ask link 3 7 [ set color black ]
      ask link 4 7 [ set color black ]
      ask link 5 6 [ set color black ]
   ]
  reset-ticks
end 

to go
 ask link 0 7 [ set color white ]
 ask link 1 6 [ set color white ]
 ask link 2 6 [ set color white ]
 ask link 3 7 [ set color white ]
 ask link 4 7 [ set color white ]
 ask link 5 6 [ set color white ]
 ask turtles with [color = red] [
  fd -8
  ]
 tick
end