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.