Collagen

breed [collagen]
breed [inhibitor]

turtles-own [
  ;; The easiest way to handle the clusters is to designate one
  ;; node in the cluster as the "leader".  It doesn't really matter
  ;; which node it is; the choice is arbitrary, but it gives us a way
  ;; to identify the cluster.  Every node knows who the leader of
  ;; its cluster is.
  leader
  ;; This is used to make all of the nodes in a cluster turn by
  ;; the same number of degrees.  Each leader chooses a random
  ;; amount, then everyone else uses the amount from their leader.
  turn-amount
  
]
  collagen-own [ blocked ]

to setup
  clear-all
  set-default-shape collagen "collagen"
  set-default-shape inhibitor "circle"
  
   create-collagen population
    [ set size 2.5  
      set color white
      setxy random-xcor random-ycor
      rt random-float 360
      ;; initially, every node leads its own cluster of one
      set leader self 
      set blocked 0]
    
   create-inhibitor Inhibitors ; number of inhibitors from slider
    [ set color green
      set size 0.5
      setxy random-xcor random-ycor
      rt random-float 360
       ;; initially, every node leads its own cluster of one
      set leader self] 
     
  reset-ticks
end 

to go
  ;; All the leaders choose turn amounts
  ask collagen with [leader = self] [
    set turn-amount 0 ;random 10 - random 10
  ]  
  ;; All nodes follow their leaders
  ask collagen [
    rt [turn-amount] of leader
    fd 0.1
  ]
  
  ask inhibitor with [leader = self] [
    set turn-amount random 10 - random 10
  ]
  ask inhibitor [
    rt [turn-amount] of leader
    fd 0.1
  ]
    
  ;; Here's the tricky part. We check whether any pairs
  ;; of clusters are touching, and if they are, we merge them.
  ask collagen [
     ifelse blocked < 3 
     [let candidates collagen in-radius 1 with [leader != [leader] of myself] 
      if any? candidates [
      create-links-with candidates [ hide-link ]
      ask candidates [ merge ] 
    ] ]
     [ stop ] 
    
     let binders inhibitor in-radius 1 with [leader != [leader] of myself]
    if any? binders [
      create-links-with binders [ hide-link ]
      set blocked  blocked + 1 
      ask binders [ merge ]
    ]
    
  ]
  
 ; do-plots
   tick
end 

;to do-plots
 ; set-current-plot "Width"
 ; set-current-plot-pen "max group"
 ; plot count collagen
  
  
; end

  
;; This is a recursive procedure -- it calls itself.
;; That way the new leader propagates through the entire
;; cluster.

to merge  ;; node procedure
  ;; First this node merges.
  set leader [leader] of myself
  set heading [heading] of leader
  set color yellow
  ;; Then any neighboring nodes that haven't merged yet
  ;; merge.
  ask link-neighbors with [leader != [leader] of myself]
    [ merge ]
end 


; Public Domain:
; To the extent possible under law, Uri Wilensky has waived all
; copyright and related or neighboring rights to this model.
;
; Modified March 4, 2014
; George Dombi