% This is an example file on the use of the cmarrows-package.

input cmarrows

setup_cmarrows(
  arrow_name     = "texarrow";
  parameter_file = "cmr10.mf";
  macro_name     = "arrow");
setup_cmarrows(
  arrow_name     = "parallelarrows";
  parameter_file = "cmr10.mf";
  macro_name     = "arrowa");
setup_cmarrows(
  arrow_name     = "twoheadarrow";
  parameter_file = "cmr10.mf";
  macro_name     = "arrowb");
setup_cmarrows(
  arrow_name     = "twowayoldarrow";
  parameter_file = "cmr10.mf";
  macro_name     = "arrowc");
setup_cmarrows(
  arrow_name     = "paralleloppositearrows";
  parameter_file = "cmr10.mf";
  macro_name     = "arrowd");
setup_cmarrows(
  arrow_name     = "doublearrow";
  parameter_file = "cmr10.mf";
  macro_name     = "arrowf");

setup_cmarrows(
  brace_name     = "extensiblebrace";
  parameter_file = "cmr10.mf";
  macro_name     = "brace");

beginfig(1);
  pickup pencircle scaled .4pt;
  fill (0,0pt)--(250pt,0)--(250pt,90pt)--(0,90pt)--cycle withcolor (1,1,.8);
  arrow (0,10pt)--(35pt,45pt);
  arrow (15pt,10pt){dir 60}..{dir 30}(50pt,45pt);
  arrow (30pt,10pt)--(65pt,45pt) withcolor red;
  arrowa (45pt,10pt)--(80pt,45pt);
  arrowb (60pt,10pt)--(95pt,45pt);
  arrowc (75pt,10pt)--(110pt,45pt);
  arrowd (90pt,10pt)--(125pt,45pt);
  arrowf (120pt,10pt)--(155pt,45pt);
endfig;

beginfig(2);
  fill (0,0pt)--(250pt,0)--(250pt,90pt)--(0,90pt)--cycle withcolor (1,1,.8);
  brace (0,10pt)--(50pt,45pt);
  brace (30pt,10pt){dir 60}..{dir 30}(80pt,45pt);
  brace (60pt,10pt)--(110pt,45pt) withcolor red;
  brace_middle_time:=0.8;
  brace (90pt,10pt)--(140pt,45pt);
endfig;

end