BehaviourComposer: ignore everything before this.

Begin micro-behaviour:

Begin description:

Defines a reporter that takes a color and transparency value (from 0 to 255) and reports a transparent version of the color.

End description

Define
make-color-transparent

Begin NetLogo code:

to-report make-color-transparent [a-color opacity]
  if (is-number? a-color) 
     [set a-color extract-rgb a-color]
  set a-color sublist a-color 0 3 ; just red green and blue
  report lput opacity a-color 
end

End NetLogo code

BehaviourComposer: ignore everything after this.